CODEWITHSUNDEEP
excelvbaautofilter
SB_VB
SB_VB

Reputation: 21

Autofilter for multiple columns in excel VBA

Can you please let check what is the error in below vba macro? Trying to autofilter two columns based on criteria. I am not able to filter field 8 and field 9 based on below code.

Worksheets("Demo_Sheet").Activate
With Worksheets("Demo_Sheet").Range("A1")
.AutoFilter field:=8, Criteria1:="<=" & Format(Now() + 5, "m/d/yyyy"), Criteria2:=">=" & Format(Now() - 5, "m/d/yyyy"), Operator:=xlAnd
.AutoFilter field:=9, Criteria1:=">=.95"
End With
Range("A1").CurrentRegion.Copy

Upvotes: 0

Views: 1990

Answers (1)

SB_VB
SB_VB

Reputation: 21

this gave me an answer

Worksheets("Demo_Sheet").Activate
Selection.AutoFilter
ActiveSheet.Range("A1").AutoFilter field:=8, Criteria1:="<=" & Format(Now() + 5, "m/d/yyyy"), Criteria2:=">=" & Format(Now() - 5, "m/d/yyyy"), Operator:=xlAnd
ActiveSheet.Range("A1").AutoFilter field:=9, Criteria1:=">=.95"
Range("A1").CurrentRegion.Copy

Upvotes: 1

Related Questions