Last Modified Cell VBA

[Braaterz]

I found this code in a prior thread that is working but hoping someone can help modify for 2 issues.

1. If I highlight a row or range that contains row R, it places the =NOW() result in every column 4 to the right of each active cell. Is there a way to make sure it only does it related to the referenced column (R in this case)?

2. The code runs if you click to activate the cell, any way to make it only when the contents are actually modified?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   If Intersect(Target, Range("R4:R1000")) Is Nothing Then Exit Sub
    Target.Offset(0, 4) = Now()

End Sub

Thanks

 

[Joe4]

If you are just looking for a date/time stamp to record when a value in column R was last updated, it just needs to be in a Worksheet_Change event procedure, not Worksheet_SelectionChange.

Try this:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim rng As Range
    Dim cell As Range
    
    Set rng = Intersect(Target, Range("R:R"))
    
    If rng Is Nothing Then Exit Sub
    
    For Each cell In rng
        cell.Offset(0, 4) = Now()
    Next cell
        
End Sub

 

[Braaterz]

This works perfectly, thanks Joe4.

 

[Joe4]

You are welcome.