Filter by cell color

[ndjustin20]

ok...this should be simple right?!!??!! I am using the following code and it keeps throwing an 1004 obj defined error. I have used this before but now it doesn't want to work. Any ideas:

Sub FindGoodGreen()
ActiveSheet.Range("$A$1:$T$136").AutoFilter Field:=3, Criteria1:=RGB(55, 245 _
        , 64), Operator:=xlFilterCellColor
       ActiveSheet.Range("2:7").Rows.Hidden = False
End Sub

 

[Jonmo1]

Works for me.
Most likely it means that there are no cells in column C that have the color matching that RGB value.

 

[ndjustin20]

Ok sorry....I have it in a module not inside the worksheet...inside the worksheet it works but if I call it from the module it doesn't work. It also isn't filtering correctly. It crams all the rows into a few rows when it filters. Any ideas? Thank you very much for your quick feedback also

 

[Jonmo1]

Try replacing the 2 references to ActiveSheet with the actual sheet's reference Sheets("SheetName")

 

[ndjustin20]

It was the sheet name....in another location!!!!!!!!!!!! Almost Bald now!!!!!!!!!!!!! LOL Thank you for the information....Can you tell me why it would cram 40 rows into 3 rows though? I can't figure out why it is doing this though. There are say 40 rows with a green cell in column C and it is only showing 3. Very strange. Have you or someone else maybe ran across this before?