Hiding Rows - Conditional

[Random NumNuts]

HI all,

I would like to have a macro that will hide rows based on their background
color. That is, some rows (yellow) need to be completed only for add-on
sales, while new sales (blue) require a different group. I know how to hide
specific rows, but not how to make it conditional. Is it possible?

Many thanks../RN

 

[Frank Kabel]

Hi
try something like the following:
Sub hide_rows()
Dim RowNdx As Long
Dim LastRow As Long

LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).row
For RowNdx = LastRow To 1 Step -1
If Cells(RowNdx, "A").interior.colorindex=3 Then
Rows(RowNdx).hidden = True
End If
Next RowNdx
End Sub

hides all rows in column A with a colorindex=3 (red) -> change this to
your needs

 

[Random NumNuts]

Frank,

Thanks a heap! Just what I needed. Where do I find the color list? ./RN

 

[Frank Kabel]

Hi
one way:
- place your cursor in a cell with your color
- in the VBA editor in the immediate window enter
?Activecell.interior.colorindex

Another way: see:
http://www.mvps.org/dmcritchie/excel/colors.htm

 

[Random NumNuts]

Frank,

That did the trick -- works perfectly -- thanks! .../Randy