copy paste row multiple times

[glaungani]

Hi, i am using the below code to copy the data from each row and paste it below on same sheet by the times mentioned in column P (multiplier can be different for each row) .


Dim i As Long

For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
Rows(i).Copy
Rows(i).Resize(Range("P" & i)).Insert
Next i

Now i am not the best in coding so require some help to customize it.

The above code works fantastics but the only problem is when the multiplier is 0, then the code breaks. I would like to skip the row where the muliplier is 0 and move to the next one. can someone help me edit the above please.

thanks in advance.

cheers

 

[Fluff]

How about

For i = Range("A" & rows.Count).End(xlUp).Row To 2 Step -1
   If Cells(i, "P").Value > 0 Then
      rows(i).Copy
      rows(i).Resize(Range("P" & i)).Insert
   End If
Next i

 

[glaungani]

How about

For i = Range("A" & rows.Count).End(xlUp).Row To 2 Step -1
   If Cells(i, "P").Value > 0 Then
      rows(i).Copy
      rows(i).Resize(Range("P" & i)).Insert
   End If
Next i

unbelievably simple solution to my prob. thanks for your prompt help, buddy.

 

[Fluff]

You're welcome & thanks for the feedback.

 

[glaungani]

You're welcome & thanks for the feedback.

sorry to bother you again mate. it was working just fine but as soon as i increased the no of lines (multiplier in column P) i keep getting a Break 1004 error. any advice ?

 

[Fluff]

What is the error message & what was the value in col P?

 

[glaungani]

What is the error message & what was the value in col P?

i am sorry to touble you. i figured it out. apologies and thanks once again. cheers

 

[Fluff]

Glad you sorted it & thanks for letting us know.