Per Cinzia o chiunque vuole intervenire

Ciao Cinzia, mi avevi aiutato tempo fà x un listato sugli ambi bivalenti, ti rinfresco la memoria il listato era questo:

Sub Main()
Dim n(2),ru(1),ru1(1),rur(1),rur1(2)

rur1(1) = 11
rur1(2) = 12
fin = EstrazioneFin
ini = 7440
For es = 7440 To EstrazioneFin
cc = cc + 1
For rr = 1 To 11
If rr = 11 Then rr = 12
rur(1) = rr
For pp = 1 To 4
For pp1 = pp + 1 To 5
n(1) = Estratto(es,rr,pp)
n(2) = Estratto(es,rr,pp1)
OrdinaMatrice n,1
If n(1) > 0 Then
rt = SerieRitardo(1,es - 1,n,rur,2)

If rt > 600 Then
u = es - rt - 1
frr = SerieFreq(u,u,n,rur1,2)
If frr > 1 And frr < 3 Then

For r = 1 To 10
For r1 = r + 1 To 11
If r1 = 11 Then r1 = 12
Messaggio(es)
If r = rr Xor r1 = rr Then
ru(1) = r
ru1(1) = r1
If SerieFreq(u + 1,es - 1,n,ru,2) = 0 And SerieFreq(u + 1,es - 1,n,ru1,2) = 0 Then
If SerieFreq(u,u,n,ru,2) > 0 And SerieFreq(u,u,n,ru1,2) > 0 Then
Scrivi FormatSpace(u,4,1) & " " & SiglaRuota(r) & "-" & SiglaRuota(r1) & " ambo bivalente " & StringaNumeri(n) _
& " è sortito alla " & FormatSpace(es,4,1) & " nella ruota di " & SiglaRuota(rr) & " con rit " & FormatSpace(rt,4,1) & " " & FormatSpace(cc,4,1)
cc = 0

End If
End If
End If
Next
Next
End If
End If
End If
Next
Next
Next
Next
End Sub



Ora gentilmenti chiedo , lo stesso tipo di ricerca si può fare con gli ambi in generale , cioè tutti gli ambi e poi magari tramite inputbox poter scegliere quali e quante ruote abilitare?
Grazie !

Ciao, provo a spiegarmi meglio, la ricerca deve effettuarsi su tutti i 4005 ambi e io devo decidere su quali e quante rute giocare.
Per il resto la tabella che ne esce va bene del tipo di quella degli ambi bivalenti.
Cioè deve riassumere l'estrazione di inizio, le o la ruota in gioco, i 2 numeri usciti, a quale estrazione, in quale ruota, con quale ritardo e infine con quale ritardo di posizione dall'uscita precedente.
Esempio se decidessi di giocare su 3 ruote:


6734 CA-GE-PA ambo 67.79 è sortito alla 7441 nella ruota di PA con rit 706 2

6701 MI-FI-VE ambo 12,44 è sortito alla 7455 nella ruota di VE con rit 754 14


Nell'immagine un esempio x impostare quali e quante ruote.

Attached Image: Cattura

Ciao Cinzia.
Ti ringrazio ancora una volta, approfitto x chiedere un'altra cosa,
è possibile disporre l'output invece che
1-2....................
1-3....................
1-4 ...................

in base al ritardo attuale?

32-38 rit attuale 1292
.................................
.................................
................................
...............................

37-42 rit attuale 911
................................
................................
...............................

e cosi via.... cioè in base agli ambi + in ritardo
Comunque se è troppo complicato non ti preoccupare , va bene anche cosi comè
Grazie ancora

Perfetto grazie!