douglassa

Boa tarde Deciog, a principio obrigado, E o seguinte eu devo acumular os pontos de varius sorteios, e nesta planilha quando eu lanço um sorteio os demais ja ficam com o numero lançado....por exemplo, se tiver 20 sorteios eu tenho que acumular pontos de todos estes 20 sorteios. . . e eu preciso de uma tabela para saber qual numeros do conjunto de 01 a 60 ainda nao foi sorteado no periodo digitado adicionado 7 minutos depois Eu consegui pesquisando em outro post e usando a mesma ideia, porém ficou um processo meio pesado, e foi feito com Macros, nao consigo postar a tabela, então vou postar somente a macro. Se alguem souber como melhorar a rapidez me oriente por favor. Sub CONFERIR() Dim num1, num2 As Range, k As Long, str As String Application.ScreenUpdating = False For Each num1 In Range("ALE") For Each num2 In Range("RESULTADOS") If num2.Value = num1.Value Then k = k num1.Interior.ColorIndex = 18 + k num2.Interior.ColorIndex = 18 + k str = str & num1 & " " End If Next num2 Next num1 Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = False For Each num1 In Range("BRU") For Each num2 In Range("RESULTADOS") If num2.Value = num1.Value Then k = k num1.Interior.ColorIndex = 18 + k num2.Interior.ColorIndex = 18 + k str = str & num1 & " " End If Next num2 Next num1 Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = False For Each num1 In Range("CLE") For Each num2 In Range("RESULTADOS") If num2.Value = num1.Value Then k = k num1.Interior.ColorIndex = 18 + k num2.Interior.ColorIndex = 18 + k str = str & num1 & " " End If Next num2 Next num1 Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = False For Each num1 In Range("DAN") For Each num2 In Range("RESULTADOS") If num2.Value = num1.Value Then k = k num1.Interior.ColorIndex = 18 + k num2.Interior.ColorIndex = 18 + k str = str & num1 & " " End If Next num2 Next num1 Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = False For Each num1 In Range("DIO") For Each num2 In Range("RESULTADOS") If num2.Value = num1.Value Then k = k num1.Interior.ColorIndex = 18 + k num2.Interior.ColorIndex = 18 + k str = str & num1 & " " End If Next num2 Next num1 Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = False For Each num1 In Range("EDS") For Each num2 In Range("RESULTADOS") If num2.Value = num1.Value Then k = k num1.Interior.ColorIndex = 18 + k num2.Interior.ColorIndex = 18 + k str = str & num1 & " " End If Next num2 Next num1 Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = False For Each num1 In Range("ERI") For Each num2 In Range("RESULTADOS") If num2.Value = num1.Value Then k = k num1.Interior.ColorIndex = 18 + k num2.Interior.ColorIndex = 18 + k str = str & num1 & " " End If Next num2 Next num1 Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = False For Each num1 In Range("IVO") For Each num2 In Range("RESULTADOS") If num2.Value = num1.Value Then k = k num1.Interior.ColorIndex = 18 + k num2.Interior.ColorIndex = 18 + k str = str & num1 & " " End If Next num2 Next num1 Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = False For Each num1 In Range("JES") For Each num2 In Range("RESULTADOS") If num2.Value = num1.Value Then k = k num1.Interior.ColorIndex = 18 + k num2.Interior.ColorIndex = 18 + k str = str & num1 & " " End If Next num2 Next num1 Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = False For Each num1 In Range("JUL") For Each num2 In Range("RESULTADOS") If num2.Value = num1.Value Then k = k num1.Interior.ColorIndex = 18 + k num2.Interior.ColorIndex = 18 + k str = str & num1 & " " End If Next num2 Next num1 Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = False For Each num1 In Range("LER") For Each num2 In Range("RESULTADOS") If num2.Value = num1.Value Then k = k num1.Interior.ColorIndex = 18 + k num2.Interior.ColorIndex = 18 + k str = str & num1 & " " End If Next num2 Next num1 Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = False For Each num1 In Range("MAR") For Each num2 In Range("RESULTADOS") If num2.Value = num1.Value Then k = k num1.Interior.ColorIndex = 18 + k num2.Interior.ColorIndex = 18 + k str = str & num1 & " " End If Next num2 Next num1 Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = False For Each num1 In Range("OSM") For Each num2 In Range("RESULTADOS") If num2.Value = num1.Value Then k = k num1.Interior.ColorIndex = 18 + k num2.Interior.ColorIndex = 18 + k str = str & num1 & " " End If Next num2 Next num1 Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = False For Each num1 In Range("SIR") For Each num2 In Range("RESULTADOS") If num2.Value = num1.Value Then k = k num1.Interior.ColorIndex = 18 + k num2.Interior.ColorIndex = 18 + k str = str & num1 & " " End If Next num2 Next num1 Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = False For Each num1 In Range("WAL") For Each num2 In Range("RESULTADOS") If num2.Value = num1.Value Then k = k num1.Interior.ColorIndex = 18 + k num2.Interior.ColorIndex = 18 + k str = str & num1 & " " End If Next num2 Next num1 Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str Application.ScreenUpdating = False For Each num1 In Range("WILLIA") For Each num2 In Range("RESULTADOS") If num2.Value = num1.Value Then k = k num1.Interior.ColorIndex = 18 + k num2.Interior.ColorIndex = 18 + k str = str & num1 & " " End If Next num2 Next num1 Application.ScreenUpdating = True MsgBox k & " repetições" & vbLf & str End Sub

Bom dia, eu e meus amigos temos um bolao que funciona igual a telesena, cada um escolhe 20 numeros vamos conferindo de acordo com o sorteio da mega sena, eu gostaria de saber se tem como fazer a conferencia atraves do excel. dados do problema: São 50 grupos de 20 dezenas cada. e quero saber quais numeros é igual ao sorteado MEGA SENA 2017 NOVO.xlsx