Copy Filtered Data with VBA

[Turbo68]

I am trying to get the DATA in my "Transactions" sheet to filter in 2 columns. The first one filters col A to "0" and the 2nd filters to the data in O1 cell. But it fails out every time on the 2nd filter with Run-time error '424' Object required.

Any help is appreciated.

Below is the part of my script that is failing.



Windows("Credit Card Summary V2 OCT_NOV.xlsm").Activate
Sheets("Transactions").Select

ActiveSheet.Range("$A$1:$K$1000").AutoFilter Field:=1, Criteria1:="0"
ActiveSheet.Range("$A$1:$K$1000").AutoFilter Field:=2, Criteria1:=FilterSH.Range("O1").Value
Range("CC_DATA").Select
Selection.Copy

 

[Fluff]

Have you declared & set FilterSH?
If O1 is on the Transactions sheet try

ActiveSheet.Range("$A$1:$K$1000").AutoFilter Field:=2, Criteria1:=Range("O1").Value

 

[Turbo68]

That worked. Just that little bit. Thanks for that lesson!

Mike

 

[Fluff]

Glad to help & thanks for the feedback.