Record name of person entering data in cell

[bnpdkh]

I have a macro that time stamps when data is entered in specific cell which works fine but I need to record the username as well. any help or links to information regarding this would be appreciated.

 

[Somendra Misra]

Hi,

What is this username? Is is system name/User entry any username when opening a file?

Regards,

 

[bnpdkh]

maybe I did not state this right, I want to record who entered comments in cell range V9:V306. I have macro to time stamp when comments entered

 

[prasaddn]

Try adding the line after your time stamp code:

Range(address).value = Application.username

regards,
Prasad DN

 

[Somendra Misra]

You must understand, Excel can't recognize a user from his face. You have to specify somewhere a list of users plus a selection by them for their username so that Excel know what to put in as a username.

Regards,

 

[bnpdkh]

Ok, I have used the following to track date, and I want to convert it to Track name using Environ. Not working, keep getting complie error, any suggestions.

Sub Track_Name(ByVal Target As Range)
  ActiveSheet.Unprotect Password:="ken"
        With Target
            If .Count > 1 Then Exit Sub
            If Not Intersect(Range("V9:V306"), .Cells) Is Nothing Then
                Application.EnableEvents = False
                If IsEmpty(.Value) Then
                    .Offset(0, 5).ClearContents
                Else
                    With .Offset(0, 5)
                        '.NumberFormat = "dd mmm yy"
                        .Value UNameWindows = Environ("USERNAME")
 
                    End With
           
                End If
                Application.EnableEvents = True
            End If
        End With
  ActiveSheet.Protect Password:="ken"
    End Sub

 

[shrivallabha]

This line is incorrect.

.Value UNameWindows = Environ("USERNAME")

Following should work

.Value = Environ("USERNAME")

You might also want this to test:

.Value = application.UserName

 

[bnpdkh]

That was the issue, works perfectly now. Really appreciate the help with this issue. Thanks Shrivallabha SOLVED!!!!

 

[bnpdkh]

Actually, I just noticed a little issue. The macro works well and adds the username as required, however, if the text in intersect cell is deleted after the workbook has been saved the username still appears even though there is no datat in intercect range cell. Not sure where or what to add to formula to clear offset range if intercect range cell is empty. Any ideas??