Richie_Rich
New Member
- Joined
- Nov 3, 2017
- Messages
- 2
Good Afternoon,
I have created a worksheet which will insert the date and time in column B when each row is entered. I would like to now add (stamp) the windows username to the same cell if possible.
This is the current code I run and would sincerely appreciate any help.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rInt As Range
Dim rCell As Range
Dim tCell As Range
Set rInt = Intersect(Target, Range("C13:C10000"))
If Not rInt Is Nothing Then
For Each rCell In rInt
Set tCell = rCell.Offset(0, -1)
Set tCell =
If IsEmpty(tCell) Then
ActiveSheet.Unprotect
tCell = Now
tCell.NumberFormat = "dd-mmm-yyyy HH:mm"
End If
ActiveSheet.Protect
Next
End If
End Sub
I have created a worksheet which will insert the date and time in column B when each row is entered. I would like to now add (stamp) the windows username to the same cell if possible.
This is the current code I run and would sincerely appreciate any help.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rInt As Range
Dim rCell As Range
Dim tCell As Range
Set rInt = Intersect(Target, Range("C13:C10000"))
If Not rInt Is Nothing Then
For Each rCell In rInt
Set tCell = rCell.Offset(0, -1)
Set tCell =
If IsEmpty(tCell) Then
ActiveSheet.Unprotect
tCell = Now
tCell.NumberFormat = "dd-mmm-yyyy HH:mm"
End If
ActiveSheet.Protect
Next
End If
End Sub
