I would like to add a date and time stamp to a cell in Excel 2010 by hitting save

Hello All,

I hope everyone is having a good day. I am new to the forum as of today and I might as well be just as new to Macros/VBA codes.

I am struggling to be able to insert a code that will give me a date and time stamp in a given cell after I hit the save button.

I have this same function in a separate excel sheet that was emailed to me but it seems it is tied to another sheet that I don't have access to because when I open the visual basic dialogue box there is no code present.

Basically, within this sheet that was emailed to me, when I hit SAVE a pop up window appears that says "UPDATE" and withing the box it asks....would you like to update CELL D2 with the current date and time?

At this point, I can either day YES, NO, or CANCEL.

I would like to recreate this code in a new sheet but I have no idea how to do so. I have browsed these forums and pasted codes into my document but I can't get anything to function.

Also, is there a way to create a copy of the document after it is saved and timestamped?

I appreciate any help that can be provided.

Originally Posted by Richard Buttrey

Look in the VB Environment for the Workbook_BeforeSave event macro. That's where you'll find the code that causes the pop up message box. In that macro just add the following

Please Login or Register  to view this content.

where Sheet1 is the VB Code name of the sheet in which you want to see the Date & Time.

To Create a Copy just add a line of code

Please Login or Register  to view this content.

Richard,

Thank you so much for the prompt reply. I have stepped away from my computer for a moment but I will try these steps as soon as I'm back on. Again I really appreciate it

Hello,

I've been trying to accomplish the above code but I have been unsuccessful. I don't have any code present in my VB Environment.

I am looking at a blank window in VBA Project box.

What is the entirety of the code I should see?

Richard,

Thank you. I have made it to the point described above. Would you be able to walk me through the codes you described above regarding input of the date and time stamp and creating a copy of the file?

I have input Sheet1.Range("A1") = Now
and below that,

ActiveWorkbook.SaveAs Filename:="test"

I am not seeing this macro run in my sheet yet, however. Have i entered the code incorrectly? How do I choose where to save the copied files?

Okay Richard,

I have successfully gotten the time stamp macro to run, thanks to you!

I am still having trouble with creating a copy for my sheet. I would like to create a copy every time the file is saved and store the copy in a specific location....is this possible?