Insert Microsoft user's name into cell

[DaRTH KiRo]

Is there a code or formula I can put in place that will enter the Microsoft user's name or email, who is in the excel sheet, in column N when text is entered in column A?

 

[Fluff]

How about

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column = 1 Then
      Target.Offset(, 13).Value = Environ("Username")
   End If
End Sub

 

[DaRTH KiRo]

How about

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column = 1 Then
      Target.Offset(, 13).Value = Environ("Username")
   End If
End Sub

So I'm not super great at vba, how would I incorporate that code into the below code I already have?

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim WorkRng1 As Range
    Dim WorkRng2 As Range
    Dim WorkRng As Range
    Dim Rng As Range
    Dim xOffsetColumn As Integer
    
    Set WorkRng1 = Intersect(Application.ActiveSheet.Range("J:J"), Target)
    Set WorkRng2 = Intersect(Application.ActiveSheet.Range("L:L"), Target)
    
    If Not WorkRng1 Is Nothing Then
        If Not WorkRng2 Is Nothing Then
            Set WorkRng = Application.Union(WorkRng1, WorkRng2)
        Else
            Set WorkRng = WorkRng1
        End If
    Else
        If Not WorkRng2 Is Nothing Then
            Set WorkRng = WorkRng2
        End If
    End If
    
    xOffsetColumn = 1
    
    If Not WorkRng Is Nothing Then
        Application.EnableEvents = False
        For Each Rng In WorkRng
            If Not VBA.IsEmpty(Rng.Value) Then
                Rng.Offset(0, xOffsetColumn).Value = Now
                Rng.Offset(0, xOffsetColumn).NumberFormat = "mm-dd-yyyy, hh:mm:ss"
            Else
                Rng.Offset(0, xOffsetColumn).ClearContents
            End If
        Next
        Application.EnableEvents = True
    End If
    
End Sub

 

[Fluff]

How about

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim WorkRng1 As Range
    Dim WorkRng2 As Range
    Dim WorkRng As Range
    Dim Rng As Range
    Dim xOffsetColumn As Integer
    
    Set WorkRng1 = Intersect(Application.ActiveSheet.Range("J:J"), Target)
    Set WorkRng2 = Intersect(Application.ActiveSheet.Range("L:L"), Target)
    
    If Target.Column = 1 Then
       Target.Offset(, 13).Value = Environ("Username")
    End If

    If Not WorkRng1 Is Nothing Then
        If Not WorkRng2 Is Nothing Then
            Set WorkRng = Application.Union(WorkRng1, WorkRng2)
        Else
            Set WorkRng = WorkRng1
        End If
    Else
        If Not WorkRng2 Is Nothing Then
            Set WorkRng = WorkRng2
        End If
    End If
    
    xOffsetColumn = 1
    
    If Not WorkRng Is Nothing Then
        Application.EnableEvents = False
        For Each Rng In WorkRng
            If Not VBA.IsEmpty(Rng.Value) Then
                Rng.Offset(0, xOffsetColumn).Value = Now
                Rng.Offset(0, xOffsetColumn).NumberFormat = "mm-dd-yyyy, hh:mm:ss"
            Else
                Rng.Offset(0, xOffsetColumn).ClearContents
            End If
        Next
        Application.EnableEvents = True
    End If
    
End Sub

 

[DaRTH KiRo]

T

How about

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim WorkRng1 As Range
    Dim WorkRng2 As Range
    Dim WorkRng As Range
    Dim Rng As Range
    Dim xOffsetColumn As Integer
   
    Set WorkRng1 = Intersect(Application.ActiveSheet.Range("J:J"), Target)
    Set WorkRng2 = Intersect(Application.ActiveSheet.Range("L:L"), Target)
   
    If Target.Column = 1 Then
       Target.Offset(, 13).Value = Environ("Username")
    End If

    If Not WorkRng1 Is Nothing Then
        If Not WorkRng2 Is Nothing Then
            Set WorkRng = Application.Union(WorkRng1, WorkRng2)
        Else
            Set WorkRng = WorkRng1
        End If
    Else
        If Not WorkRng2 Is Nothing Then
            Set WorkRng = WorkRng2
        End If
    End If
   
    xOffsetColumn = 1
   
    If Not WorkRng Is Nothing Then
        Application.EnableEvents = False
        For Each Rng In WorkRng
            If Not VBA.IsEmpty(Rng.Value) Then
                Rng.Offset(0, xOffsetColumn).Value = Now
                Rng.Offset(0, xOffsetColumn).NumberFormat = "mm-dd-yyyy, hh:mm:ss"
            Else
                Rng.Offset(0, xOffsetColumn).ClearContents
            End If
        Next
        Application.EnableEvents = True
    End If
   
End Sub

That is amazing, thank you so much!

 

[Fluff]

You're welcome & thanks for the feedback.