Change event - Inputing date into specific column

[everettjsj2]

I am working on a macro that will input the current date into a row in column "F" when any value in that row for columns "A" "B" and "C" is altered. It is so we can track changes to the database.

it works so far with the following code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

If Not Intersect(Target, Range("A2:b100")) Is Nothing Then

With Target(1, 5)

.Value = Date

.EntireColumn.AutoFit

End With

End If

End Sub

the problem is obviously the "With Target(1, 5)" offsets too far if the value in B or C changes. I just need the date to be inputted into column F for the same row that is changed.

any help would be appreciated!

[sweep]

Hi and welcome,

Please edit your post so that the code is between code tags - it makes it easier to read, and is required as part of the forum rules.

Try this for your issue

Please Login or Register  to view this content.

[DonkeyOte]

If you want to be able to update multiple rows simultaneously then you could use a version along the lines of:

Please Login or Register  to view this content.

It's always wise (IMO) to disable events when changing the sheet against which you have applied a Change event to avoid at best a needless event call or at worst a perpetual loop.

The above is coded such that if the target is cleared then so too is the date (remove adapt as necessary).