Date Stamp for a single cell

[jtsains]

I am trying to create a date stamp for a single cell. My intent is to have a read only copy of a workbook that when opened will populate the date. Then when the document is emailed to another user, the date will remain the same as the original date, even after reopening it.

Since it is a read only document, when the document is closed by the original user, it will reset and date stamp again the next time it is opened.


Any suggestions on how to make this happen? I have seen code on how to make a range of cells date stamp, but I can't make it work for my specific situation.

Cell B5 is where the date stamp should reside and not change when emailed to the other user.

Thank you in advance for your support.

 

[VoG]

I don't see how this is possible with a read-only workbook. You could add the timestamp but you wouldn't be able to save it

 

[jtsains]

After several hours of research, i found what i needed. Here is the code incase anyone ever needs it.

Public Function Stamp() As String
Stamp = (Date)
End Function

Then in the cell needing the data add the formula =Stamp()



Yeah me!

 

[VoG]

You could have just pressed CTRL + ;

 

[jtsains]

That's true if i was the one entering the data every time, but when you have 80 people using the sheet and they don't know that then it is easier to make the formula do it for them.

 

[jtsains]

One correction is to add the formula below to the cell where you want the date stamp. (in this formula, it assumes that B12 is a field that will be manually updated by the user. Then once B12 is updated to include data, the date stamp will be added.


=IF(B12="","",Stamp())

 

[jtsains]

In addition, if you want a date stamp to stick based on a cell update, you could also use this code and no formula in the cell:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C1")) Is Nothing Then
Target.Offset(0, 2) = Date
End If
End Sub

Whereas cell C1 is the updated cell and Cell E1 is the cell to stamp the date.

This formula can be used with columns instead of just a single cell, but for my purposes this solved my support needs. hopefully my research can be used by others too.