Populate User ID based on Cell value change

[DKUMAR45]

Hi Friends,

I have a spread sheet and multiple users are using it. I need to populate their system ID based on Cell value change or entered.

I am a new to VBA.

Can anyone help me how to write code to get and trigger the macro to get the user id in the column I want.

E.G. If there is column A to E and based on value entered or change I need his/her user ID/Log in ID populated in column F.

Thanks in advance,
DK

 

[dmt32]

Hi,
something like following may do what you want but be mindful that these things only work if user enables macros.

Place code in the required worksheets code page (right click tab>view code)

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Set rng = Me.Columns("A:E")
    If Not Intersect(Target, rng) Is Nothing Then
        Me.Cells(Target.Row, "F").Value = Environ("USERNAME") & " - " & _
                                          Format(Now(), "dd/mm/yyyy hh:mm")
    Else
        'do nothing
    End If
End Sub

I have added a date / time stamp to end of USERNAME but you can remove if not required.

Hope helpful

Dave

 

[DKUMAR45]

Hi,
something like following may do what you want but be mindful that these things only work if user enables macros.

Place code in the required worksheets code page (right click tab>view code)

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Set rng = Me.Columns("A:E")
    If Not Intersect(Target, rng) Is Nothing Then
        Me.Cells(Target.Row, "F").Value = Environ("USERNAME") & " - " & _
                                          Format(Now(), "dd/mm/yyyy hh:mm")
    Else
        'do nothing
    End If
End Sub

I have added a date / time stamp to end of USERNAME but you can remove if not required.

Hope helpful

Dave

This is exactly I was looking for. Great Help thanks

 

[DKUMAR45]

Hi....thank you. This is exactly I was looking for. Great. thanks