Atualizar de 5 em 5 minutos macros

2024 - VBA & Macros

Post Recente por Fernando Fernandes 8 anos atrás

5 Posts

3 Usuários

0 Reactions

1,666 Visualizações

RSS

UeversonL

(@ueversonl)

Posts: 4

New Member

Topic starter

bom dia!
Pessoal estou com duas macros onde preciso atualizar minha planilha de 5 em 5 minutos porem quando executo a Macro "Clock", minha outra macro para de atualizar.
tem como fazer tipo uma Macro Mãe onde ela obriga esta "Clock" parar?
a Clock atualiza a Hora "NOW".

Dim running As Boolean

Sub Clock()
    running = Not (running)
    Do While running = True
    DoEvents
    Sheets("TMAC").Range("A1") = Now
    Loop
     End Sub
' A macro que deveria parar a ClocK para atualizar depois de 5min, Lembrando que toda a vez eu tenho que ativar a Clock.
[code][/code]
    Public dTime As Date
    Dim lNum As Long
    
    Sub RunOnTime()
        dTime = Now + TimeValue("00:05:00")
        Application.OnTime dTime, "RunOnTime"
        
        lNum = lNum + 1
        If lNum = 3 Then
            Run "Gerar"
        Else
        Calculate
          SAP_Pendencia
          Base_Pendência
          Gerar
          Clock
      
        End If
        
    End Sub

Postado : 23/07/2016 6:18 am

messiasmbm

(@messiasmbm)

Posts: 223

Estimable Member

Tudo isto tem que estar dentro de um módulo.


Dim running As Boolean

Sub MostrarHoras()
On Error Resume Next
running = True
Sheets("TMAC").Range("A1") = Now
If running = True Then
Application.OnTime Now + TimeValue("00:00:01"), "MostrarHoras"
Application.OnTime Now + TimeValue("00:05:00"), "RunOnTime"
Else
Application.OnTime 0, ""
End If
End Sub
    Sub RunOnTime()
        lNum = lNum + 1
        If lNum = 3 Then
            Run "Gerar"
        Else
        Calculate
          SAP_Pendencia
          Base_Pendência
          Gerar
        End If
       End Sub

Postado : 23/07/2016 11:27 pm

messiasmbm

(@messiasmbm)

Posts: 223

Estimable Member

Você tem que disparar a macro pode ser com Workbook_Open em EstaPasta_de_trabalho.

Postado : 23/07/2016 11:49 pm

UeversonL

(@ueversonl)

Posts: 4

New Member

Topic starter

Muito obrigado, foi quase isso porem eu precisava que a macro RunONTime rodasse uma vez a cada 5 min, dessa forma que esta ai em cima quando passa os 5 min a RunOntime fica gerando sem para

Postado : 25/07/2016 3:45 am