datestamp a specific column when a cell is modified

Hello all,

I'm stretching my abilities slightly here so please forgive me if I'm asking a stupid question.

I'm looking to input a time/ date stamp on a spreadsheet when anybody modifies a cell. I have found a code that works almost perfectly.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
If Not Intersect(Target, Range("A:H")) Is Nothing Then
Application.EnableEvents = False
Target.Offset(, 1) = Format(Now, "dd/mm/yyyy hh:mm")
Application.EnableEvents = True
End If
End Sub

This is where I ask the stupid question, how do I get the date/ time stamp to appear in column I only as opposed to offset 1 cell over from where the change has been made.
I've had a look around and tried some other solutions, all of which appear to offset the timestamp rather than populating a predefined column.

Any help/ suggestions would be appreciated. Thanks in advance for your help.

Try changing:

Target.Offset(, 1) = Format(Now, "dd/mm/yyyy hh:mm")

to

Intersect(Target.EntireRow, Columns("I")) = Format(Now, "dd/mm/yyyy hh:mm")

Change:

Target.Offset(, 1) = Format(Now, "dd/mm/yyyy hh:mm")

To:

Cells(Target.Row, "I") = Format(Now, "dd/mm/yyyy hh:mm")

Thank you both.

Both solutions work perfectly.

I have returned again!

I'm looking to add to the above date stamp code by including the user who modified the cell. I'm trying this (below) but with no joy. Any help would be greatly appreciated.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
If Target.Address = "$A$1" Then
Application.EnableEvents = False
Target.Offset(, 1) = Format(Now, "dd/mm/yyyy hh:mm")
Target.Offset(, 2) = Environ("USERNAME")
Application.EnableEvents = True
End If
End Sub

I'm afraid I haven't learned much since the last time asked so please excuse me if I'm making obvious errors. "Every days a learning day"

What's not happening that you want too happen? It seems to work for me.

Hi,

I'm doing the same for the date time stamp and updated by username. But I got an additional question.

(1) I got a row which is the header but I do not want the formula to run on this header if I made changes to it. How do I tweak this codes?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
If Not Intersect(Target, Range("A:X")) Is Nothing Then
Application.EnableEvents = False
Intersect(Target.EntireRow, Columns("Y")) = Now()
Intersect(Target.EntireRow, Columns("X")) = Environ("USERNAME")
Application.EnableEvents = True
End If
End Sub

(2) If I insert a row, the system will prompt debug. How do I overcome this?

Your expertise in this is greatly appreciated.
Thank you.

thank you for the reply.