How to auto populate a column with who edited the corresponding row and the time

[SublimizeD]

Hello all!

Im having a hard time with my VBA.

Im attempting to fill column M with who modified the corresponding row. I want the code to populate all the way down. This is my current code.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rngCell As Range
If Intersect(Target, Range("A2:A250")) Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each rngCell In Target.Cells
rngCell = UCase(rngCell)
Next
End If
If Range("A2:A250").Value = "" Then
Exit Sub
Next
Range("M2:M250").Value = "Revised at: " & Now() & " by " & Application.UserName
Application.EnableEvents = True
End Sub

 

[Joe4]

Your code is all messed up. Your IF...END IF statements and FOR...NEXT loops do not line up.

See if this gives you what you want:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

    Dim rng As Range
    Dim rngCell As Range

    Set rng = Intersect(Target, Range("A2:A250"))
    If rng Is Nothing Then Exit Sub

    Application.EnableEvents = False
    
    For Each rngCell In rng
        rngCell = UCase(rngCell)
        Cells(rngCell.Row, "M") = "Revised at: " & Now() & " by " & Application.UserName
    Next

    Application.EnableEvents = True

End Sub