Range and non contiguous cells

[Guest]

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

 

[Guest]

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

 

[Guest]

Range(Cells(i, 18)).Activate ??

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

 

[Guest]

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