Temos varios post que tratam do assunto:
viewtopic.php?f=10&t=2617 ou viewtopic.php?f=10&t=2617 entre varios outros
O codigo abaixo "coloca" um time na celula A10 da planilha 1
Dim aHora As Date
Sub Tempo()
Sheets("Plan1").Range("A10").Value = Format(Time, "hh:mm:ss")
Horario
End Sub
Sub Horario()
aHora = Now + TimeValue("00:00:01")
Application.OnTime aHora, "Tempo"
End Sub
Sub Parada()
Application.OnTime EarliestTime:=aHora, Procedure:="Tempo", Schedule:=False
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 06/03/2013 9:08 am