How do I copy several rows from one sheet to another?

[Saucer Man]

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!

 

[Jim Cone]

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" <[email protected]>
wrote in message
news:[email protected]...

 

[Saucer Man]

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]

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]

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)

 

[Jim Cone]

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]

The Resize command worked great. Thanks Jim for all your help.


"Jim Cone" wrote in message

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