Macro to copy rows into worksheets

[cupcakex]

Ill try to explain best I can.

Recently found (finally..) a macro to auto create worksheets named afte
whats in Column A (5 digit number). I have one master worksheet and no
47 sheets titled with each ID from column A.

Now I have 47 rows with information on the master worksheet and 47 empt
worksheets.

How do I put each row into each worksheet? ... Worksheet one wil
contain row 2, worksheet 2, row 3 etc etc.

I should also mention that row 1 is the header(?) says the title
...that should be copied in addition to each row.

make sense

 

[pascal baro]

Hi,
Where in any of the 47 worksheets should rows(2,3,...n) from master sheet be positioned? Second row fixed position I would suppose.
Pascal

 

[cupcakex]

Hi,
Where in any of the 47 worksheets should rows(2,3,...n) from maste
sheet be positioned? Second row fixed position I would suppose.
Pascal

Yes 2nd row in each shee

 

[Claus Busch]

Hi,

Am Tue, 24 Jul 2012 18:55:36 +0000 schrieb cupcakex:

Yes 2nd row in each sheet

following code copies the header and the rows to each sheet:
Sub CopyRows()
Dim i As Integer

With Sheets(1)
For i = 2 To 47
.Rows("1").Copy Destination:=Sheets(i).Range("A1")
.Rows(i).Copy Destination:=Sheets(i).Range("A2")
Next
End With
End Sub


Regards
Claus Busch

 

[cupcakex]

Hi,

Am Tue, 24 Jul 2012 18:55:36 +0000 schrieb cupcakex:
-

following code copies the header and the rows to each sheet:
Sub CopyRows()
Dim i As Integer

With Sheets(1)
For i = 2 To 47
.Rows("1").Copy Destination:=Sheets(i).Range("A1")
.Rows(i).Copy Destination:=Sheets(i).Range("A2")
Next
End With
End Sub


Regards
Claus Busch

AMAZING!!!! you have saved me so much time thank you x10000000!