Wata

boa noite amigo, desculpe o incomodo .  vc montou um codico vba do pedroosavas e colocou aqui no forum, tambem fez video no you tube sobre isso, por sinal um codico que me quebra o galho ate hoje, alias aprendi muita coisa nos seus videos  . o incomdo é o sguinte, vc poderia montar uma planilha basica somente do exemplo 3 desse video para mim, a macro esta em baixo do video . tentei montar, mas nao consigo, nao entendo muito de vba. seria de grande ajuda para mim , ficaria muito agradecido e te devendo essa.....ass..nenao

Sub Aleatório3() Dim N, N01, N02, N03, N04, N05 As Integer N = 10 ActiveSheet.Range("Q09").Value = Int((N * Rnd) + 1) ActiveSheet.Range("Q10").Value = Int((N * Rnd) + 1) Subir1: N01 = Range("Q09").Value N02 = Range("Q10").Value If N02 = N01 Then ActiveSheet.Range("Q10").Value = Int((N * Rnd) + 1) If N01 = N02 Then GoTo Subir1 End If End If ActiveSheet.Range("Q11").Value = Int((N * Rnd) + 1) Subir2: N03 = Range("Q11").Value If (N03 = N01 Or N03 = N02) Then ActiveSheet.Range("Q11").Value = Int((N * Rnd) + 1) If (N03 = N01 Or N03 = N02) Then GoTo Subir2 End If End If ActiveSheet.Range("Q12").Value = Int((N * Rnd) + 1) Subir3: N04 = Range("Q12").Value If (N04 = N01 Or N04 = N02 Or N04 = N03) Then ActiveSheet.Range("Q12").Value = Int((N * Rnd) + 1) If (N04 = N01 Or N04 = N02 Or N04 = N03) Then GoTo Subir3 End If End If ActiveSheet.Range("Q13").Value = Int((N * Rnd) + 1) Subir4: N05 = Range("Q13").Value If (N05 = N01 Or N05 = N02 Or N05 = N03 Or N05 = N04) Then ActiveSheet.Range("Q13").Value = Int((N * Rnd) + 1) If (N05 = N01 Or N05 = N02 Or N05 = N03 Or N05 = N04) Then GoTo Subir4 End If End If End S