Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
insert rows
Dear all
I want to insert rows with first column 2012-2050 if a column is 2011. I have written this code. Executing it, it will insert a lot of values after 2011 but then not go to the next column, which it should. any ideas? Dim last, limit, i, d, j As Integer last = 2011 limit = 3000 d = 2050 - last For i = 1 To limit If ActiveSheet.Cells(i, 1).Value = last Then For j = last To 2050 ActiveSheet.Range(Rows(i), Rows(i)).Select Selection.Insert Shift:=xlDown Cells(i, 1) = j Next j End If Next i End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
insert rows
Your correct, there is nothing in your code that would cause it to work with
anything but column 1. What do you mean it should go to the next column. then what happens in the next column? when should it go to the next column? and if it does go to the next column and do something, what happens after that? or do you want a Range("B1").Select at the end of the macro? -- Regards, Tom Ogilvy "Dirk" wrote in message ps.com... Dear all I want to insert rows with first column 2012-2050 if a column is 2011. I have written this code. Executing it, it will insert a lot of values after 2011 but then not go to the next column, which it should. any ideas? Dim last, limit, i, d, j As Integer last = 2011 limit = 3000 d = 2050 - last For i = 1 To limit If ActiveSheet.Cells(i, 1).Value = last Then For j = last To 2050 ActiveSheet.Range(Rows(i), Rows(i)).Select Selection.Insert Shift:=xlDown Cells(i, 1) = j Next j End If Next i End Sub |
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 | |||
How do I insert blank rows between rows in completed worksheet? | Excel Discussion (Misc queries) | |||
How do i insert of spacer rows between rows in large spreadsheets | Excel Discussion (Misc queries) |