Modifica listato sincroni anche per:

[solare]

Ciao, quello che chiedo, sempre che sia possibile, aggiungere a questo listato la possibilità visualizzare i sincroni relativi alle sole: Cadenze, gemelli,figure e consecutivi.
Il max sarebbe avere anche la possibilità della selezione anche per decina.
Allego listato da modificare

Sub Main()
'rif. 0902_77 Ro x Darkman sincrononi 54321 versione 5.2

Dim ru(1),n(1),Tab(60,5)
fin = EstrazioneFin

For R = 1 To 12 : If R = 11 Then R = 12
   Erase Tab: ru(1) = r : co = 1 :d = 1
   n(1) = NumeroPosRit(fin,r,1)
   rit = SerieRitardo(fin - 210,fin,n,ru,1)
   Tab(1,d) = n(1)
   Tab(1,0) = rit

   For i = 2 To 90 ' scorro le posizioni di ritardo
      n(1) = NumeroPosRit(fin,r,i)
      rit2 = SerieRitardo(fin - 250,fin,n,ru,1)
      If rit2 <> rit Then
         co = co + 1
         d = 1
         Tab(co,d) = n(1)
         Tab(co,0) = rit2
         rit = rit2
      Else
         d = d + 1
         Tab(co,d) = n(1)
      End If
   Next
   '------------------------------------------
   Scrivi Chr(10) & " RC  - " & NomeRuota(r),1
   For s = 1 To 5
      For i = 1 To co
         trovati = 0 : rigo = ""
         For p = 1 To 5
            If Tab(i,p) > 0 Then
               trovati = trovati + 1
               rigo = rigo & Format2(Tab(i,p)) & " "
            Else Exit For
            End If
         Next
         If trovati = s Then Scrivi FormatSpace(Tab(i,0),3,1) & " => " & Rigo : rigo = "": Exit For
      Next
   Next
Next 'r
End Sub