Code to Run macro on specific date

[djossh]

Please help, i need a code to run macro on specific date.

ex. i want my macro to run on January 30, 2011 at 1:30pm (i want it to run automatically after i open the workbook) thanks..

 

[pedie]

Enter this code in thisworkbook module

Private Sub Workbook_Open()
Application.OnTime TimeValue("13:30:00"), "MyMacro"
'here mymacro stands for macro name you want to run when the time comes
End Sub

 

[djossh]

this code will run on JANUARY 30, 2011 at 1:30pm??.. it looks like this code will run at 1:30pm but not specifically on "January 30, 2011 @ 1:30pm"

Enter this code in thisworkbook module

Private Sub Workbook_Open()
Application.OnTime TimeValue("13:30:00"), "MyMacro"
'here mymacro stands for macro name you want to run when the time comes
End Sub

 

[chuckchuckit]

Looks like pedie's code is more efficient, but this should work also in a longer way to do it:

If you have your date and time in cell A1 formatted as : 1/30/2011 13:30 then try this:

Sub Auto_Open() 'runs whenever workbook is opened
    Range("A2").Select
    ActiveCell.Value = "=now()" 
    If ActiveCell.Value > Range("A1").Value Then
        Application.Run "ExcelFileName!MyMacro"
    End If
End Sub

 

[pedie]

I thought you can handle from there sorry...
then something like this...

[/FONT]
[FONT=Courier New]Private Sub Workbook_Open()[/FONT]
[FONT=Courier New]Application.OnTime TimeValue("13:30:00"), "MyMacro"[/FONT]
[FONT=Courier New]'here mymacro stands for macro name you want to run when the time comes[/FONT]
[FONT=Courier New]End Sub[/FONT]
[FONT=Courier New][/FONT] 
[FONT=Courier New][/FONT] 
[FONT=Courier New]sub MyMacro()[/FONT]
[FONT=Courier New][/FONT] 
[FONT=Courier New] if date <> "1/30/2011" then exit sub[/FONT]
[FONT=Courier New]'what you want goes here..[/FONT]
[FONT=Courier New]end sub[/FONT]

 

[djossh]

Thanks Pedie.. thanks also chuckchuckit.. Pedie's code is what im really looking for.. I think putting date in a cell is not an option.. i might delete the date accidentally and for sure if its happened my macro wont work..thanks guys........

2 beers for both of you..thanks

I thought you can handle from there sorry...
then something like this...

[/FONT]
[FONT=Courier New]Private Sub Workbook_Open()[/FONT]
[FONT=Courier New]Application.OnTime TimeValue("13:30:00"), "MyMacro"[/FONT]
[FONT=Courier New]'here mymacro stands for macro name you want to run when the time comes[/FONT]
[FONT=Courier New]End Sub[/FONT]
 
 
[FONT=Courier New]sub MyMacro()[/FONT]
 
[FONT=Courier New]if date <> "1/30/2011" then exit sub[/FONT]
[FONT=Courier New]'what you want goes here..[/FONT]
[FONT=Courier New]end sub[/FONT][/QUOTE]