Username Stamp

C

ceiker

New member
Joined
Feb 7, 2018
Messages
8
Reaction score
0
Points
0
Excel Version(s)
Office 2016
Is there a way to stamp the username into a cell at the end of the row if a change is made to the date in that row? Look to track changes of a shared worksheet without having to use the "Show Changes" tool and scroll through to find the user that changed the cell.

Thank you
 
Simple enough, use the worksheet change event

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)

    On Error GoTo wsc_exit
    
    Application.EnableEvents = False


    With Target
    
        Me.Cells(.Row, Me.Columns.Count).End(xlToLeft).Offset(0, 1).Value = Environ("Username")
    End With


wsc_exit:
    Application.EnableEvents = True
End Sub
 
Bob,

Thank you
 
You must log in or register to reply here.
Back
Top