- Codice: Seleziona tutto
Sub MaxRit()
Set Ws1 = Worksheets("Archivio_UK49s")
Set Ws2 = Worksheets("statistiche")
Application.ScreenUpdating = False
Application.Calculation = xlManual
URA = Ws1.Range("I" & Rows.Count).End(xlUp).Row
For RRR = 1 To 49
MRiIni = 3
RiIni = 0
MxrR = 0
RitA = URA - 2
DataIni = ""
Area = "C3:I" & URA
For Each Valca In Ws1.Range(Area)
If RRR = Valca Then
RitA = Valca.Row
If MxrR < Valca.Row - MRiIni Then
MxrR = Valca.Row - MRiIni
DataFine = Ws1.Range("B" & Valca.Row).Value
DataIni = Ws1.Range("B" & MRiIni).Value
End If
MRiIni = Valca.Row
End If
Next
Ws2.Range("AU" & RRR + 5).Value = MxrR
Ws2.Range("AV" & RRR + 5).Value = CDate(DataIni)
Ws2.Range("AW" & RRR + 5).Value = CDate(DataFine)
Ws2.Range("AX" & RRR + 5).Value = URA - RitA
Next RRR
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Ciao
P.s. la versione inviata corrisponde a 3.29 quando nella cronologia dei file esiste la 3.30-150