Modificare in doppia somma 91 verticale isotopo

[Paki144]

Ciao Forum, una richiesta agli Esperti chi può, se si potrebbe modificare questo script che attualmente esegue:
"una somma 90 verticale isotopo".
Se fosse possibile una modifica tipo:
"Modificare in doppia somma 91 verticale isotopo"
provo un esempio:
Estrazione 22/08/2020
Posizione 4° 5°
Genova 02 41
Palermo 89 50
Somma 91 91
- - - - - - - - - - - - - -
Grazie
Buona serata a tutti.
P.s. Allego lo script al post successivo.

 

[Paki144]

"Somma 90 verticale isotopo"
( Si può modificare
con doppia somma 91 isotopo? )

Sub Main()

som = CInt(InputBox("Somma da cercare?","Somma",90))
nes = InputBox("Quante estrazioni vuoi controllare?","Estrazioni",10)
ini = EstrazioneFin - nes
fin = EstrazioneFin
For es = ini To fin
Messaggio "Estrazione: " & es

For r1 = 1 To 10
For p = 1 To 5
a = Estratto(es,r1,p)
For r2 = r1 + 1 To 12
b = Estratto(es,r2,p)
If a + b = som And r2 <> 11 Then

Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & Format2(a),1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & Format2(b),1
Scrivi

End If
Next
Next
Next
Next
End Sub

 

[Paki144]

Ho postato lo script in codice
alla pagina #2
Grazie

 

[Paki144]

Ciao gcarlo grazie per aver letto la mia richiesta e per il tuo tempo che hai dedicato allo script.
Grazie ancora
Saluti