Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Automatically Insert Rows
I have a file with information set up in a sheet like this
Number Name Code 1001 Eric Blue 1003 Jenny Red 1004 Alex Green 1007 James Blue I want to automatically insert rows where the number skips and enter in the next sequential number. Number Name Code 1001 Eric Blue 1002 1003 Jenny Red 1004 Alex Green 1005 1006 1007 James Blue Any help would be greatly appreciated. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Automatically Insert Rows
Markus,
assuming your "numbers" column is in the range A1:A... then this nasty little routine should sort it out for you. If you have any problems getting it to run, it may be because the Usedrange is different from what you think. If that happens, replace "LastRow" in the "For.." statement with the number of the last line in your list: Sub AddRows() LastRow = ActiveSheet.UsedRange.Rows.Count For x = LastRow To 2 Step -1 If Cells(x, 1).Value < (Cells(x - 1, 1).Value + 1) Then Rows(x).Insert Cells(x, 1).Value = Cells(x + 1, 1).Value - 1 x = x + 1 End If Next x End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Automatically Insert New Rows | Excel Discussion (Misc queries) | |||
Insert a rows automatically | Excel Worksheet Functions | |||
How do I automatically insert rows | Excel Discussion (Misc queries) | |||
Automatically Insert New Rows | Excel Discussion (Misc queries) | |||
Automatically insert/delete rows to be x apart | Excel Discussion (Misc queries) |