Freeze Time (Now()) ... again

[Chartman of the Bored]

I have a forumula that calculates the Friday of the current week:

=TODAY()-WEEKDAY(TODAY())+6

I'd like to "freeze" the date when someone saves the workbook.

I know this topic has been addressed before. For example:

http://www.mrexcel.com/board/viewtopic.php?topic=14767&forum=2

But I don't want to use a checkbox, as suggested by Tom. And I don't follow Juan Pablo's code, though I do know a bit of VBA (not enough, though).

Thanks in advance for any suggestions.

 

[Legacy 98055]

Hi
What does your formula have to do with the date and/or time the workbook is saved?
To send a date to a range, place this in the Workbook_BeforeSave procedure:
<pre>
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("YourSheetName").Range("A1").Value = Now 'date and time
'or
Sheets("YourSheetName").Range("A1").Value = Date 'just the date
End Sub

</pre>
Tom

 

[Chartman of the Bored]

On 2002-09-28 22:30, TsTom wrote:
Hi
What does your formula have to do with the date and/or time the workbook is saved?

I'm creating a worksheet for others to use and I just want a record of what week (as of each Friday) they entered the data. I'm just trying to make it easier for everyone, so they don't have to enter the date, and since I know they'll forget to use Friday and probably put that day's date, even if it's a Monday, Tues., etc.

Thanks for the code help. I'll try it.

 

[mnmhenry]

I would tend to put a line into a macro that copies and then paste's as a value. I have used this in some of my quotations... Its crude, but works well