Multiple Worksheet_Change

[sr7]

HEllo, I am trying to build two timestamps in the same row that trigger from different cell changes.
When column B changes, timestamp in column F
When Column L changes, Timestamp in column M

My second timestamp wont work. any ideas? Heres my code:

'timestamps

Private Sub Worksheet_Change(ByVal Target As Range)
Call EventChange_1(Target)
Call EventChange_2(Target)
End Sub


'assign timestamp

Sub EventChange_1(Target)
Dim F As Range, B As Range, t As Range

Set F = Range("F:F")
Set B = Range("B:B")
Set t = Target

If Intersect(t, B) Is Nothing Then Exit Sub

Application.EnableEvents = False
Range("F" & t.Row).Value = Now
Application.EnableEvents = True
End Sub

'Complete timestamp
Sub EventChange_2(Target)
Dim M As Range, L As Range, t As Range

Set M = Range("M:M")
Set L = Range("L:L")
Set t = Target

If Intersect(t, L) Is Nothing Then Exit Sub

Application.EnableEvents = False
Range("M" & t.Row).Value = Now
Application.EnableEvents = True
End Sub

 

[StephenCrump]

Welcome to the Forum!

My second timestamp wont work. any ideas? Heres my code:

Your code "works" for me, in the sense that it behaves exactly as I'd expect.

Can you please provide more detail? When you say the code doesn't work, what cell changes are you making?

 

[My Aswer Is This]

Try this:

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  11/16/2021  9:24:54 PM  EST
If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub

    Select Case Target.Column
        Case 2
            Target(, 5).Value = Now
        Case 12
            Target(, 2).Value = Now
    End Select
End Sub

 

[sr7]

Welcome to the Forum!



Your code "works" for me, in the sense that it behaves exactly as I'd expect.

Can you please provide more detail? When you say the code doesn't work, what cell changes are you making?

Thanks for the Welcome and for looking at this. it seems to be working now!

Welcome to the Forum!



Your code "works" for me, in the sense that it behaves exactly as I'd expect.

Can you please provide more detail? When you say the code doesn't work, what cell changes are you making?

 

[StephenCrump]

it seems to be working now!

That's good to hear, thanks.

@My Aswer Is This has provided more succinct code you also might like to try. At the moment, it's set up to deal with only cell changing at a time, but this can easily be changed to more than one row/column if you envisage the user changing multiple cells at once and you want to time-stamp all relevant cells?