Automatic Date Stamp



Hi Everyone,

Is there a way to put in "DATE STAMP" in a Column if someone is modifying a
particular row?
Let's say if someone is modifying Row 10 of Any Column A-F, then put in a
Date Stamp that say "Modified by Username <DATE>". I believe the username
can be pull off from the username of the Excel Application.
And this Date Stamp should be automatically updated if another person make
any modification to Row 10 again.

Thanks for any suggestion.



Hi Niek,

Thank you for the link you posted.
Can you make a small change to the code so that the Date Stamp stay in a
certain assigned column range, instead of using the Offset?

I tried using Range ("C2:C10") but then the Date Stamp show up the whole
range instead of BASE upon the data entry of each row.

Thank you,


This is event code; it needs to go under the sheet that you are working on:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("$A$1:$b$400")) Is Nothing Then
Application.EnableEvents = False
Application.ScreenUpdating = False
With Worksheets("Sheet2")
.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Target.Address
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Target.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Now()
ActiveCell.NumberFormat = "mm/dd/yy"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = InputBox("You've made a change to the Rates tab.
Please enter your name here for historical purposes.")
Application.EnableEvents = True
Application.ScreenUpdating = True
End With
End If
End Sub

....reset the target range.


Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question