
Cells(ciclo, "L").Font.Color = RGB(255, 0, 0)
End If
Next
'''''
For i = 7 To UltimaRiga
Cells(i, "M") = Cells(i, "C") / Cells(UltimaRiga + 1, "C")
Cells(i, "M").NumberFormat = "0.00%"
Next i
''''
MsgBox Format(Now - t, "HH:MM:SS"), vbInformation, "CODICE ESEGUITO IN......" |
