copy and paste to multiple cell
Jaxie
The following will copy the range A1:Ae19 down 599 times:
Sub test()
Range("A1:AE19").Copy Destination:=Range("a20:a" & 19 * 600)
End Sub
Make sure the sheet that you want this procedure run on is the active
one when you run the macro (ie it is the one you are viewing in Excel).
If you have any formulas in this range, I would switch to Manual
Calculation before you run it (it will run faster then).
Hope this helps!
Richard
JAXIE wrote:
I want to copy A1:AE19, as this range is one sheet to print out. I need to
print 600 sheets for our purpose. The reason for this is in the header i am
using this BIN#&[Page]. I can set the page number to what ever I need to
start at, this year it will be 2000 to 2599 to get 600 pages. They are
printed on a dot matrix printer on a 2 sheet carbon. So the range to copy is
A1:AE19 and paste below for 600 sheets or pages. Hope this will help.
Thanks
"RichardSchollar" wrote:
Do you mean only A19:AE19 or A1:AE19? And do you mean on the same
sheet?
The following will do what you ask:
Sub Test()
Range("A19:A19").Copy Destination:=Range("A20")
End Sub
or
Sub Test()
Range("A1:A19").Copy Destination:=Range("A20")
End Sub
But I suspect this isn't going to be too helpful for you (it only ever
copies A1:AE19 or A19:Ae19).
Perhaps you could expand on exactly what you are doing?
Richard
JAXIE wrote:
What I have is a range (A to AE 19) that I want to copy and paste below the
frisr range. Is there a way to do this with a macro ?? It is for a printout
for doing inventory in our warehouse and I am stuck on this so I am doing
this manually for now.
|