Date, Time and Name of last modification in specific cell range

[kingnitwit]

Hi,

I'm quite new to VBA and having trouble figuring out how to make this work.
I have an excel sheet with information linked to specific accounts. When someone modifies the information in that specific row, I want the cells in a specific column to show who has last modified that specific row/cell range and on which date and time.

I have found the following code here which creates a function for date and time, but no name:

Public Function Lastmodified(c As Range)


Lastmodified = Now()


End Function

I then found this code here, which provides me with Date, Time and user, but only for the entire sheet, rather than a specific range.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Sh.Range("T56") = "Revised: " & Format(Date, "mm/dd/yyyy") & " at " & Format(Time, "hh:mm AMPM") & " by " & Application.UserName
End Sub

Could you help me out with a code that will provide me with date, time and user per a certain range/row?
Any help would be greatly appreciated

 

[RoryA]

Welcome to the forum.

A small change to the first function might be:

Public Function Lastmodified(c As Range)


Lastmodified = Application.Username & ": " & Now()


End Function

 

[kingnitwit]

well that was quick.
Perfect fix, thanks!

 

[RoryA]

We aim to please.

 

[harveya915]

I noticed that using the Application.Username inserts the name that the computer is registered as (if it makes sense). Is there a way to make it only show the first name or the initials?

 

[RoryA]

Application.Username returns whatever is shown in the User information in Excel. If you want the Windows login name, you can use Environ("username") instead.