View Single Post
  #4   Report Post  
Cie
 
Posts: n/a
Default

Bernie: Thanks for the information but, I don't understand what a Private Sub
Worksheet is nor the information that follows. I think the information that
follows is the formula which I can follow but, am still learning and need a
little more guidance.

Thanking you in advance.

"Bernie Deitrick" wrote:

Cie,

Then you need to use a worksheet change event to do that: for example, for
any cell in column L, the date when the entry is made is stored in column M
using this code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myCell As Range
If Intersect(Target, Range("L:L")) Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each myCell In Intersect(Target, Range("L:L"))
myCell(1, 2).Value = Int(Now)
myCell.NumberFormat = "mm/md/yy"
Next myCell
Application.EnableEvents = True
End Sub

Copy this code, right-click on the worksheet tab, select "View Code" and
paste the code in the window that appears.
HTH,
Bernie
MS Excel MVP


"Cie" wrote in message
...
I'm using the following formula
=IF(L8<"",TEXT(TODAY(),"mm/dd/yy"),"")

My problem is, everytime I go back to this spreadsheet, the date will

change
to the current date. I DO NOT want the date to change. The date needs to
remain the same date as when the data was entered.