Hide All Rows Not Containing a Certain Color

What is the logic for the coloring. This is needed as we will use that same logic to hide the rows.

You can just apply Data filter to range and choose Filter by Color option.

Assuming there are no other format. You can choose No Fill to show all items excluding light pink.

0.JPG

Edit: I misread your statement, you should choose the color to show the color.

You could try this which assumes your data is in Column A

Option Explicit

Sub hidenoncolor()
    Dim lr As Long, i As Long
    lr = Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To lr
        If Range("A" & i).Interior.colorindex = -4142 Then
            Range("A" & i).EntireRow.Hidden = True
        End If
    Next i

End Sub

How to install your new code

1. Copy the Excel VBA code
2. Select the workbook in which you want to store the Excel VBA code
3. Press Alt+F11 to open the Visual Basic Editor
4. Choose Insert > Module
5. Edit > Paste the macro into the module that appeared
6. Close the VBEditor
7. Save your workbook (Excel 2007+ select a macro-enabled file format, like *.xlsm)

To run the Excel VBA code:

1. Press Alt-F8 to open the macro list
2. Select a macro in the list
3. Click the Run button

• Data is contained in columns B through BA
• Conditional formatting is based on certain cells containing 0. But the conditional formatting does not apply to the entire worksheet. Just certain sections. That is why we want to use color to hide the rows.
• Because the data is contained across several columns I cannot get the Data Filter to do it.

try this:

Option Explicit

Sub HideRows()
    Application.ScreenUpdating = False
    Dim i As Long, x As Long
    Dim c As Range
    Dim rng As Range
    Dim lr As Long
    lr = Range("A" & Rows.Count).End(xlUp).Row
    For i = 5 To lr
        x = 0
        Set rng = Range(Cells(i, "B"), Cells(i, "BA"))
        For Each c In rng
            If c <> 0 Then
                x = x + 1
                If x = 52 Then Range("A" & i).EntireRow.Hidden = True
            End If
        Next c
    Next i
    Application.ScreenUpdating = True
    MsgBox "Activity complete"

End Sub