Autofilter used programmaticaly causes error
Please try the below changes
Rows("1:1").Select
Range("A1").activate
Selection.AutoFilter
Selection.AutoFilter Field:=44, Criteria1:="COMMODITY"
Selection.AutoFilter Field:=34, Criteria1:="PRAGUE"
Selection.AutoFilter Field:=15, Criteria1:="<BNK", Operator:=xlAnd
Cells.Select
Selection.Copy
' Windows("KPkomodity.xls").Activate
Workbooks("KPkomodity.xls").Activate
Sheets("Import").Select
Range("A1").Select
ActiveSheet.Paste
|