Running multipile macros in the same sheet - vba

Question

I am trying to run a macro that will fill in the date and time when something has been updated, but I need to have it happen twice in the same row.
I have it set up to fill in column B+C when initials are entered in column A, but I would like to to run when someone enters another value in column N
Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As Range, B As Range, Inte As Range, r As Range
Set A = Range("A:A")
Set Inte = Intersect(A, Target)
If Inte Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each r In Inte
If r.Value > 0 Then
r.Offset(0, 1).Value = Date
r.Offset(0, 1).NumberFormat = "mm-dd-yy"
r.Offset(0, 2).Value = Time
r.Offset(0, 2).NumberFormat = "hh:mm AM/PM"
Else
r.Offset(0, 1).Value = ""
r.Offset(0, 2).Value = ""
End If
Next r
End Sub

Answer 1

You just need to test what the Address/location of the Target range is:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Select Case Target.Column
Case 1 ' "A"
Dim A As Range, B As Range, Inte As Range, r As Range
Set A = Range("A:A")
Set Inte = Intersect(A, Target)
If Inte Is Nothing Then Exit Sub
For Each r In Inte
If r.Value > 0 Then
r.Offset(0, 1).Value = Date
r.Offset(0, 1).NumberFormat = "mm-dd-yy"
r.Offset(0, 2).Value = Time
r.Offset(0, 2).NumberFormat = "hh:mm AM/PM"
Else
r.Offset(0, 1).Value = ""
r.Offset(0, 2).Value = ""
End If
Next r
Case 14 ' "N"
' Do something else
End Select
Application.EnableEvents = True ' <-- Don't forget to turn this back on!
End Sub
Further, since such an approach can get unwieldy, it's often a good idea to break down your methods. (Smaller methods are almost always better.)
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Select Case Target.Column
Case 1, ' "A"
Call AddDatesAfterInitialsEntered(Target)
Case 14 ' "N"
' Do something else
End Select
Application.EnableEvents = True ' <-- Don't forget to turn this back on!
End Sub
Private Sub AddDatesAfterInitialsEntered(Target As Range)
Dim A As Range, B As Range, Inte As Range, r As Range
Set A = Range("A:A")
Set Inte = Intersect(A, Target)
If Inte Is Nothing Then Exit Sub
For Each r In Inte
If r.Value > 0 Then
r.Offset(0, 1).Value = Date
r.Offset(0, 1).NumberFormat = "mm-dd-yy"
r.Offset(0, 2).Value = Time
r.Offset(0, 2).NumberFormat = "hh:mm AM/PM"
Else
r.Offset(0, 1).Value = ""
r.Offset(0, 2).Value = ""
End If
Next r
End Sub