macro in execl per i terni piu frequenti

questa macro estraie i terni sia al 10 e lotto ,al lotto ,super enalotto

copiare solo i numeri a partire dalla cella b4 poi in y1 inserire la fr4equenza da cercare ' If Ctr > 2 Then Ambi = Ambi + 1

se si vogliono gli ambi su 3 numeri sostituire 1 al posto if ctr>1


Sub speedc()
Dim VArr
Dim I As Integer, J As Integer, M As Integer, N As Integer
Dim Ctr As Integer, Ambi As Integer, LastR As Long
'
TargAm = [Y1] 'imposta il valore dell ambo in crscita
Range("Y2:AB1000").Clear 'pulisco l area dove conterro gli ambi
LastR = Cells(Rows.Count, 2).End(xlUp).Row
VArr = Range("B4:u" & LastR).Value 'archivio
aaaa = UBound(VArr, 1)
For M = 1 To 90
Application.ScreenUpdating = False
For N = M + 1 To 90

For NN = N + 1 To 90

Ambi = 0
For I = 1 To UBound(VArr, 1)
Ctr = 0
For J = 1 To 19
If VArr(I, J) = M Then Ctr = Ctr + 1
If VArr(I, J) = N Then Ctr = Ctr + 1
If VArr(I, J) = NN Then Ctr = Ctr + 1


Next J
If Ctr > 2 Then Ambi = Ambi + 1
Next I
If Ambi > TargAm Then
NRow = Cells(Rows.Count, "Y").End(xlUp).Offset(1, 0).Row
Cells(NRow, "Y") = M: Cells(NRow, "Z") = N: Cells(NRow, "AA") = NN: Cells(NRow, "AB") = Ambi
End If
Next NN
Application.ScreenUpdating = True
Next N

Next M
End Sub

ciao claufont

in settimana completero un programma in execl

10 e lotto ogni 5 minuti numeri spia e da un bel po che ci lavoro

numeri + frequenti dopo spia
terni + frequenti dopo spia

colpi da 1 a 12
estrazioni a video dopo spia
ora ricerca spia 9 : 30 ore 12:45

non sono riuscito a fare l aggionamento automatico
ma col copia e in colla si puo aggiornare

se mi fai avere un indirizzo telo faro avere

lascio i fogli senza protezione cosi potrai studiare come e fatto

e fare qualche previsione dopo i numeri spia

saluti vegeta