Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
insert rows
On reflection I prefer this
Sub InsertRows() Dim i As Long mc = "M" For i = Cells(Rows.Count, mc).End(xlUp).Row To 2 Step -1 If IsNumeric(Cells(i, mc)) Then Rows(i).Resize(Cells(i, mc).Value).Insert End If Next i End Sub Mike "Mike H" wrote: Hi, Right click your sheet tab, view code and paste this in and run it Sub InsertRows() Dim i As Long, x As Long mc = "M" For i = Cells(Rows.Count, mc).End(xlUp).Row To 2 Step -1 If IsNumeric(Cells(i, mc)) Then For x = 1 To Cells(i, mc).Value Rows(i).Insert Next x End If Next i End Sub Mike "project manager" wrote: hi, I'm trying to write a macro which inserts rows depending on a number in a cell at the end of the row/information. Ie. if the number in the cell is 4 insert 4 rows. number = 7, 7 rows. If needs to sweep through column m looking for numbers and inserting rows until the it goes blank. cheers for any advise in advance... |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
insert rows in a worksheet that do not change adjoining rows | Excel Discussion (Misc queries) | |||
How do i insert blank rows between data that is thousands of rows | Excel Discussion (Misc queries) | |||
Insert rows: Formats & formulas extended to additonal rows | Excel Worksheet Functions | |||
Insert page breaks every 50 rows but do not include hidden rows | Excel Programming | |||
How do I insert blank rows between rows in completed worksheet? | Excel Discussion (Misc queries) |