Sub ora_cent() ur = Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To ur If Cells(i, 1) <> "" Then ora = Left(Trim(Cells(i, 1)), 1) minuto = Mid(Trim(Cells(i, 1)), 4, 2) in_minuti = ora * 60 + minuto Cells(i, 5) = in_minuti End If Next i End Sub