Vertibili su due estrazioni

[lottomoney]

Buongiorno e Buon Natale.
Facendo riferimento a questo script:
viewtopic.php?f=3&t=3045&p=11977&hilit=vertibili#p11977
mi chiedevo se fosse possibile la ricerca, sempre in posizione isotopa ma in due estrazioni consecutive.
Esempio: estrazione del 30/01/2020
Bari: 4° estratto 44 e nell'estrazione del 28/01/2020 sempre in 4a posizione abbiamo il 49
Cagliari: 3a posizione 60 e nell'estrazione precedente abbiamo il 6 in 3a posizione.
Grazie anticipate nel caso sia possibile lo script o la modifica del precedente.
lottomoney

[Master]

Ciao

Codice: Seleziona tutto

 
Sub Main()
   Scrivi "Numero Vertibile in estrazione successiva lottomooney"
   Scrivi"http://www.lottopassion.it/forum/viewtopic.php?f=10&t=4184":Scrivi
   Dim es,a,b,qe,Ini,fin,r1,p1,p2,pos,L,ISO
   qe = InputBox(" Quante estrazioni vuoi controllare? ","ESTRAZIONI",150)
   ISO = InputBox("Quale vuoi controllare?" & Chr(10) & Chr(10) & _
   "1 = POSIZIONE ISOTOPA" & Chr(10) & _
   "2 = QUALSIASI POSIZIONE","POSIZIONI",1)
   Ini = EstrazioneFin - qe
   fin = EstrazioneFin
   For es = Ini To fin
      Call AvanzamentoElab(Ini,fin,es)
      For r1 = 1 To 12
         If r1 = 11 Then r1 = 12
         For p1 = 1 To 5
            For p2 = 1 To 5
               If ISO = 1 Or ISO = 2 Then
                  If ISO = 1 Then p1 = p2
                  If ISO = 2 Then p1 = p1
                  a = Estratto(es - 1,r1,p1) : b = Estratto(es,r1,p2)
                  If a = Vert(b) Then
                     Scrivi DataEstrazione(es - 1) & "  " & SiglaRuota(r1) & " - ",1,0
                     For pos = 1 To 5
                        L = Estratto(es - 1,r1,pos)
                        If a = L Then
                           ColoreTesto 2
                        End If
                        Scrivi Format2(L),1,0 : ColoreTesto 0
                        If pos < 5 Then Scrivi ".",0,0
                     Next
                     Scrivi
                     Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & " - ",1,0
                     For pos = 1 To 5
                        L = Estratto(es,r1,pos)
                        If b = L Then
                           ColoreTesto 2
                        End If
                        Scrivi Format2(L),1,0 : ColoreTesto 0
                        If pos < 5 Then Scrivi ".",0,0
                     Next
                     Scrivi
                     Scrivi String(35,"-")
                  End If
               End If
            Next
         Next
      Next
   Next
End Sub
 

[lottomoney]

Veramente F A N T A S T I C O!!!!!
Grazie mille Master, Buone Feste