Count the number of yellow cells within a range

[singerbatfink]

Hi,

I have a range of cells that have conditional formats to change their colour.

I want to count the number of yellow cells within the range. Can anyone help?

(It's the bright yellow from the colour pallet).

Thanks

[Kyle123]

Function CountYellow(rng As Range) As Integer
Dim oCell As Range
For Each oCell In rng
    If oCell.Interior.Color = vbYellow Then CountYellow = CountYellow + 1
Next oCell
End Function

Called with

=CountYellow(A1:B20) 

[Kyle123]

Actually, that's not going to work for conditional formatting, I'll post back

EDIT: Can't you use a formula based on the condition to count the number of times it has/hasn't been met? That would be much faster than trying to work with colours

[mahju]

Hi
Yes, You can get counts by using the formula used in conditional formating
Upload a sample sheet.

See attached for a simple example

Regards

[singerbatfink]

Thanks very much everyone.. Worked for me.

Cheers.

[keen2xl]

Good Joke Not !