View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Jacob Skaria Jacob Skaria is offline
external usenet poster
 
Posts: 8,520
Default 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