Executar macro Automaticamente

2024 - VBA & Macros

Post Recente por edilsonjc 11 anos atrás

5 Posts

2 Usuários

0 Reactions

1,022 Visualizações

RSS

edilsonjc

(@edilsonjc)

Posts: 39

Eminent Member

Topic starter

Pessoal, encontrei uma macro perfeita para rodar minhas macros de forma automática (ambiente office), sem a necessidade de ficar criando ou apertando botões. Porém quando é dado o start ela roda sem problemas, e quando aperto o stop ela me retorna com erro 1004. Já procurei na net e aqui e não encontrei nada para corrigir este problema.
Ela está em anexo e se alguém conseguir me ajudar nesta empreitada eu agradeço.

Valeu

Executa Auto.rar

Postado : 02/03/2014 2:41 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa noite!!

Ao iniciar e depois para eu não tive o erro citado!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 02/03/2014 3:57 pm

edilsonjc

(@edilsonjc)

Posts: 39

Eminent Member

Topic starter

Boa noite!!

Ao iniciar e depois para eu não tive o erro citado!

Att

desculpe eu inseri uma linha no botão stop "On Error Resume Next", por isso não viu o erro.
O evento não é cancelado e a macro fica rodando sem parar e o botão da mensagem aparecendo no tempo determinado.
Segue outro arquivo sem a linha que pula o erro.

Executa Auto.rar

Postado : 02/03/2014 5:43 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa noite!!

Tente...

Fonte: http://www.cpearson.com/excel/OnTime.aspx

Public RunWhen As Double
Public Const cRunIntervalSeconds = 5
Public Const cRunWhat = "TheSub"

Sub StartTimer()
    RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
    Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, _
        Schedule:=True
End Sub

Sub StopTimer()
    On Error Resume Next
    Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, _
        Schedule:=False
End Sub
Sub TheSub()
    MsgBox "Agora são " & Time & "."
    StartTimer
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 02/03/2014 6:03 pm