VB to insert duplicate rows based on value in other row

  • Thread starter Thread starter bjclux
  • Start date Start date
B

bjclux

Hello all -

I would like something that automatically duplicates a pre-formatted row 11 based on the value in E7.

For example, if I enter "24" in E7, I would like Row 11 duplicated so it appears 24 times, beginning with Row 11. ROWS 1-10 have header and project information.

Any help would be greatly appreciated.
 
bjclux said:
I would like something that automatically duplicates a pre-formatted row
11 based on the value in E7.

For example, if I enter "24" in E7, I would like Row 11 duplicated so it
appears 24 times, beginning with Row 11. ROWS 1-10 have header and
project information.
Click to expand...

Try this:

Sub duplicateNtimes()
Dim v As Variant, L0 As Long
v = Cells(7, 5).Value
If IsNumeric(v) Then
Rows(11).Copy
For L0 = 2 To v
ActiveSheet.Paste Destination:=Cells(10 + L0, 1)
Next
Application.CutCopyMode = False
End If
End Sub
 
Back
Top