Moderatori: Anthony47, Flash30005
forse sono io che non riesco a spiegarmi vabbe troverò altro ciao
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
Torna a Applicazioni Office Windows
Screenshot automatizzato fogli excel:script?macro o...? Autore: Paolo67met |
Forum: Programmazione Risposte: 9 |
Macro copia dati colonne non contigue su un altro file excel Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 5 |
Visitano il forum: raimea e 23 ospiti