Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Insert lines when x< y
I have a column of numbers as below:
1 1 1 2 2 2 3 3 ........ I am writing a macro to insert lines between each didtinct number, the code below isnt quite working - I am missing 1/2 lines somewhere, thks in advance Sub li() Dim i For i = 1 To 10 If Cells(i + 1, 5).Value < Cells(i, 5).Value Then Cells(i + 1, 5).EntireRow.Insert End If Next End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Insert lines when x< y
If your numbers are in Column E then:
Sub li() Dim LastRow As Long Dim i As Long LastRow = Cells(Rows.Count, 1).End(xlUp).Row For i = LastRow - 1 To 1 Step -1 If Cells(i + 1, 5).Value < Cells(i, 5).Value Then Cells(i + 1, 5).EntireRow.Insert End If Next End Sub -- Regards, Tom Ogilvy "teresa" wrote in message ... I have a column of numbers as below: 1 1 1 2 2 2 3 3 ....... I am writing a macro to insert lines between each didtinct number, the code below isnt quite working - I am missing 1/2 lines somewhere, thks in advance Sub li() Dim i For i = 1 To 10 If Cells(i + 1, 5).Value < Cells(i, 5).Value Then Cells(i + 1, 5).EntireRow.Insert End If Next End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Insert lines when x< y
correction:
Sub li() Dim LastRow As Long Dim i As Long LastRow = Cells(Rows.Count, 5).End(xlUp).Row For i = LastRow - 1 To 1 Step -1 If Cells(i + 1, 5).Value < Cells(i, 5).Value Then Cells(i + 1, 5).EntireRow.Insert End If Next End Sub Changed the LastRow line to look in column 5 as well. -- Regards, Tom Ogilvy "teresa" wrote in message ... I have a column of numbers as below: 1 1 1 2 2 2 3 3 ....... I am writing a macro to insert lines between each didtinct number, the code below isnt quite working - I am missing 1/2 lines somewhere, thks in advance Sub li() Dim i For i = 1 To 10 If Cells(i + 1, 5).Value < Cells(i, 5).Value Then Cells(i + 1, 5).EntireRow.Insert End If Next End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Insert Lines | Excel Worksheet Functions | |||
Insert lines at each change in value | Excel Discussion (Misc queries) | |||
how can i insert a row every five lines in excel | Excel Discussion (Misc queries) | |||
insert lines | Excel Discussion (Misc queries) | |||
how to automatically insert blank lines in between non-blank lines | Excel Programming |