how to add a date when opening up the worksheet

[dmcgov]

so i have a worksheet "Production Timesheet Checklist" that has a field with a date in it.

i need a macro that adds "7" to a date field ("B1"). Also need the macro to ask if the date should be updated.

i guess i need the worksheet open function to make this work. not sure of what else i need to do.

thoughts everyone?

[Logit]

Try this:

Please Login or Register  to view this content.

[Richard Buttrey]

There's no 'worksheet' open event. Did you mean the 'workbook' open event, or perhaps the sheet Activate event?

[Winon]

Hello dmcgov,

Please try this Code:

Please Login or Register  to view this content.

[dmcgov]

thanks logit and richard.

winon, i like your code but i changed the "Range("G1").Value to 7 and now it works the way i was expecting it to. Thanks very much for your code. Gold stars all around.

[dmcgov]

one question for winon, when i set the workbook_open in the ThisWorkbook, the macro fails on the B1 line. thoughts?

Please Login or Register  to view this content.

the error is "run time error 1004, method range of object _Global failed

[dmcgov]

so nevermind, i figured it out. just needed to source the range, like so:

Please Login or Register  to view this content.

[Winon]

Thank you for the continued interest dmcgov,

Very well done, you do me proud with your initiative! WOW!

Instead of the Sheet Name you could also use the Sheet Index No. as shown in the Code below:

Please Login or Register  to view this content.

Please note that the Exit Sub Line has been removed, since it is not required. you Can do the Same in the Sheet Code.

You are welcome, glad I could help. Also thank you for the Rep, I appreciate it.!

Kind Regards.

[dmcgov]

Thanks again Winon for all your help. Your the bomb!

[Logit]

Glad you got it worked out. Thanks for the add rep.