Notifications
Clear all

Atualizar de 5 em 5 minutos macros

5 Posts
3 Usuários
0 Reactions
1,676 Visualizações
(@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)
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)
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)
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
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Acredito que os links abaixo irão ajudar:

EXECUTAR MACROS A CADA 5 MINUTOS [Resolvido]
viewtopic.php?f=10&t=19701

Excel planilha vba horas executa macro a cada cinco segundos
http://www.microsoftexcel.com.br/index. ... undos.html

Scheduling Events With OnTime And Windows Timers
http://www.cpearson.com/excel/ontime.aspx

É só ajustar a sua necessidade.

[]s

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

 
Postado : 25/07/2016 5:47 am