Results 1 to 3 of 3

Thread: Username Stamp

  1. #1
    Seeker ceiker's Avatar
    Join Date
    Feb 2018
    Posts
    8
    Articles
    0
    Excel Version
    Office 2016

    Username Stamp



    Register for a FREE account, and/
    or Log in to avoid these ads!

    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

  2. #2
    Super Moderator Bob Phillips's Avatar
    Join Date
    Mar 2011
    Posts
    1,938
    Articles
    0
    Excel Version
    O365
    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

  3. #3
    Seeker ceiker's Avatar
    Join Date
    Feb 2018
    Posts
    8
    Articles
    0
    Excel Version
    Office 2016
    Bob,

    Thank you

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •