Ejecutar macro a horas determinadas

[Khalel]

Buenos días.

Me gustaría saber cómo puedo hacer para que una macro que tengo se ejecute todos los días a las 06:00, 14:00 y 22:00.

Siempre va a estar abierto.

Muchas gracias.

[Antoni]

En ThisWorkbook:

Sub Copiar()
Application.OnTime TimeValue("06:00:00"), "Macro1"
Application.OnTime TimeValue("14:00:00"), "Macro2"
Application.OnTime TimeValue("22:00:00"), "Macro3"
End Sub

En un Módulo:

Sub Macro1()
Call TuMacro
Application.OnTime TimeValue("06:00:00"), "Macro1"
End Sub

Sub Macro2()
Call TuMacro
Application.OnTime TimeValue("14:00:00"), "Macro2"
End Sub

Sub Macro3()
Call TuMacro
Application.OnTime TimeValue("22:00:00"), "Macro3"
End Sub

 

[Khalel]

Hace 19 horas, Antoni dijo:

En ThisWorkbook:

Sub Copiar()
Application.OnTime TimeValue("06:00:00"), "Macro1"
Application.OnTime TimeValue("14:00:00"), "Macro2"
Application.OnTime TimeValue("22:00:00"), "Macro3"
End Sub

En un Módulo:

Sub Macro1()
Call TuMacro
Application.OnTime TimeValue("06:00:00"), "Macro1"
End Sub

Sub Macro2()
Call TuMacro
Application.OnTime TimeValue("14:00:00"), "Macro2"
End Sub

Sub Macro3()
Call TuMacro
Application.OnTime TimeValue("22:00:00"), "Macro3"
End Sub

 

Perfecto.

Y ahora, además de que se ejecute en estas horas, si quiero que un macro se ejecute cada X minutos?

Gracias de nuevo, sois de mucha ayuda.

[Antoni]

Por ejemplo, cada 10 minutos:

Application.OnTime Now + TimeValue("00:10:00"), "Macro1"

 

[Khalel]

Hace 10 minutos , Antoni dijo:

Por ejemplo, cada 10 minutos:

Application.OnTime Now + TimeValue("00:10:00"), "Macro1"

 

Coloco el codigo en Thisworkbook o en un modulo nuevo?

[Antoni]

En ambos, igual que en el ejemplo de la primera respuesta.

[Khalel]

En 18/2/2021 at 12:37 , Antoni dijo:

En ambos, igual que en el ejemplo de la primera respuesta.

Solucionado! Muchas gracias, como siempre excelente ayuda.