Copy noncontigous cells to next sheet
 

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)
????????

Copy noncontigous cells to next sheet
 

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

--
Gary''s Student - gsnu200723

Copy noncontigous cells to next sheet
 

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

"Gary''s Student" wrote:

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

--
Gary''s Student - gsnu200723

Copy noncontigous cells to next sheet
 

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.
--
Gary''s Student - gsnu200723


"JMay" wrote:

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

"Gary''s Student" wrote:

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

--
Gary''s Student - gsnu200723

Copy noncontigous cells to next sheet
 

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

"Gary''s Student" wrote:

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.
--
Gary''s Student - gsnu200723


"JMay" wrote:

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

"Gary''s Student" wrote:

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

--
Gary''s Student - gsnu200723

Copy noncontigous cells to next sheet
 

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)



"JMay" wrote:

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)
????????

Copy noncontigous cells to next sheet
 

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

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

Jim

"Shailesh Shah" wrote:


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)



"JMay" wrote:

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)
????????