copy paste loop---new to vba
 

need to create a loop that copies each row to a different sheet. . . . .
..row2 to sheet(2).range (A2), row3 to sheet(3) range (A2) etc. from
a single worksheet.

copy paste loop---new to vba
 

why not
rows("2:66").copy sheets("yoursheet").rows(2)


--
Don Guillett
SalesAid Software

"MFR" wrote in message
...
need to create a loop that copies each row to a different sheet. . . . .
.row2 to sheet(2).range (A2), row3 to sheet(3) range (A2) etc. from
a single worksheet.

copy paste loop---new to vba
 

Hi,

You can use

For I = 1 to 100 'Or more times
Sheets("2").cells(1+I,1).value = Sheets("1").cells(1+I,1).value 'this is
for the 1º column
Sheets("2").cells(1+I,2).value = Sheets("1").cells(1+I,2).value 1 'for the
2º column

Next I


"MFR" escreveu:

need to create a loop that copies each row to a different sheet. . . . .
.row2 to sheet(2).range (A2), row3 to sheet(3) range (A2) etc. from
a single worksheet.

copy paste loop---new to vba
 

Renato---
Thanks, I see how this will loop through rows, how can I get it to loop
through the entire workbook simultaneously.

row2 in worksheet2
row3 in worksheet3
row4 in worksheet4

"Renato M. T." wrote:

Hi,

You can use

For I = 1 to 100 'Or more times
Sheets("2").cells(1+I,1).value = Sheets("1").cells(1+I,1).value 'this is
for the 1º column
Sheets("2").cells(1+I,2).value = Sheets("1").cells(1+I,2).value 1 'for the
2º column

Next I


"MFR" escreveu:

need to create a loop that copies each row to a different sheet. . . . .
.row2 to sheet(2).range (A2), row3 to sheet(3) range (A2) etc. from
a single worksheet.

copy paste loop---new to vba
 

just create a

for i = 2 to 4
do your thing (think about it)
next i

--
Don Guillett
SalesAid Software

"MFR" wrote in message
...
Renato---
Thanks, I see how this will loop through rows, how can I get it to loop
through the entire workbook simultaneously.

row2 in worksheet2
row3 in worksheet3
row4 in worksheet4

"Renato M. T." wrote:

Hi,

You can use

For I = 1 to 100 'Or more times
Sheets("2").cells(1+I,1).value = Sheets("1").cells(1+I,1).value 'this is
for the 1º column
Sheets("2").cells(1+I,2).value = Sheets("1").cells(1+I,2).value 1 'for
the
2º column

Next I


"MFR" escreveu:

need to create a loop that copies each row to a different sheet. . . .
.
.row2 to sheet(2).range (A2), row3 to sheet(3) range (A2) etc. from
a single worksheet.