Copy and paste area are not the same shape error after AutoFilter
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. |
All times are GMT +1. The time now is 10:31 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com