Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VB to insert duplicate rows based on value in other row
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. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
VB to insert duplicate rows based on value in other row
bjclux wrote:
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. 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 -- Tell 'em Large Marge sent ya! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Insert cells based on duplicate entries | Excel Programming | |||
Duplicate Rows Based On Cell Value? | Excel Programming | |||
Automatically Duplicate Rows based on Volume. | Excel Worksheet Functions | |||
Convert Columns to Rows based upon a duplicate value | Excel Programming | |||
Insert duplicate rows based on numeric value in column | Excel Discussion (Misc queries) |