Ciao Edoardo, questo è per l'ambata ho messo 8 colpi ma puoi variare dove c'è scritto clp(colpi).
Sub Main()
Scrivi("Metodo Edoardo 95")
Dim ruota(10),nn(1)
Dim ruote(10)
Dim ambata(2)
Dim terzina(3)
Dim posta(1)
Dim poste(2)
posta(1) = 1
poste(2) = 1
clp = InputBox("Inserisci i colpi di gioco :",,8)
ds = CInt(InputBox("Inserisci la distanza (da 1 a 45) :",,2))
ini = InputBox("Inizio Ricerca :",,9300)
fin = EstrazioneFin
For es = ini To fin
For ess = es - 2 To es
Call AvanzamentoElab(ini,fin,es)
Messaggio "script By Antonio"
For r = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
For p3 = 1 To 5
ruota(1) = r : ruote(1) = r : ruote(2) = 11 'tutte le ruote
n1 = Estratto(es,r,p1): n2 = Estratto(es,r,p2)
If Distanza(n1,n2) = ds Then
'If Decina(n2) = Decina(n1) Then
x = Fuori90(n1*n2)
a = Estratto(ess,r,p3)
If a = x Then
m1 =(n1 + n2)/2
m2 = m1
m3 =Vert(m1) '< da qui
co = co + 1
Scrivi String(100,"=") & " Caso n°" & Format2(co),1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " Ambo Distanza " & ds & " [" & Format2(n1) & "-" & Format2(n2) & "] Stessa decina"
Scrivi DataEstrazione(ess) & " " & SiglaRuota(r) & " " & StringaEstratti(ess,r) & " " & n1 & "x" & n2 & " = " & Format2(x)
ColoreTesto 0
If ess = es Then
ColoreTesto 2
Scrivi " Presente nella stessa estrazione",False,False
Scrivi
Else
ColoreTesto 1
Scrivi " Presente " & es - ess & " Estrazione/i fa",False,False
Scrivi
End If
ColoreTesto 0
ambata(1) = m1'per il vertibile scrivere m3
'ambata(2) = m3
nGiocata = nGiocata + 1
Call ImpostaGiocataVirtuale(nGiocata,ambata,ruota,posta,k,1)
terzina(1) = m1
terzina(2) = m3
terzina(3) = a
'ImpostaGiocata 2,terzina,ruote,poste,k,2
GiocaVirtuale es,1,,,,True
Call Scrivi("GetVincita " & GetVincita(True,True))
If GetVincita(True,True) > 0 Then
Call ImpostaGiocata(nGiocata,ambata,ruota,posta,k,1)
Gioca es,1
'End If
End If
End If
End If
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit For
Next
elencogiocate
Scrivi:ScriviResoconto
End Sub
Function elencogiocate
ReDim aT(8)
aT(1) = "NumGiocata"
aT(2) = "Colpo"
aT(3) = "SpesaParz"
aT(4) = "VincitaParz"
aT(5) = "Guadagno Prz "
aT(6) = "Spesa Totale"
aT(7) = "Vincita totale"
aT(8) = "Guadagno Totale "
Call InitTabella(aT,1,,,5)
For k = 0 To GetQuantitaGiocateEffettuate
If GetSituazioneGiocate(k,RetColpo,RetSpesa,RetSpesaParz,RetVincita,RetVincitaParz) Then
ReDim aTT(8)
aTT(1) = clp
aTT(2) = RetColpo
aTT(3) = RetSpesaParz
aTT(4) = RetVincitaParz
aTT(5) =(aTT(4) - aTT(3))
aTT(6) = RetSpesa
aTT(7) = RetVincita
aTT(8) =(aTT(7) - aTT(6))
Call AddRigaTabella(aTT)
If aTT(2) < 1 Then Call SetColoreCella(2,2,4)
If aTT(2) > 0 Then Call SetColoreCella(2,3,1)
End If
Next
Call AddRigaTabella(aT,1,,,5)
Call CreaTabella()
End Function
. Mi servirebbe la tua e-mail per poterti inviare il metodo in privato 
