Advanced Filter Unique Color

[Vanda_a]

Hello all

Any of you could assist me this issue please? How can i do advanced filter unique color only? (Format Condition 3 colors scale)
Or any other way to accomplish it?

Thank you very much

 

[Worf]

Hello

The example code below creates a new column with the colour numbers and then filters by one of them.

Sub Filter_by_Color()
Dim i%
' Column B has the conditional formatting
' Column C will hold the color numbers


For i = 2 To Range("b" & Rows.Count).End(xlUp).Row
    Cells(i, 3) = Cells(i, 2).DisplayFormat.Interior.Color
Next
[a:c].AutoFilter 3, 8444158                 ' shade of orange


End Sub