| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Join non-contiguous ranges into one range via named range? | Excel Discussion (Misc queries) | |||
| Add non-contiguous cells to range? | Excel Programming | |||
| counting cells that are 0 in a range of non-contiguous cells | Excel Worksheet Functions | |||
| pasting non-contiguous range of cells to new row, same cell locati | New Users to Excel | |||
| Range holding non-contiguous cells | Excel Programming | |||
Linear Mode
