Conditionally Manage Multiple Items In Worksheet_Change(ByVal Target As Range) Event

[Rajesh Kr Joshi]

Hi,
I am using the below code to change the filter in range "B11:K11" based on a dropdown in cell C1 and it is working fine. I want to add another event in the same code targeting range "G12:G31" and "I12:I31" triggering MsgBox "Test".


Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$C$1" Then

If Range("C1") = "All" Then
ActiveSheet.AutoFilterMode = False
Else
ActiveSheet.AutoFilterMode = False
ActiveSheet.Range("B11:K11").Select
Selection.AutoFilter 1, ActiveSheet.Range("C1").Value


End If
End If

End Sub

Thanks
Raj

[Admin]

Hi

try something like


Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$C$1" Then
If Range("C1") = "All" Then
ActiveSheet.AutoFilterMode = False
Else
ActiveSheet.AutoFilterMode = False
ActiveSheet.Range("B11:K11").Select
Selection.AutoFilter 1, ActiveSheet.Range("C1").Value
End If

ElseIf Not Application.Intersect(Target, Range("G12:G31")) Is Nothing Then
'your action here
ElseIf Not Application.Intersect(Target, Range("I12:I31")) Is Nothing Then
'your action here
End If

End Sub

[Rajesh Kr Joshi]

Awesome, working great:)

Thanks again
Raj