Repeat several macros every 24h without having to restart the workbook.

[luzikedy]

Hi All,

Below is the code I use to trigger few macros in different time intervals. Currently I have to remember to close and open workbook at least once in 24 hours otherwise the macros will not perform very important tasks.

I was searching though forums and I was trying to implement things I found, but I couldn't get anything to work properly.

What should I add/change in order to have these macros repeated at given times everyday?

Private Sub Workbook_Open()


RaportShifts


Application.OnTime TimeValue("06:15:00"), "Send_Report_Email"
Application.OnTime TimeValue("10:00:00"), "Update_Links"
Application.OnTime TimeValue("14:15:00"), "Send_Report_Email"
Application.OnTime TimeValue("16:00:00"), "Update_Links"
Application.OnTime TimeValue("22:15:00"), "Send_Report_Email"

End Sub



Thx!

 

[wellsr]

To keep the macros triggering indefinitely, you'll want to place the Application.OnTime triggers at the bottom of your other macros, as well. For example, keep your Workbook_Open sub the same, but in your Send_Report_Email macro, add the following line to the bottom:

Application.OnTime TimeValue("06:15:00"), "Send_Report_Email"

Follow the same process for each of your other macros.

 

[luzikedy]

Thx for help. The whole concept works, but because I have the same macro executed 3 times a day I had to replicate the macro, so I have something link this now:

Application.OnTime TimeValue("06:15:00"), "Send_Report_Email1"
Application.OnTime TimeValue("10:00:00"), "Update_Links1"
Application.OnTime TimeValue("14:15:00"), "Send_Report_Email2"
Application.OnTime TimeValue("16:00:00"), "Update_Links2"
Application.OnTime TimeValue("22:15:00"), "Send_Report_Email3"