| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How do I copy several rows from one sheet to another?
I am currently doing...
ActQty.Entirerow.Copy Destination:=Sheets(1).Cells(.Rows.Count, "A").End(xlUp).Offset(1,0) ....but the copied rows are copied to the bottom of the destination sheet. I want the copied rows to start at row 15 of the destination sheet, not the bottom. I also want just the data copied. I do not want the copied rows to wipe out my cell formatting on the destination sheet. Thanks! --- Posted via news://freenews.netfront.net/ - Complaints to --- |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
How do I copy several rows from one sheet to another?
ActQty.EntireRow.Copy
Sheets(1).Cells(15, 1).PasteSpecial Paste:=xlPasteValues -- Jim Cone Portland, Oregon USA . http://www.mediafire.com/PrimitiveSoftware . (Data Options add-in: rows/dates/random stuff) "Saucer Man" wrote in message ... I am currently doing... ActQty.Entirerow.Copy Destination:=Sheets(1).Cells(.Rows.Count, "A").End(xlUp).Offset(1,0) ...but the copied rows are copied to the bottom of the destination sheet. I want the copied rows to start at row 15 of the destination sheet, not the bottom. I also want just the data copied. I do not want the copied rows to wipe out my cell formatting on the destination sheet. Thanks! --- Posted via news://freenews.netfront.net/ - Complaints to --- |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
How do I copy several rows from one sheet to another?
Great. If I put this in a loop, how do I make it so the next time through
the loop, the line is copied to row 16, etc.? I know I can replace the 15 with a variable and increment it but is there a easier way with a keyword? "Jim Cone" wrote in message ... ActQty.EntireRow.Copy Sheets(1).Cells(15, 1).PasteSpecial Paste:=xlPasteValues -- Jim Cone Portland, Oregon USA . http://www.mediafire.com/PrimitiveSoftware . (Data Options add-in: rows/dates/random stuff) --- Posted via news://freenews.netfront.net/ - Complaints to --- |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
How do I copy several rows from one sheet to another?
Sheets(1).Rows("15:30").Value = ActQty.EntireRow.Value
--or-- Dim x as Long For x = 15 to 30 ActQty.EntireRow.Copy Sheets(1).Cells(x, 1).PasteSpecial Paste:=xlPasteValues Next --or-- ActQty.EntireRow.Copy Sheets(1).Rows("15:30").PasteSpecial xlPasteValues '---- Jim Cone Portland, Oregon USA . http://www.mediafire.com/PrimitiveSoftware . (List Files XL add-in: finds and lists files/folders with hyperlinks) "Saucer Man" wrote in message ... Great. If I put this in a loop, how do I make it so the next time through the loop, the line is copied to row 16, etc.? I know I can replace the 15 with a variable and increment it but is there a easier way with a keyword? "Jim Cone" wrote in message ... ActQty.EntireRow.Copy Sheets(1).Cells(15, 1).PasteSpecial Paste:=xlPasteValues -- Jim Cone Portland, Oregon USA . http://www.mediafire.com/PrimitiveSoftware . (Data Options add-in: rows/dates/random stuff) |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
How do I copy several rows from one sheet to another?
Thanks. The middle example is working best as the others just copy the same
line 15 times. However, I discovered that copying the entire row is wiping out a formula in the sheet being copied to. How can I copy just columns 1 through 4? "Jim Cone" wrote in message ... Sheets(1).Rows("15:30").Value = ActQty.EntireRow.Value --or-- Dim x as Long For x = 15 to 30 ActQty.EntireRow.Copy Sheets(1).Cells(x, 1).PasteSpecial Paste:=xlPasteValues Next --or-- ActQty.EntireRow.Copy Sheets(1).Rows("15:30").PasteSpecial xlPasteValues '---- Jim Cone Portland, Oregon USA . http://www.mediafire.com/PrimitiveSoftware . (List Files XL add-in: finds and lists files/folders with hyperlinks) --- Posted via news://freenews.netfront.net/ - Complaints to --- |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
How do I copy several rows from one sheet to another?
Check out the Resize property in Excel VB help. '--- Jim Cone Portland, Oregon USA . http://www.mediafire.com/PrimitiveSoftware . (XL Companion add-in: compares, matches, counts, lists, finds, deletes...) "Saucer Man" wrote in message ... Thanks. The middle example is working best as the others just copy the same line 15 times. However, I discovered that copying the entire row is wiping out a formula in the sheet being copied to. How can I copy just columns 1 through 4? "Jim Cone" wrote in message ... Sheets(1).Rows("15:30").Value = ActQty.EntireRow.Value --or-- Dim x as Long For x = 15 to 30 ActQty.EntireRow.Copy Sheets(1).Cells(x, 1).PasteSpecial Paste:=xlPasteValues Next --or-- ActQty.EntireRow.Copy Sheets(1).Rows("15:30").PasteSpecial xlPasteValues '---- Jim Cone Portland, Oregon USA . http://www.mediafire.com/PrimitiveSoftware . (List Files XL add-in: finds and lists files/folders with hyperlinks) |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| copy rows from one Data sheet to another sheet based on cell conte | Excel Discussion (Misc queries) | |||
| copy rows to next sheet | Excel Programming | |||
| Copy rows onto existing sheet / start a new sheet if full | Excel Programming | |||
| Search for rows in one sheet and copy into another sheet based on customer id | Excel Worksheet Functions | |||
| Help: auto-copy entire rows from 1 sheet (based on cell criteria) to another sheet. | Excel Programming | |||
Hybrid Mode
