Change the date when there is a change in another cell

[Kelly P]

I have an excel spreadsheet that I would like to have the date changed to the
current date when another cell value is changed. Is this possible?

 

[Mike H]

Yes it's possible but you don't provide much to go on.
Right click the sheet tab, view code and paste this in. When A1 changes A2
gets the date put in. You can have a range of cells and adjust the offeset

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Target.Offset(1, 0).Value = Date
End If
End Sub

Mike

 

[Jim Thomlinson]

Here is some code for you to try. It must be placed in the sheet you want to
react to the change. Right click the sheet tab and select view code... add
the following

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Application.EnableEvents = False
Range("B1").Value = Now()
Application.EnableEvents = True
End If
End Sub

If Cell A1 is changed then the current date (and time) is added to cell B1.
You can format the cell to not show the time.

 

[Kelly P]

Exactly what I wanted...thanks so much!

Here is some code for you to try. It must be placed in the sheet you want to
react to the change. Right click the sheet tab and select view code... add
the following

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Application.EnableEvents = False
Range("B1").Value = Now()
Application.EnableEvents = True
End If
End Sub

If Cell A1 is changed then the current date (and time) is added to cell B1.
You can format the cell to not show the time.

 

[Kelly P]

How would I get it to change throughout the whole sheet? What I have is a
list of products, I want a corresponding cell to automatically put in the
current date when the price field gets changed. Such as when A24 is changed
B24 puts in todays date.

 

[Kelly P]

Figured it out...thanks guys

How would I get it to change throughout the whole sheet? What I have is a
list of products, I want a corresponding cell to automatically put in the
current date when the price field gets changed. Such as when A24 is changed
B24 puts in todays date.