Leonel... o problema é que está vindo um "espaço" antes da "duração".
Num arquivo de teste, rode esta macro e veja se atende:
Sub Duracao()
i = 2
j = Range("H65536").End(xlUp).Row
Do While i <= j
d = Mid(Cells(i, 8), 2, 5)
Cells(i, 8) = "00:" & d
i = i + 1
Loop
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 08/02/2011 2:30 pm