Nel rileggere qualche topic inerente all'oggetto del titolo, volevo riportare in auge una Funzione Utente creata da un nostro amico del forum, che posto qui
- Codice: Seleziona tutto
Function Ritardi(Estr, Ruota)
TotEstr = Range("A65536").End(xlUp).Row
RigEstr = Estr.Row
ColEstr = Ruota.Column
For I = RigEstr + 1 To TotEstr
For Y = ColEstr To ColEstr + 4
If Cells(I, Y) = Estr Then
Ritardi = I - RigEstr - 1
GoTo Fine
End If
Next Y
Next I
Ritardi = "-"
Fine:
End Function
questa funzione utente permette di trovare nell'ambito di un archivio estrazionale del lotto il ritardo attuale di un numero su una delle dieci ruote a disposizione, la mia richiesta è la seguente, potete cortesemente modificare la funzione e crearne altre che facciano ulteriori ricerche di tipo:
- ritardiestrattoatutte(), ritardo estratto su tutte le ruote;
- ritardomaxstorico(), ritardo max storico estratto a ruota;
- ritardomaxstoricoatutte(), ritardo max storico estratto a tutte le ruote;
- ritardiambo(), ritardo ambo attuale a ruota;
- ritardiambotutte(), ritardo ambo attuale a tutte le ruote;
- ritardoambomaxstorico(), ritardo max storico ambo a ruota;
- ritardoambomaxstoricoatutte(), ritardo max storico ambo a tutte le ruote;
fiducioso come sempre,
ringrazio e rinnovo a tutti gli auguri di una Buona Pasqua.
ciao
bianco