|
Range and non contiguous cells
Hi, I am trying to copy and paste some cells, Here is a piece of the macro.
Windows("Loans Delinquency APRIL 2007.xls").Activate Sheets("Bank 101 Ledger 19").Select Range("Cells(i, 2), Cells(i, 4), Cells(i, 6), Cells(i, 8), Cells(i, 10), Cells(i, 12), Cells(i, 14), Cells(i, 16), Cells(i, 18)").Select Range(Cells(i, 18)).Activate Selection.Copy Windows("2007 LOANS DELICUENCY BANK 101.xls").Activate Sheets("APRIL").Select Cells(y, 2).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True But in the range where ther is the multiple cells in stops. I have the same for 12 items and the macro stops in the first. Can anyone help me. Thanks Fernando |
Range and non contiguous cells
Untested but you can give this a try...
Windows("Loans Delinquency APRIL 2007.xls").Activate Sheets("Bank 101 Ledger 19").Select Union(Cells(i, 2), Cells(i, 4), Cells(i, 6), Cells(i, 8), Cells(i, 10), Cells(i, 12), Cells(i, 14), Cells(i, 16), Cells(i, 18)).Select Range(Cells(i, 18)).Activate Selection.Copy Windows("2007 LOANS DELICUENCY BANK 101.xls").Activate Sheets("APRIL").Select Cells(y, 2).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True -- HTH... Jim Thomlinson "fsmelgar" wrote: Hi, I am trying to copy and paste some cells, Here is a piece of the macro. Windows("Loans Delinquency APRIL 2007.xls").Activate Sheets("Bank 101 Ledger 19").Select Range("Cells(i, 2), Cells(i, 4), Cells(i, 6), Cells(i, 8), Cells(i, 10), Cells(i, 12), Cells(i, 14), Cells(i, 16), Cells(i, 18)").Select Range(Cells(i, 18)).Activate Selection.Copy Windows("2007 LOANS DELICUENCY BANK 101.xls").Activate Sheets("APRIL").Select Cells(y, 2).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True But in the range where ther is the multiple cells in stops. I have the same for 12 items and the macro stops in the first. Can anyone help me. Thanks Fernando |
Range and non contiguous cells
Range(Cells(i, 18)).Activate ??
"Jim Thomlinson" wrote: Untested but you can give this a try... Windows("Loans Delinquency APRIL 2007.xls").Activate Sheets("Bank 101 Ledger 19").Select Union(Cells(i, 2), Cells(i, 4), Cells(i, 6), Cells(i, 8), Cells(i, 10), Cells(i, 12), Cells(i, 14), Cells(i, 16), Cells(i, 18)).Select Range(Cells(i, 18)).Activate Selection.Copy Windows("2007 LOANS DELICUENCY BANK 101.xls").Activate Sheets("APRIL").Select Cells(y, 2).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True -- HTH... Jim Thomlinson "fsmelgar" wrote: Hi, I am trying to copy and paste some cells, Here is a piece of the macro. Windows("Loans Delinquency APRIL 2007.xls").Activate Sheets("Bank 101 Ledger 19").Select Range("Cells(i, 2), Cells(i, 4), Cells(i, 6), Cells(i, 8), Cells(i, 10), Cells(i, 12), Cells(i, 14), Cells(i, 16), Cells(i, 18)").Select Range(Cells(i, 18)).Activate Selection.Copy Windows("2007 LOANS DELICUENCY BANK 101.xls").Activate Sheets("APRIL").Select Cells(y, 2).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True But in the range where ther is the multiple cells in stops. I have the same for 12 items and the macro stops in the first. Can anyone help me. Thanks Fernando |
Range and non contiguous cells
Thank you both anwers were rally help full.
To JLGWhiz: That line was wrote using the record macro so I don't know what was it, but the macro flag an error with that line. To Jim Thomlinson: Using Union instead of range solve my problem, I used in all the 12 items and it worked instantly. Thanks to both of you Fernando "JLGWhiz" wrote: Range(Cells(i, 18)).Activate ?? "Jim Thomlinson" wrote: Untested but you can give this a try... Windows("Loans Delinquency APRIL 2007.xls").Activate Sheets("Bank 101 Ledger 19").Select Union(Cells(i, 2), Cells(i, 4), Cells(i, 6), Cells(i, 8), Cells(i, 10), Cells(i, 12), Cells(i, 14), Cells(i, 16), Cells(i, 18)).Select Range(Cells(i, 18)).Activate Selection.Copy Windows("2007 LOANS DELICUENCY BANK 101.xls").Activate Sheets("APRIL").Select Cells(y, 2).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True -- HTH... Jim Thomlinson "fsmelgar" wrote: Hi, I am trying to copy and paste some cells, Here is a piece of the macro. Windows("Loans Delinquency APRIL 2007.xls").Activate Sheets("Bank 101 Ledger 19").Select Range("Cells(i, 2), Cells(i, 4), Cells(i, 6), Cells(i, 8), Cells(i, 10), Cells(i, 12), Cells(i, 14), Cells(i, 16), Cells(i, 18)").Select Range(Cells(i, 18)).Activate Selection.Copy Windows("2007 LOANS DELICUENCY BANK 101.xls").Activate Sheets("APRIL").Select Cells(y, 2).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True But in the range where ther is the multiple cells in stops. I have the same for 12 items and the macro stops in the first. Can anyone help me. Thanks Fernando |
| All times are GMT +1. The time now is 04:07 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com