Adding timestamp of recent changes on any cell within a row

[boboyad]

I saw this code before on another post

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Row < 8 Then Exit Sub
If Target.Column > 43 Then Exit Sub
Cells(Target.Row, "AR") = Date
End Sub

This works perfectly. However I also want to show the time and which cell in that row was modified.

Thanks!

 

[offthelip]

welcome to the forum, try this;

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Row < 8 Then Exit Sub
If Target.Column > 43 Then Exit Sub
Cells(Target.Row, "AR") = Now()
Cells(Target.Row, "AS") = Target.Address


End Sub

Note I haven't formated column AR since you can format just for the time , just the date or date and time

 

[boboyad]

You're a godsend!!
Sorry if it's too much to ask but is it possible to add the user as well?

 

[offthelip]

Yes you can just add this line to the end of the code ( before the END sub):

Cells(Target.Row, "AT") = Application.UserName

 

[boboyad]

Yes you can just add this line to the end of the code ( before the END sub):

Cells(Target.Row, "AT") = Application.UserName

Thank you very much!! Very helpful!

 

[Joe4]

Yes you can just add this line to the end of the code ( before the END sub):

Cells(Target.Row, "AT") = Application.UserName

I don't know about you, but on my computer:

 Application.UserName

returns "Microsoft".

To get my logged in UserName, I need use:

Environ("UserName")

 

[boboyad]

I don't know about you, but on my computer:

 Application.UserName

returns "Microsoft".

To get my logged in UserName, I need use:

Environ("UserName")

Would this work in organisational computers?

Should I type:
Cells(Target.Row, "AT") = Environ("Username")

 

[offthelip]

Interesting because On mine it returns my Microsoft account name!! , This could be because I operate on 2010 not 365!!
Eviron("Username") returns the user name which I use to log into the computer ( which is not the same because I use a local account)

 

[Joe4]

Would this work in organisational computers?

Should I type:
Cells(Target.Row, "AT") = Environ("Username")

I am on a work network myself.
Just use whichever one gives you your desired results.

 

[Joe4]

Interesting because On mine it returns my Microsoft account name!! , This could be because I operate on 2010 not 365!!

Are you on a home PC or work network?