VBA row last updated help

[Alimarie]

Hi all,

Wondering if you can help me with some VBA code.

I would like to identify the date when a row was last updated.
I'd like this date to be recorded in column B.
Data is recorded in columns C to AI.

Could someone please help me out with what to post in VBA? I'm going round in circles.

Thanks!!

 

[Joe4]

Welcome to the Board!

The following code will write a Date/Time stamp to column B with any cell in columns C:A1 is manually updated.
Just right-click on the worksheet name at the bottom of your worksheet, select View Code, and paste this VBA code in the VB Editor window:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim rng As Range
    Dim cell As Range
    
'   Find if cell updated in our "watched" range
    Set rng = Intersect(Target, Columns("C:AI"))

'   Exit if no cells updated
    If rng Is Nothing Then Exit Sub
    
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    
'   Loop through all cells just updated
    For Each cell In rng
        Cells(cell.Row, "B") = Now()
    Next cell
    
    Application.ScreenUpdating = True
    Application.EnableEvents = True

End Sub

 

[Alimarie]

This w

Welcome to the Board!

The following code will write a Date/Time stamp to column B with any cell in columns C:A1 is manually updated.
Just right-click on the worksheet name at the bottom of your worksheet, select View Code, and paste this VBA code in the VB Editor window:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim rng As Range
    Dim cell As Range
   
'   Find if cell updated in our "watched" range
    Set rng = Intersect(Target, Columns("C:AI"))

'   Exit if no cells updated
    If rng Is Nothing Then Exit Sub
   
    Application.EnableEvents = False
    Application.ScreenUpdating = False
   
'   Loop through all cells just updated
    For Each cell In rng
        Cells(cell.Row, "B") = Now()
    Next cell
   
    Application.ScreenUpdating = True
    Application.EnableEvents = True

End Sub

This worked perfectly. Thank you so much!

 

[Joe4]

You are welcome.
Glad I was able to help.