X joe o chi può

[solare]

Ciao Mi servirebbe un listato che faccia quanto segue:
Ci sia la possibilità di inserire fino a 10 nr e la ruota
In base ai numeri inseriti mi deve elencare l'ultima cinquina di ogni numero inserito.
grazie

 

[joe]

Ciao Solare,

E' nei miei propositi quello di NON postare risposte.

Tuttavia spero ti sia gradita ed utile questa eccezione:

Sub Main
'Ricerca Ultima Estrazione Script By Joe V.1.0 del 3/10/2024
   Dim Es,K,T,R
   Dim Num
   Dim Sel
   Es = EstrazioneFin
   Sel = ScegliNumeri(Num)
   R = ScegliRuota
   Do While T < Sel
      For K = 1 To Sel
         If Posizione(Es,R,Num(K)) > 0 Then
            Scrivi DataEstrazione(Es,,,"/") & " " & SiglaRuota(R) & " " & StringaEstratti(Es,R) & " (" & Num(K) & ")": Num(K) = 0 : T = T + 1
         End If
      Next
      Es = Es - 1
   Loop
End Sub

Buona giornata a tutte/i.

 

[solare]

Ciao joe, grazie infinite della tua sempre cortesia
naturalmente la bravura.
Buona giornata