Timestamp when any cell in row is updated

[Novice86]

I would like a date & time timestamp to generate in column J when columns C, D, E,F, G, H, or I are updated in that same row. I am tracking status on 33 rows.

 

[mumps]

Copy and paste this macro into the worksheet code module. Do the following: right click the tab for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet and enter your data.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("C2:I34")) Is Nothing Then Exit Sub
    Range("J" & Target.Row) = Now()
End Sub

The macro assumes that your data starts in row 2 and goes down to row 34.

 

[Novice86]

Resurrecting this thread. I need another cell to timestamp when a cells in another column are updated. Below is my code, please help me fix it!!!

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("d2:d32")) Is Nothing Then Exit Sub
Range("I" & Target.Row) = Now()
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("j2:j32")) Is Nothing Then Exit Sub
Range("p" & Target.Row) = Now()
End Sub

 

[mumps]

First of all, you should be aware that you can have only one Worksheet_Change event associated with any worksheet. As you can see, I've combined the code into one macro. I wasn't sure if you also wanted the previous macro I suggested incorporated into this new one. If you do, it will require a small change. Please let me know.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("d2:d32,j2:j32")) Is Nothing Then Exit Sub
    If Target.Column = 4 Then
        Range("I" & Target.Row) = Now()
    ElseIf Target.Column = 10 Then
        Range("P" & Target.Row) = Now()
    End If
End Sub

 

[Novice86]

This works beautifully; thank you so much! Any chance you could provide a macro to clear cell contents of Column J cell when cell in Column D is updated?

 

[mumps]

How is column D updated, manually or as the result of a formula? It is always easier to help and test possible solutions if we could work with your actual file. Perhaps you could upload a copy of your file to a free site such as www.box.com. or www.dropbox.com. Once you do that, mark it for 'Sharing' and you will be given a link to the file that you can post here. Include a detailed explanation of what you would like to do referring to specific cells and worksheets. If the workbook contains confidential information, you could replace it with generic data.