gruhnelliot
New Member
- Joined
- Jun 4, 2013
- Messages
- 14
I have a VBA in this workbook (pictured below) that generates a user log each time a user logs in. Column A displays the username. Column B displays the date and time. I would like for column C to show which worksheet they accessed. Is this possible?
I attached the VBA underneath the photo.
Dim wksuserlog As Worksheet
Dim lngnextrow As Long
On Error Resume Next
Set wksuserlog = ThisWorkbook.Worksheets("User Log")
On Error GoTo ExitProc
If wksuserlog Is Nothing Then
Set wksuserlog = ThisWorkbook.Worksheets.Add
wksuserlog.Name = "User Log"
wksuserlog.Range("a1:b1").Value = Array("Username", "Date_time")
End If
With wksuserlog
lngnextrow = .cells(.Rows.Count, "a").End(xlUp).Row + 1
.cells(lngnextrow, "a").Value = Environ("Username")
.cells(lngnextrow, "b").Value = Now()
.Columns("a:b").AutoFit
I attached the VBA underneath the photo.
Dim wksuserlog As Worksheet
Dim lngnextrow As Long
On Error Resume Next
Set wksuserlog = ThisWorkbook.Worksheets("User Log")
On Error GoTo ExitProc
If wksuserlog Is Nothing Then
Set wksuserlog = ThisWorkbook.Worksheets.Add
wksuserlog.Name = "User Log"
wksuserlog.Range("a1:b1").Value = Array("Username", "Date_time")
End If
With wksuserlog
lngnextrow = .cells(.Rows.Count, "a").End(xlUp).Row + 1
.cells(lngnextrow, "a").Value = Environ("Username")
.cells(lngnextrow, "b").Value = Now()
.Columns("a:b").AutoFit