| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
insert blank row
Want to insert blank row right before the first instance where a row
color is gray (color index 41). Tried to work out the folliowing but no success. Sub InsertRows() Dim i As Long i = 2 Do Until Trim(Cells(i, 1)) = "" If cell.Interior.ColorIndex = 41 Then Cells(i, 1).EntireRow.Insert i = i + 2 Else i = i + 1 End If End Sub |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How can I insert a true blank inst. of a non-blank zero string | Excel Worksheet Functions | |||
| Insert Sum in blank Row | Excel Programming | |||
| Start Cell B1 then find first blank cell, insert subtotal, next non blank, then next blank, sutotal cells in between......... | Excel Programming | |||
| Macro to insert copy and insert formulas only to next blank row | Excel Programming | |||
| Macro code to test for blank row and insert blank row if false | Excel Programming | |||
Threaded Mode
