Hide lines with a certain color

[xThomi]

Hi

I want to create a button i can click to hide all lines which are not green, yellow and pink. Or just show the lines which have no color. How can i do that?

 

[Scott T]

Maybe

I assume row one is header.

Sub hidecolor()
Dim lr As Long
Dim lc As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
lc = Cells(1, Columns.Count).End(xlToLeft).Column
For x = 2 To lr
    For y = 1 To lc
        If Cells(x, y).Interior.Color <> 16777215 Then
            Rows(x).EntireRow.Hidden = True
            Exit For
        End If
    Next y
Next x

End Sub