AutoFilter

[josros60]

Hi,

have this code for filtering but I am getting this error:

invalid use of Me keyword,

Private Sub ReapplyFilter()    
    Application.EnableEvents = False
    
    With Me.[a1]
        .AutoFilter
        .AutoFilter Field:=4, Criteria1:="r", Operator:=xlAnd
    End With
    
    Application.EnableEvents = True
    
End Sub

also how can get the another code to put the list back original list before filtering.

thanks,

 

[James006]

Hello,

Instead of Me .... have you tried ActiveSheet ...?

ActiveSheet.Cells(1,1).AutoFilter

 

[josros60]

thank you.

but no that good in vba when I added your suggestion gave me another error would you mind re writing the whole code inserting your suggestion.

thanks again

 

[DanteAmor]

Try this

Private Sub ReapplyFilter()
    Application.EnableEvents = False
    ActiveSheet.Range("A1").AutoFilter
    ActiveSheet.Range("A1").AutoFilter Field:=4, Criteria1:="r"
    Application.EnableEvents = True
End Sub

 

[DanteAmor]

In fact, these lines are not necessary, since an autofilter does not activate any event.

Application.EnableEvents = False
Application.EnableEvents = True

Then:

Private Sub ReapplyFilter()
    ActiveSheet.Range("A1").AutoFilter
    ActiveSheet.Range("A1").AutoFilter Field:=4, Criteria1:="r"
End Sub

 

[josros60]

Thanks so much, worked beautifully.

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.