| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
need to delete all rows that are gray
Sub deleteColoredRows()
Const Gray = 15 Range("A1").EntireRow.Select Do While ActiveCell.Value < "" if Selection.Interior.ColorIndex = Gray EntireRow.Delete End If Loop End Sub assuming I have the right color index number, how do I correct the if/then line so I can delete all rows that are gray? there is an error on the delete and if/then lines thanks, |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Automatically gray out rows when a particular field is populated | Excel Discussion (Misc queries) | |||
| Automatically have even numbered rows shaded gray? | Charts and Charting in Excel | |||
| In Excel, how do I rename the gray rows/columns (1,2,3/A,B,C)? | Excel Discussion (Misc queries) | |||
| How to delete rows when List toolbar's "delete" isnt highlighted? | Excel Worksheet Functions | |||
| Delete every 3rd row, then delete rows 2-7, move info f/every 2nd row up one to the end and delete the row below | Excel Programming | |||
Threaded Mode
