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