Copy noncontigous cells to next sheet

J

JMay

I'm trying to copy the values from A1 and C1 (only)
to my next sheet (sheet2) into cell A1:B1


Sub foo()
Dim Qcell As String
Dim Jcell As String
Qcell = ActiveCell.Address(0, 0)
Jcell = ActiveCell.Offset(0, 2).Address(0, 0)
????????
 
G

Gary''s Student

Sub foo()
Sheets("Sheet1").Range("A1").Copy Sheets("Sheet2").Range("A1")
Sheets("Sheet1").Range("C1").Copy Sheets("Sheet2").Range("B1")
End Sub
 
J

JMay

That's it? -- at one point I thought of doing them separately (like this)
but thought there is probably a "fancier way" of combining A1 and C1.

Not so, huh?

Thanks,

Jim
 
G

Gary''s Student

Sometimes simple is "good enough".

If you are interested in a more general solution:

arbitrary collection of cells in Sheet1 to contiguous cells in a single row
in Sheet2, check back later.
 
J

JMay

I understand and also appreciate your assistance. All this was my trying to
help the OP below (earlier) with the Subject line:

Want to move several cells info to next available ...

There you will see my proposed dulution (which incorporated your suggestion)..

Jim
 
S

Shailesh Shah

With a single line use,

Range("sheet1!A1,sheet1!c1").Copy Range("sheet2!A1")

or use Union function as per below modified code of your example.


Sub foo()
Dim Qcell As Range
Dim Jcell As Range

Set Qcell = ActiveCell
Set Jcell = ActiveCell.Offset(0, 2)

Union(Qcell, Jcell).Copy Range("Sheet2!a1")

End Sub



Regards,

Shailesh Shah
http://in.geocities.com/shahshaileshs/
(Excel Add-ins Page)
 
J

JMay

Union(Qcell, Jcell).Copy Range("Sheet2!a1") -- THAT's IT !!!

That's what I was looking for, -- how exciting...
Tks Shailesh,

Jim
 
Top