Private Sub - run a different macro

[Rowanhf12]

I have the following code:

Private Sub Worksheet_Change(ByVal Target As Range)If Not Application.Intersect(Range("BA1:BA3"), Range(Target.Address)) Is Nothing Then
Call Part1V1
End If
End Sub


Sub QPart1V1()
    Dim CellRangeP1V1 As String
    CellRangeP1V1 = Range("AX6").Value
    Range("AU4").Select
    Selection.Copy
    Range("BA" & CellRangeP1V1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

This basically copies a value into the Range BA1:BA3, that then activates another Macro

At the moment, a value only gets copied into cell BA1 which activates macro:Part1V1
How do I make it so that when a value gets copied into cell BA2, it activates another macro?

Any help would be appreciated

Thank you

 

[Joe4]

If you want it to call different macros depending on whether the data is being pasted in BA1 or BA2, then you need to add a second check, and narrow the search to only check for that one cell instead of BA1:BA3.

So, your Worksheet_Change procedure would look something like this:

Private Sub Worksheet_Change(ByVal Target As Range)


'   Call macro Part1V1 when data pasted in cell BA1
    If Not Application.Intersect(Range("BA1"), Target) Is Nothing Then
        Call Part1V1
    End If
    
'   Call a different macro when data pasted in cell BA2
    If Not Application.Intersect(Range("BA2"), Target) Is Nothing Then
        Call SomeOtherMacro
    End If
    
End Sub

 

[Rowanhf12]

Thank you so much for that. Really appreciate it. Worked perfect