;-)
Dim hora_atual As Date
Sub hora()
ThisWorkbook.Sheets("Plan1").Range("A1").Value = Format(Time, "hh:mm:ss")
Call acerta_hora
End Sub
Sub acerta_hora()
hora_atual = Now + TimeValue("00:00:01")
Application.OnTime hora_atual, "hora"
End Sub
Sub parar()
Application.OnTime EarliestTime:=hora_atual, Procedure:="hora", Schedule:=False
End Sub
Um comentário:
Bom não podia de deixar de colocar a minha descoberta ! AhA hA descoberta pra mim soh ! eu varei a madrugada pesquisando e testando (sou meio persistente mesmo) ate q sem querer achei um pequeno detalhe
eu tava dele tenta EXECUTAR codigo do excel no word ! h AH HAAH
Mas vou colocar aki só pra lembrar o pessoal!
Public Sub Automatico()
Application.OnTime When:=Now + TimeValue("00:00:01"), Name:="Rotina1"
End Sub
Public Sub DeslAutomatico()
Application.OnTime When:=Now + TimeValue("00:00:01"), Name:="Rotina2"
End Sub
Sub Rotina1()
'sei la ! faz dconta q aki tem um baita script!
'Tá bom vou colcar alguma coisa!..
MsgBox "ROTINA 1 EXECUTO"
Automatico
End Sub
Sub Rotina2()
'POG das + BAGUAL !! h Ah ah Ah a tá vazio !
'No Word quando manda outra Rotina pra Agenda de execução ele anula a primeira ROTINA
'Dai como nao achei como parar a Rotina agendada! METI OUTRA VAZIA !hAHaH AH
'
'BAITA POG mas funciona no WORD !heheh
End Sub
Postar um comentário