Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Rows (i).Insert
I have the below Macro to insert a row between groups of customers. Is it
possible to specify the row height of the inserted row, without changing the height of the other rows? Dim lastrow As Long, i As Long lastrow = Cells(Rows.Count, 1).End(xlUp).Row For i = lastrow To 2 Step -1 If Cells(i, 1) < Cells(i - 1, 1) Then Rows(i).Insert.RowHeight = 15 End If Next |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Rows (i).Insert
Hi Josh,
Try: '============= Public Sub Tester() Dim lastrow As Long, i As Long lastrow = Cells(Rows.Count, 1).End(xlUp).Row For i = lastrow To 2 Step -1 If Cells(i, 1) < Cells(i - 1, 1) Then Rows(i).Insert Rows(i).RowHeight = 15 End If Next End Sub '<<============= --- Regards, Norman "Josh O." wrote in message ... I have the below Macro to insert a row between groups of customers. Is it possible to specify the row height of the inserted row, without changing the height of the other rows? Dim lastrow As Long, i As Long lastrow = Cells(Rows.Count, 1).End(xlUp).Row For i = lastrow To 2 Step -1 If Cells(i, 1) < Cells(i - 1, 1) Then Rows(i).Insert.RowHeight = 15 End If Next |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Rows (i).Insert
Hi Josh,
To avoid potential problems, it is always advisable to be explicit. Therefore, better would be: '============= Public Sub Tester() Dim WB As Workbook Dim SH As Worksheet Set WB = ThisWorkbook '<<=== CHANGE Set SH = WB.Sheets("Sheet3") '<<=== CHANGE Dim lastrow As Long, i As Long With SH lastrow = .Cells(Rows.Count, 1).End(xlUp).Row For i = lastrow To 2 Step -1 If .Cells(i, 1).value < Cells(i - 1, 1).value Then .Rows(i).Insert .Rows(i).RowHeight = 15 End If Next i End With End Sub '<<============= --- Regards, Norman |
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) |