Autofilter used programmaticaly causes error
 

Hi,
during migration from Office 2003 on Windows 2000 to Office 2007 on Windows
Vista I've encountered strange error in one worksheet programmed years ago.

Code is as follows:

Workbooks.OpenText
Filename:="D:\_glowapps\Transfer\GT\Static\MX_Repo rts\tr_fx_fwd_p.prn" _
, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited,
TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True,
Semicolon:=True _
, Comma:=False, Space:=False, Other:=False,
FieldInfo:=Array(Array(1, 1) _
, Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1),
Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1),
Array(14, 1), Array(15 _
, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1),
Array(20, 1), Array(21, 1), _
Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26,
1), Array(27, 1), Array( _
28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 1),
Array(33, 1), Array(34, 1), _
Array(35, 1), Array(36, 1), Array(37, 1), Array(38, 1), Array(39,
1), Array(40, 1), Array( _
41, 1), Array(42, 1), Array(43, 1), Array(44, 1), Array(45, 1))


Rows("1:1").Select
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
Sheets("Import").Select
Range("A1").Select
ActiveSheet.Paste

On the last line error appears - it's Runtime Error 1004 - The information
cannost be pasted because the Copy area and the paste area are not the same
size and shape.

If I comment all the lines beginning with "Sellection.AutoFilter",
everything is O.K., but pasted reccords are not filtered. If I uncomment
them, error appears.

I'll be gratefull for any advice how to avoid this error and paste filtered
records.

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

Autofilter used programmaticaly causes error
 

Two things you can try...

Change:
Range("A1").Select
ActiveSheet.Paste
To:
Range("A1").PasteSpecial
Or:
Cells.Paste
'--

Are you glad you "upgraded" ?
'--
Jim Cone
Portland, Oregon USA



"Jarda Beran"

wrote in message
Hi,
during migration from Office 2003 on Windows 2000 to Office 2007 on Windows
Vista I've encountered strange error in one worksheet programmed years ago.

Code is as follows:

Workbooks.OpenText
Filename:="D:\_glowapps\Transfer\GT\Static\MX_Repo rts\tr_fx_fwd_p.prn" _
, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited,
TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True,
Semicolon:=True _
, Comma:=False, Space:=False, Other:=False,
FieldInfo:=Array(Array(1, 1) _
, Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1),
Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1),
Array(14, 1), Array(15 _
, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1),
Array(20, 1), Array(21, 1), _
Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26,
1), Array(27, 1), Array( _
28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 1),
Array(33, 1), Array(34, 1), _
Array(35, 1), Array(36, 1), Array(37, 1), Array(38, 1), Array(39,
1), Array(40, 1), Array( _
41, 1), Array(42, 1), Array(43, 1), Array(44, 1), Array(45, 1))


Rows("1:1").Select
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
Sheets("Import").Select
Range("A1").Select
ActiveSheet.Paste

On the last line error appears - it's Runtime Error 1004 - The information
cannost be pasted because the Copy area and the paste area are not the same
size and shape.

If I comment all the lines beginning with "Sellection.AutoFilter",
everything is O.K., but pasted reccords are not filtered. If I uncomment
them, error appears.

I'll be gratefull for any advice how to avoid this error and paste filtered
records.