Record the user ID when entering Data in row.

**bajdr47** · 10-21-2012, 05:26 PM

Evening All,

I have little knowledge of VBA, and can sometimes edit code but find it difficult to create from scratch.

My problem i need code to record in the first cell of every row (col A) the user name of the person recording (entering) the Data.

Thank you in Advance

Baj

**adam2308** · 10-21-2012, 05:45 PM

I take it you mean the first empty cell of each row in column A?

**bajdr47** · 10-21-2012, 05:52 PM

the first cell that the user will be allowed to enter data will be Col B, i hope to leave Col A hidden to facilitate the recording of data in each row and the User Id in the first cell (automated)

**adam2308** · 10-21-2012, 05:50 PM

Assuming that is what you mean. Try this

Worksheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = Environ$("username")

**HSV** · 10-21-2012, 05:51 PM

Like this?

Two options:
1). Application.username
2). Environ("Username")

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
 Cells(Rows.Count, 1).End(xlUp).Offset(1) = Application.UserName 
Application.EnableEvents = True
End Sub

**HSV** · 10-21-2012, 06:04 PM

Try.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
 If Target.Column = 1 Then
  MsgBox "the first cell that the user will be allowed to enter data will be Col B", vbExclamation, "Warning"
   Target.ClearContents
Else
   Cells(Rows.Count, 1).End(xlUp).Offset(1) = Application.UserName 'or Environ("Username")
  End If
Application.EnableEvents = True
End Sub

**bajdr47** · 10-21-2012, 06:08 PM

Gentlemen,

i have to apologies, but i have to log off. i will return tomorrow evening.

i will test your responses as soon as i can

Kind Regards

Baj