Agendador de execução de Macro

2024 - VBA & Macros

Post Recente por badchico 9 anos atrás

4 Posts

2 Usuários

0 Reactions

949 Visualizações

RSS

badchico

(@badchico)

Posts: 35

Eminent Member

Topic starter

Caros, possuo codigo abaixo, para executar a macro no determinado horario, porem como faço para agendar com data?

Exemplo no dia 23/02/2016 as 08:00:00, executar a macro.
é possível determinar datas e horarios juntos para execução?

 Public Sub TesteOnTime()
    Dim time As Date
    Dim resposta As Integer
    
    Application.Goto ActiveWorkbook.Sheets("Auxiliar").Cells(21, 2)
    time = [O15]
        
    resposta = MsgBox("Agendar a Tarefa para executar as: " & time & "?", vbYesNo + vbQuestion, "Agendar Tarefa")
    If resposta = vbNo Then
    
    MsgBox ("Ok, cancelado"), vbInformation
   
    Else
       
   Call Application.OnTime(TimeValue(time), "ExecutaOnTime")
   
    End If

End Sub

:geek:
Obrigado.

Postado : 23/02/2016 2:16 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Bom dia,

É só formatar a célula como "DD/MM/AAAA hh:mm:ss" e colocar a data e horário desejados.

Abraço

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

Postado : 24/02/2016 6:22 am

badchico

(@badchico)

Posts: 35

Eminent Member

Topic starter

Ola Jvalq, obrigado pelo retorno, mais formatei como solicitado, realizei o teste aqui, com a data para executar amanhã: (25/02/2016 10:35) e mesmo assim ele executou hoje.
Não deu certo...