Stai usando un browser molto obsoleto. Puoi incorrere in problemi di visualizzazione di questo e altri siti oltre che in problemi di sicurezza. . Dovresti aggiornarlo oppure usare usarne uno alternativo, moderno e sicuro.
ciao Pandit , è stato postato qui da djnomade un listato di Mike58 che fa un procedimento simile, naturalmente modificando alcuni codici ,
https://forum.lottoced.com/threads/richiesta.2222054/
Ciao alipante, non sono tanto brava in questo, però più tardi con il PC vedo se riesco, se poi qualcuno vuole intervenire che ben venga.
Buona domenica
ciao questo potrebbe servire? magari modificate qualcosa
Sub main()
Dim nu(5),nu1(5)
Dim poste(5),posta(5)
Dim ruota(2)
Dim ruote(2)
'posta(1)=1
posta(2)=1
posta(3)=1
poste(2)=1
poste(3)=1
fin=EstrazioneFin
ini=fin-30
For es=ini To EstrazioneFin
If IndiceMensile(es)=1 Then
Messaggio es
For...