Loop to copy rows down

I need some sort of loop rRoutine which will copy the current row down 1 row
at a time until it reaches row 4000

reklamo
Fri Mar 14 02:42:01 CDT 2008

Your goal is hardly to understand. Do you want to copy all rows (from row 1
to row 4000) one row down? Or ?? Please explain a little bit more in detail.
regards
reklamo



"ordnance1" wrote:

> I need some sort of loop rRoutine which will copy the current row down 1 row
> at a time until it reaches row 4000

Patrick
Fri Mar 14 08:52:41 CDT 2008

I thought it was pretty clear but I will try again.

Lets say that I am currently on row 87, I want something that will copy the
data in row 87 and then paste that data in to each row below row 87 until it
reaches row 4000.


"reklamo" <reklamo@discussions.microsoft.com> wrote in message
news:5EAC5C36-D786-48DA-B9D8-D60DAB38F674@microsoft.com...
> Your goal is hardly to understand. Do you want to copy all rows (from row
> 1
> to row 4000) one row down? Or ?? Please explain a little bit more in
> detail.
> regards
> reklamo
>
>
>
> "ordnance1" wrote:
>
>> I need some sort of loop rRoutine which will copy the current row down 1
>> row
>> at a time until it reaches row 4000

michael
Fri Mar 14 11:39:13 CDT 2008

Hi Patrick,

I haven't seen your orignal post so l dont know exactly what you are
trying to achieve but this will do as you ask without having to loop

Sub PasteRows()
Rows("88:88").Copy
Rows("89:4000").Activate
ActiveSheet.Paste
End Sub

HTH

Michael

reklamo
Fri Mar 14 12:03:01 CDT 2008

To read first the actual slected row you can use following:

Sub Makro1()
ActualRow = Selection.Row
Rows(ActualRow).Copy
Rows(ActualRow + 1 & ":4000").Select
ActiveSheet.Paste
Cells(ActualRow, 1).Select
Application.CutCopyMode = False
End Sub

regards
reklamo



"michael.beckinsale" wrote:

> Hi Patrick,
>
> I haven't seen your orignal post so l dont know exactly what you are
> trying to achieve but this will do as you ask without having to loop
>
> Sub PasteRows()
> Rows("88:88").Copy
> Rows("89:4000").Activate
> ActiveSheet.Paste
> End Sub
>
> HTH
>
> Michael
>

Rick
Fri Mar 14 16:34:42 CDT 2008

Your references to Rows 88 and 89 appear to be off by one... 'reklamo'
mentioned Row 87 and the rows below it. Adjusting for that, you macro can be
simplified as follows...

Sub PasteRows()
Rows("87:87").Copy Rows("88:4000")
End Sub

Rick


"michael.beckinsale" <michael.beckinsale@ntlworld.com> wrote in message
news:5e84f96e-ad37-4c84-a6ad-b10eac491b95@d4g2000prg.googlegroups.com...
> Hi Patrick,
>
> I haven't seen your orignal post so l dont know exactly what you are
> trying to achieve but this will do as you ask without having to loop
>
> Sub PasteRows()
> Rows("88:88").Copy
> Rows("89:4000").Activate
> ActiveSheet.Paste
> End Sub
>
> HTH
>
> Michael