Bom dia!!
Eu não sei se entendi, mas tente algo assim...
Insira esse código dentro do módulo de Arquivo (EstaPasta_de_trabalho)
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:03"), "AleVBA_13086"
Application.OnTime Now + TimeValue("00:00:05"), "AleVBA_13086_II"
End Sub
Insira esse código dentro do Módulo comum
Sub AleVBA_13086()
dTime = Now + TimeValue("00:00:03")
Application.OnTime dTime, "AleVBA_13086"
Worksheets("Plan1").Range("A1") = dTime
End Sub
Sub AleVBA_13086_II()
dTime = Now + TimeValue("00:00:05")
Application.OnTime dTime, "AleVBA_13086_II"
Worksheets("Plan1").Range("A2") = dTime
End Sub
Caso queira ler mais sobre o assunto veja:
http://www.globaliconnect.com/excel/ind ... Itemid=475
http://msdn.microsoft.com/en-us/library ... =office.15).aspx
http://www.brainbell.com/tutorials/ms-o ... t_Time.htm
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 06/10/2014 6:23 am