vba help - Autofilter between two number and <>0

[Mallesh23]

Hi Team,

I am Unable to apply autofilter <>0 on a single column.
Below is my attempted code, when tried applying <>0 , I loose previous autofilter. plz assist. Thanks.

 Sub Apply_Filter()           
        With Range("$A$1:$A$20")
            .AutoFilter Field:=1, Criteria1:="<500", Operator:=xlAnd, Criteria2:=">-500"
            .AutoFilter Field:=1, Criteria1:="<>0"
        End With
                   
    End Sub

Below is my Column with data in it.

Book1
	A
1	Amount
2	-121
3	391
4	-408
5	891
6	948
7	-500
8	386
9	-427
10	33
11	942
12	870
13	-261
14	979
15	955
16	0
17	0
18	400
19	-600
Sheet1

Thanks
mg

 

[Mallesh23]

Hi Team,

After Autofilter , I should see Below visible cells,
can we get this through output.

Book2
	A	B	C
1	Amount		Expected Visible cells after autofilter
2	-121		-121
3	391		391
4	-408		-408
5	891		386
6	948		-427
7	-500		33
8	386		-261
9	-427		400
10	33
11	942
12	870
13	-261
14	979
15	955
16	0
17	0
18	400
19	-600
Sheet1

Thanks
mg

 

[pgc01]

Hi

With more than 2 criteria you can use the Advanced Filter or an auxiliary column.