Aiuto per script...

[Jimbo]

Ciao a tutti,
avrei bisogno di un'aiuto dagli esperti di script.
E' possibile su una ruota vedere un determinato numero tutte le volte che è uscito, con che numeri e la data.
Magari mi sfugge ma si potrebbe anche fare con spaziometria.
Es. Ruota di Bari
estrazione del 30.08.2012 26-83-90-72-79
estrazione del 28.08.2012 37-13-30-84-90
Così via...
Grazie e un saluto Jimbo

 

[GITANO]

Ciao

Sub main() 
tmp=InputBox("Quante estrazioni controllo?",,1000) 
ru=CInt (InputBox("Su che ruota?",,1))
num=CInt (InputBox("Quale numero?",,1)) 
fin=EstrazioneFin 
ini=fin-tmp 
For es=ini To fin 
Messaggio CStr (EstrazioneFin - es) 
a=Posizione(es,ru,num)
If a>0 Then
Scrivi DataEstrazione(es)&" "&Left(NomeRuota(ru),2)& " " &StringaEstratti(es,ru)&_
" Rilevato ---> "&Format2(num)&" In posizione "&a
End if
Next
End Sub

 

[Jimbo]

Ottimo Gitano è proprio quello che cercavo...
Grazie tante e un saluto da Jimbo