Notifications
Clear all

Iniciar nova sequência.

4 Posts
4 Usuários
0 Reactions
1,307 Visualizações
(@medeiros65)
Posts: 0
New Member
Topic starter
 

Eu tenho uma quantidade de números (25 ao todo). 1 ao 25.
São sorteados 15 por vez (é uma loteria)....(tabela 1 da planilha demonstrativa)

Eu queria que a cada sorteio ficasse marcado quais os números que faltam para ser sorteados todos os 25 números.
E claro que se reiniciasse uma nova contagem assim que fossem sorteados os 25.

Na minha planilha eu coloquei os sorteios na tabela 1 e ao lado (tabela 2) os números que não foram sorteados.

Eu consegui graças a ajuda de alguns membros uma formatação condicional que me mostra quais os números que não saíram de um jogo para o outro.
Mas o que eu preciso é de uma maneira em que toda vez em que os 25 números saírem..se reinicie a contagem.

 
Postado : 18/03/2016 5:34 pm
(@deciog)
Posts: 0
New Member
 

Medeiros65

Não estou entendendo pois neste tópico

viewtopic.php?f=20&t=19567

acredito que foi respondido isso "Eu queria que a cada sorteio ficasse marcado quais os números que faltam para ser sorteados todos os 25 números.
E claro que se reiniciasse uma nova contagem assim que fossem sorteados os 25."
, onde o numero não repetido é o que falta.

Décio

 
Postado : 19/03/2016 5:34 am
(@rilust)
Posts: 0
New Member
 

prezado

na verdade o que vc esta querendo e saber quando vai fechar o ciclo de da loteria. Denomina-se ciclo o intervalo de concursos em que todas as dezenas são sorteadas,
no caso da lotofacil no primeiro concurso são sorteados 15 numeros , faltam 10 o ciclo encerra-se quando essas 10 também forem sorteadas.
por exemplo na lotofacil temos
INI FIm TAM
1331 1334 4
1323 1330 8
1319 1322 4
1314 1318 5
1310 1313 4
1302 1309 8
1299 1301 3

creio ser muito dificl a unica forma seria um codigo em vba e mesmo assim acho improvavel

 
Postado : 19/03/2016 7:18 am
(@edcronos2)
Posts: 0
New Member
 

em
viewtopic.php?f=21&t=13912
tem algumas funções para loterias
inicialmente eu fiz para a mega mas com poucas modificações se pode adaptar para outras
a que vc quer é

    Function CicloTo(concursoNum As Long)

        Dim valt(1 To 60) As Long, linSort()
        With ThisWorkbook.Worksheets("Mega-Sena")

            lf = .Cells(Rows.Count, 1).End(xlUp).Row + 1
            L = concursoNum + 1
    ijSini:

            linSort = .Range("C" & L, "H" & L).Value2
            For v = 1 To 6
                valt(linSort(1, v)) = 1
            Next
            If L < lf Then
                For v = 1 To 60
                    If valt(v) = 0 Then L = L + 1: GoTo ijSini:
                Next
            End If
        End With
        CicloTo = L - 1

    End Function

CicloTo(numero do concurso)
vai indicar em qual concurso a partir daquele fechou as dezenas
daí pode se selecionar a range e fazer contagem de dezenas
mas vai ter que adaptar, já cansei desse mundo

 
Postado : 19/03/2016 8:18 am