nenao

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

jimmy ..... fiz o deposito do bolao da mega sena ontem ok , enviei o comprovante de deposito do meu email  para vc ....  alehandro-rodrigues@hotmail.com

baseado no  seu topico

Excellentes Séries - 8dz - 6pts - 1549 conc

criei essa de cabeça, me parece ser talvez um pouco melhor para 6 dezenas do que aquela sua, nao coloquei no topico  por que nao sei testar no programa, apenas de caneta e cabeça, claro no excell, se ajudar e contribuir ao topico ficarei grato

25-8-6.txt

amigo SILVA vc tem ai aquela matriz do francisco pezzotti 60-50 em 10 jogos

como vc estuda a dupla luck......

SILVA..... mandei um email pra vc acho que é esse genesio21@gmail.com da uma olhada la blz

o meu objetivo , não tanto para ver o que ninguém viu ainda, mas pensar o que ninguém ainda pensou, sobre o que todo mundo vê.