Macro for updating 2 columns timestamp

Hi All,

using the current macro (found it somewhere, cant remember where) to timestamp one column whenever column "A" is updated:

Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer
Set WorkRng = Intersect(Application.ActiveSheet.Range("A:A"), Target)
xOffsetColumn = 6
If Not WorkRng Is Nothing Then
Application.EnableEvents = False
For Each Rng In WorkRng
If Not VBA.IsEmpty(Rng.Value) Then
Rng.Offset(0, xOffsetColumn).Value = Now
Rng.Offset(0, xOffsetColumn).NumberFormat = "m/dd/yyyy hh:mm am/pm"
Else
Rng.Offset(0, xOffsetColumn).ClearContents
End If
Next
Application.EnableEvents = True
End If
End Sub

Is working great but i also want to do the same for column "I", whenever it is updated. Not very familiar with macros so any help is appreciated. Thank you in Advance!

Please Login or Register  to view this content.

This did not work, when i input data into "A" and "I" it did not update the timestamps.

Originally Posted by rcm

Please Login or Register  to view this content.