I have been able to use a timestamp in 2 different columns corresponding to the column next to it. But I would like to add a third column, the range will not allow another column to be added.
using this code :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim keyRange As Range
Set keyRange = Range("b13:b65536", "d13:d65336")
Application.EnableEvents = False
If Not Intersect(keyRange, Target) Is Nothing Then
If Target <> "" Then
Target.Offset(0, -1) = Now
Else
Target.Offset(0, -1) = ""
End If
End If
Application.EnableEvents = True
End Sub
any help would be greatly appreciated
using this code :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim keyRange As Range
Set keyRange = Range("b13:b65536", "d13:d65336")
Application.EnableEvents = False
If Not Intersect(keyRange, Target) Is Nothing Then
If Target <> "" Then
Target.Offset(0, -1) = Now
Else
Target.Offset(0, -1) = ""
End If
End If
Application.EnableEvents = True
End Sub
any help would be greatly appreciated