Inicie o editor do Visual Basic – VBA (Alt+F11), ou clique na aba Desenvolvedor e no botão Visual Basic.
Dim tiempo As Date
Dim contador As Integer
Sub IniciaOnTime()
'controla a repetição e a cadencia
Dim allea As Integer
'repete a cada 1 minuto e 2 segundos
tiempo = Now + TimeSerial(0, 1, 2)
'chama esta macro no tempo estipulado
Application.OnTime tiempo, "IniciaOnTime"
'controlamos o final da repetição
contador = contador + 1
'enquanto o contador é inferior a 6 executa a rotina principal
'quando chegarmos a 6 nós interrompemos a repetição
If contador < 6 Then
Run "Nome_Macro_Principal"
Else
Run "CancelaOnTime"
End If
End Sub
- Abra um novo modulo (Alt, I, M), ou clique na pasta módulos do projeto existente e abra o módulo.
- Insira o texto VBA copiando e colando o código abaixo:
Dim tiempo As Date
Dim contador As Integer
Sub IniciaOnTime()
'controla a repetição e a cadencia
Dim allea As Integer
'repete a cada 1 minuto e 2 segundos
tiempo = Now + TimeSerial(0, 1, 2)
'chama esta macro no tempo estipulado
Application.OnTime tiempo, "IniciaOnTime"
'controlamos o final da repetição
contador = contador + 1
'enquanto o contador é inferior a 6 executa a rotina principal
'quando chegarmos a 6 nós interrompemos a repetição
If contador < 6 Then
Run "Nome_Macro_Principal"
Else
Run "CancelaOnTime"
End If
End Sub
- Feche o Visual Basic (VBA).
- No Excel clique na guia Desenvolvedor. Caso não esteja disponível segue Como Ativar a Guia Desenvolvedor.
- Clique no botão macros e selecione o Nome_Da_Macro.
- Clique em executar.