How To Date and Timestamp Automatically When Another Cell Changes

[tjeacret]

Hello! I have a question on how to make this work. I need Cell E1 to update automatically with the current date and time stamp when a cell in range A5:O21 changes. How can I make that happen? Thanks for your help!

 

[T. Valko]

Hello! I have a question on how to make this work. I need Cell E1 to update automatically with the current date and time stamp when a cell in range A5:O21 changes. How can I make that happen? Thanks for your help!

See this:

http://www.mcgimpsey.com/excel/timestamp.html

 

[tjeacret]

So I tried that, got it in there. When I paste data into the cell range, it doesn't time stamp. If I physically enter data, it does. I need this to work when data may be pasted in as well. Any ideas?

 

[T. Valko]

So I tried that, got it in there. When I paste data into the cell range, it doesn't time stamp. If I physically enter data, it does. I need this to work when data may be pasted in as well. Any ideas?

Sorry, I'm not sure how to deal with that.

We'll have to wait for someone else to stop by and make a suggestion.

 

[grizz]

paste this in your worksheet --- you may have to format your cell

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A521")) Is Nothing Then
Range("E1").Value = Now()
Application.EnableEvents = True
End If
End Sub

 

[epyzdrh]

Hi,

I've used the mcgimpsey link and it works great but how do I go about editing the VB code so that I can repeat it for other columns. My input columns are A. C and E and my timestamp columns are B, D and F. As data is entered into A, C or E they need to output their own timestamp. Any ideas?

Thanks,
Dave

 

[VoG]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
Select Case Target.Column
    Case 1, 3, 5
        If Target.Value = "" Then
            Target.Offset(, 1).ClearContents
        Else
            Target.Offset(, 1).Value = Now
        End If
End Select
Application.EnableEvents = True
End Sub