Run macro every hour

[wyeah]

Windows XP ; Excel 2007

I would like to run a macro every hour at 31 minutes past the hour.. 5:31, 6:31; 7:31. etc. THe spreadsheet stays open 95% of the time but does get closed occassionally. Below is the macro I want to run.

Thanks, Alan

Sub Update_Save()
'
' Update_Save Macro
' Update cases and save file
'
Application.CalculateFull
ActiveWorkbook.Save
End Sub

 

[jc.021286]

okay,
I believe you need an ontime macro, try

Sub Update_Save()
'
Application.OnTime Now + TimeValue("01:00:00"), "Update_Save"

' Update_Save Macro
' Update cases and save file
'
    Application.CalculateFull
    ActiveWorkbook.Save
End Sub

Or use the same methodology to get the 31 minutes past the hour.

Regards,
jc

 

[wyeah]

Thanks jc, this will make it run every hour but how do I get it to run every hour at 31 minutes past the hour??

 

[jc.021286]

Okay, it took me a bit to get this working as I was accidentally changing the time on my computer continuously.

Sub test()
nextruntime = TimeValue(Hour(Now) + 1 & ":31:00")
Cells(1, 1) = Time

End Sub

This gave me the desired results, thus you'll have

Application.OnTime TimeValue(Hour(Now) + 1 & ":31:00"), "Update_Save"
</pre>
Regards
jc

 

[shailkam2001]

Run macro every 5 Mins

Sir I want to VBA code for worksheet of excel one column as Column A1 to A10 have a any future date. this Column(A1 to A10) date compare from system date and given popup message before 10 days, 20 days..... as date mention in Column A1 is 14/06/2014 and today system date 04/06/2014 so that difference is 10 days now given the automatic popup message when open the worksheet of excel and this popup message given every 5 mins when worksheet is open, but expire 10 days as column A1 have a date is 03/06/2014 and today is system date is 04/06/2014 then difference is -1 day now given the message is expired the date with remaining 10 days message because some condition are true and some condition are false in the same worksheet of excel. please reply as early. Thanks. Shailendra Singh