VBA To Filter Conditionally Formatted coloured cells in multiple columns

[SteveG1983]

Hi,
I'm fairly new to VBA and i'm trying to develop coding which will allow me to filter only the cells coloured 'Green' in the screenshot below, across several columns (conditional formatting determines the cell colour)

I've applied the following Macro/VBA as a test however when I run it, the 'Green' cells don't all appear (can i replace specific column numbers with a range within the 'AutoFilter Field' condition?);

Sub GreenFilter()
'
' GreenFilter Macro
'

ActiveSheet.Range("$e$18:$br$100").AutoFilter Field:=17, Criteria1:=RGB(146 _
, 208, 80), Operator:=xlFilterCellColor
ActiveSheet.Range("$e$18:$br$100").AutoFilter Field:=20, Criteria1:=RGB(146 _
, 208, 80), Operator:=xlFilterCellColor
ActiveSheet.Range("$e$18:$br$100").AutoFilter Field:=23, Criteria1:=RGB(146 _
, 208, 80), Operator:=xlFilterCellColor
ActiveSheet.Range("$e$18:$br$100").AutoFilter Field:=24, Criteria1:=RGB(146 _
, 208, 80), Operator:=xlFilterCellColor

End Sub

If there is anyone with any guidance/advice, it will be greatly appreciate.

Thanks and regards

 

[bobsan42]

do you insist on using VBA for this?
When you show only the green cells in one column you hide green cells from the others and you cannot show them ... so this method is not ok.
Best and easiest is to use a helper column and then use it to apply the filter and show all green cells (but not only the green ones - this setup of the data does not allow it).
For the helper column use a formula like:

=MAX(AT18:BA18)>TODAY()