Every time macro run on another sheet based on cell value (worksheet event)

[b_raj_kumar]

HI

I wrote below code but advanced filter is not working on "Filtered Data" sheet.

>>> use code - tags <<<

Private Sub Worksheet_Change(ByVal Target As Range)
   
 ' first remove filter
   'If Target.Cells.Count > 1 Then GoTo done
   If Application.Intersect(Target, ActiveSheet.Range("g2")) Is Nothing Then GoTo done
  
   Call Macro2
done:
   Exit Sub
End Sub


Sub Macro2()
Dim ws As Worksheet
If ws.AutoFilterMode Then
  ws.ShowAllData
End If
Set ws = Worksheets("Filtered Data")
    ws.Range("A:BL").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange _
        :=Range("BN1:BS2"), Unique:=False
End Sub

regards
raj kumar

 

[Marc L]

Hi,​

​

as you already received help on another forum so no need anymore to try to solve your guessing challenge​

as a reminder this is an Excel forum, not a mind readers one …​

Site Rules - New Users - Please Read

Hi all, Welcome to the Chandoo.org Forums. Posting Rules & Etiquette The Chandoo.org Forums is a collaborative and happy place to learn and expand your Excel knowledge. The Chandoo.org Forums consist of several Sub-Forums based on the type of question/area of Excel you are interested in...

chandoo.org