Temporizador

Segue abaixo 3 exemplos de pausas.

1 – Este exemplo faz uma pausa na macro até chegar no horário do dia atual.

Application.Wait “18:23:00”

_____________________________________________________

2 – Este código para a macro por aproximadamente 10 segundos.

newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime

_____________________________________________________

3 – Este outro exemplo pausa a macro indicando por quanto tempo passou.

If Application.Wait(Now + TimeValue(“0:00:10”)) Then
MsgBox “Time expired”
End If

 

_____________________________________________________

Código retirados da fonte abaixo:

Fonte: http://msdn.microsoft.com/en-us/library/aa213656%28v=office.11%29.aspx

Pausar tempo

Para adicionar uma pausa na planilha ou para o tempo de execução de um código :

‘variáveis
Dim newHour, newMinute, newSecond, waitTime, horario As Date

cells(1,1).value = “teste” ‘para exemplo
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 2
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
cells(1,1).value = “após o tempo 2 segundos“ ‘para exemplo