30
Dez07
Um timer em VBA
Um timer para execução de macros, para definir o tempo de intervalo é só colocar em minutos o equivalente em segundos que se pretender.
Colocar num modulo:
Dim Alarme Const IntervaloSegundos = 5 * 60 ' 5 minutos de intervalo Sub Iniciar() Alarme = Now + TimeSerial(0, 0, IntervaloSegundos) Application.OnTime EarliestTime:=Alarme, _ procedure:="Macro1", _ schedule:=True End Sub Sub Macro1() 'As suas rotinas MsgBox "Olá!!! voltarei pelas " & Format(Alarme, "hh:mm:ss"), _ vbInformation, "Timer em Vba" Call Iniciar End Sub Sub Parar() On Error Resume Next Application.OnTime EarliestTime:=Alarme, _ procedure:="Macro1", _ schedule:=False End Sub
Fonte: http://jjoao2k.no.sapo.pt