Auto fill date when row changes

[lilgreen]

Hello,

I am trying to find a way for an automatic date stamp to be populated into a field (Col J) in a row when any other cell contained within the same row is changed or modified.

[FONT=Helvetica, Arial, Verdana, sans-serif]I know this is easy just haven't figured it out[/FONT]

 

[Joe4]

Are they being changed manually or by formula?

If manually, right-click on the Sheet tab name at the bottom of the screen, select View Code, and paste this VBA code in the resuling VB Editor window.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim cell As Range
    
    Application.ScreenUpdating = False
    
    For Each cell In Target
        Application.EnableEvents = False
        Cells(cell.Row, "J") = Now()
        Application.EnableEvents = True
    Next cell
    
    Application.ScreenUpdating = True
    
End Sub

This should do what you want.

 

[lilgreen]

This works perfectly. The only thing I see that could be a problem, I just now thought of it, is if I make any changes to any header it is going to change the header I have for that column to the date changed. I should have thought of it.

 

[Joe4]

What rows are you headers in?
We can explicitly exclude certain rows, if you like.

 

[lilgreen]

first row only
Thank you

 

[Joe4]

This should do it:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim cell As Range
    
    Application.ScreenUpdating = False
    
    For Each cell In Target
        Application.EnableEvents = False
        [COLOR=#ff0000]If cell.Row > 1 Then [/COLOR]Cells(cell.Row, "J") = Now()
        Application.EnableEvents = True
    Next cell
    
    Application.ScreenUpdating = True
    
End Sub

 

[lilgreen]

This is perfect thank you

 

[Joe4]

You are welcome.