Count by colour

[Ben_UK]

Hiya Board,

Column C on my sheet contains a 3 digit number between 101 - 999,
Those cells are conditional formatted so that any entry over 750 turns the font Red,

Is it possible to automatically count how many entries in col C are red

Any help would be greatly appreciated,

Kind Regards

Ben

 

[north19701]

Would it not be more simple to just count values that are greater than 750?

 

[Ben_UK]

Sorry,

I was just using that as an example (to keep the question simple)

Forget the numbers...
Basically I am looking for operator input errors in column C,
So I am purely looking to count cells that contain red font,

Apologies for the misleading question

Kind Regards

Ben

 

[north19701]

try this link

http://www.cpearson.com/excel/CFColors.htm

 

[Iridium]

An alternate solution to the one north19701 provided at Chip Pearsons site

Function CountColor(rColor As Range, rSumRange As Range)

''''''''''''''''''''''''''''''''''''''
' Written by Ozgrid Business Applications
' www.ozgrid.com
' http://www.ozgrid.com/VBA/Sum.htm
' Counts cells based on a specified fill color.
'''''''''''''''''''''''''''''''''''''''
Dim rCell As Range
Dim iCol As Integer
Dim vResult

iCol = rColor.Interior.ColorIndex

   For Each rCell In rSumRange
    If rCell.Interior.ColorIndex = iCol Then
         vResult = vResult + 1
    End If
   Next rCell

CountColor = vResult
End Function

HTH