VBA to filter on Font Color (not default black)

[MikeL]

Hello,
I would like to filter Col B for all cells which have a Font color not equal to the default black font.

Is there a VBA soluton?

Thanks in advance.

 

[AlphaFrog]

Is the font color set by the user manually, or is it set by Conditional Formatting (CF)? It matters which one.

If it is set by CF, you could put the CF formula in an empty column and filter on the True\False results.

 

[MikeL]

It is set by the user manually.

Thanks,
Mike

 

[AlphaFrog]

This hides all rows where the column B font color is set to Automatic (tipically black). If the font color is spcifically set to black (not Automatic), change in the code xlAutomatic to 1.

[color=darkblue]Sub[/color] Hide_Black_Font_Rows()

    [color=darkblue]Dim[/color] cell [color=darkblue]As[/color] Range
    
    Application.ScreenUpdating = [color=darkblue]False[/color]
    [color=darkblue]For[/color] [color=darkblue]Each[/color] cell [color=darkblue]In[/color] Range("B1", Range("B" & Rows.Count).End(xlUp))
        cell.EntireRow.Hidden = cell.Font.ColorIndex = [COLOR="Red"]xlAutomatic[/COLOR]
    [color=darkblue]Next[/color] cell
    Application.ScreenUpdating = [color=darkblue]True[/color]
    
[color=darkblue]End[/color] [color=darkblue]Sub[/color]


[color=darkblue]Sub[/color] Show_All_Rows()
    Rows.Hidden = [color=darkblue]False[/color]
[color=darkblue]End[/color] Sub

 

[MikeL]

Thanks, that works