douglassa

12 de junho de 2017

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

11 de junho de 2017

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

Entrar

douglassa

Posts

Cadastrado em

Última visita

Tipo de conteúdo

Artigos

Selos

Fabricantes

Livros

Cursos

Análises

Fórum

posts postados por douglassa

Conferir varias tabelas

Conferir varias tabelas

Sobre o Clube do Hardware

Direitos autorais

Mais

Fórum

Atividades

Artigos

Análises

Livros

Cursos