Visual Basic Da pra usar dois "Application.OnTime" ao mesmo tempo?

[hudsonsaldanha]

Preciso executar alguns eventos, um a cada 1 segundo, um a cada 1 minuto e um a cada 5 minutos... e possível fazer usando 3 "Application.OnTime"? Tentei de varias formas mais não consegui!

[hudsonsaldanha]

2 horas atrás, hudsonsaldanha disse:

Preciso executar alguns eventos, um a cada 1 segundo, um a cada 1 minuto e um a cada 5 minutos... e possível fazer usando 3 "Application.OnTime"? Tentei de varias formas mais não consegui!

SEGUE O COD. ABAIXO

Sub Robo()

If Planilha2.Range("E16") = "COMPRA" Then
    If Planilha2.Range("F8") = Planilha2.Range("J8") Then 
        Planilha2.Range("G2") = Planilha2.Range("E31")
        Planilha2.Range("H2") = Planilha2.Range("H16")
    If Planilha2.Range("G2") > Planilha2.Range("G16") And Planilha2.Range("G2") < Planilha2.Range("H16") Then
        Planilha2.Range("C2") = "OK"
        Planilha2.Range("L2") = "OK"
        
        Planilha2.Range("C2") = "FALSE"
        Planilha2.Range("L2") = "FALSE"
    End If


    'STOP
    If Planilha2.Range("F8") > Planilha2.Range("J8") Then
    If Planilha2.Range("C31") <= Planilha2.Range("G16") Then
        Planilha2.Range("H2") = Planilha2.Range("D31")
        Planilha2.Range("L2") = "OK"
        Planilha2.Range("L2") = "C"
        Planilha2.Range("C2") = "FALSE" 
        Planilha2.Range("L2") = "FALSE" 
        'SE TOMOU STOP ESPERA 5MIM
        Application.OnTime Now + TimeValue("00:00:30"), "Robo"
    End If
    End If
    
End If
Application.OnTime Now + TimeValue("00:00:01"), "Robo"

End Sub