Fliter multiple columns by color, blanking other cells in row

[Torquil]

Hello,
I am trying to do what feels like the impossible.

I want to filter 4 columns by color displaying only cells that have the same color fill:

for example I want to only see the cells that are Green. so when the filter is applied the cell that are orange or grey are not shown.
I have tried

ActiveSheet.Range("$D$12:$G$167").AutoFilter Field:=1, Criteria1:=RGB(198, 224, 180), Operator:=xlFilterCellColor
    ActiveSheet.Range("$D$12:$G$167").AutoFilter Field:=2, Criteria1:=RGB(198, 224, 180), Operator:=xlFilterCellColor
    ActiveSheet.Range("$D$12:$G$167").AutoFilter Field:=3, Criteria1:=RGB(198, 224, 180), Operator:=xlFilterCellColor
    ActiveSheet.Range("$D$12:$G$167").AutoFilter Field:=4, Criteria1:=RGB(198, 224, 180), Operator:=xlFilterCellColor

but i end up with nothing displaying even if there are green fields in the column.
what I want to achieve is a filter for green that would give me:

Long term vision is to have buttons to filter by color across the 4 columns.
Any ideas if 1 this is possible? I would also be open to a solution that copies and pastes the date to a separate sheet but I would prefer something to work like a filter on a single page.

 

[Fluff]

How are the cells getting the colour?

 

[Torquil]

How are the cells getting the colour?

Manually by the user.

 

[Fluff]

Ok, how about

Sub Torquil()
   Dim Cl As Range, Rng As Range
   For Each Cl In Range("D13:G167")
      If Cl.Interior.Color = 11859142 Then
         If Rng Is Nothing Then Set Rng = Cl Else Set Rng = Union(Rng, Cl)
      End If
   Next Cl
   If Not Rng Is Nothing Then
      Range("D13:G167").EntireRow.Hidden = True
      Rng.EntireRow.Hidden = False
   End If
End Sub