Autofilter used programmaticaly causes error

[Jarda Beran]

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_Reports\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.

 

[Jacob Skaria]

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

 

[Jim Cone]

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"
<[email protected]>
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_Reports\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.