filter cells by text font color

[orit]

I have a large worksheet which I would like to filter according the color of the font of the text written in each cell. I want that by clicking a button, only the rows where the color of the text in specific column is blue will be displayed, by clicking another button, only the rows with the red text will be displayed etc..., how suppose to be macro for that?

Thanks a lot

 

[Harvey]

something like:

For Each cell In Range("A1:B10")

  If cell.Font.ColorIndex = 2 Then

    cell.EntireRow.Hidden = True
    
  End If

Next cell

this will hide the rows in which the colored text appears.

 

[orit]

Thanks much,

I have various font colors in the worksheet... If possible, is there a way to define which color to show (instead of which color to hide)?
if not, what is the syntax for hiding multiple colors?

another thing, is it possible that it will work on all the content of the sheet instead of defining a range?

Thanks again

 

[Harvey]

For Each cell In Range("A1:B10")

  If cell.Font.ColorIndex <> mycolor Then

    cell.EntireRow.Hidden = True
   
  Else

    cell.EntireRow.Hidden = False

  End If

Next cell

where my color is the color you want to show.
I added some code to make hidden rows visible again, because you might want to run this code multiple times in a row I think.

 

[orit]

Thanks a lot,

Somehow, it hides all the specified range. any idea why?

Thanks

 

[Harvey]

what did you replace 'mycolor' with?

 

[orit]

with a number, e.g. 3

What should it be?

Thanks

 

[Harvey]

does the number correspond with the color that you want to make visible? You can see this by using this code:

Sub x()
    MsgBox (Range("A1").Font.ColorIndex)
End Sub

and pressing F5

 

[orit]

yes, it does..

Thanks

 

[Harvey]

sorry, the range I used is not correct. It would look for both the cells in column a an b to have the right color. change it to this:

For Each cell In Range("A1:A10")

  If cell.Font.ColorIndex <> mycolor Then

    cell.EntireRow.Hidden = True
   
  Else

    cell.EntireRow.Hidden = False

  End If

Next cell