Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
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) ???????? |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
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 |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
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 |
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
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) ???????? |
#7
Posted to microsoft.public.excel.misc
|
|||
|
|||
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) ???????? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copy cells from one sheet to the next available row on another? | Excel Discussion (Misc queries) | |||
Copy sheet 1 data to sheet 2 cells. | Excel Worksheet Functions | |||
Array Formula, noncontigous range | Excel Worksheet Functions | |||
Copy row sheet-sheet skipping unqualified cells | Excel Worksheet Functions | |||
Noncontigous Cells | Excel Worksheet Functions |