COUNTIF function

[wmbb]

Is it possible to count the cells containing text in red (fontcolor = red) using COUNTIF or another formula?

 

[xlbo]

No

You need to write your own VBA function for that

Have a search of the VBA forum: Forum707 wherre this has been discussed several times previously

Rgds, Geoff

We could learn a lot from crayons. Some are sharp, some are pretty and some are dull. Some have weird names and all are different colours but they all live in the same box.

Please read FAQ222-2244 before you ask a question

 

[GlennUK]

You can't ( not easily anyway ). Have a look at this FAQ: faq68-6657 . It contains code that you could modify to be of use.

Cheers, Glenn.

Beauty is in the eye of the beerholder.

 

[wmbb]

Thnx for your help.
I think I can do something with the function below.

Function FntColor() As String
If .Font.Color = RGB(0, 0, 0) Then
FntColor = "black"
ElseIf .Font.Color = RGB(255, 0, 0) Then
FntColor = "red"
Else: FntColor() = "normal"
End If
End If
End Function

One question left....

What do I have to put in front of .Font.Color to get this working in
=COUNTIF(B5:B10,FntColor = "black")

 

[SkipVought]

Notice the PERIOD preceeding the Font object in the code you posted. THAT needs to be preceeded by a range object. Please post in forum707 to get help with this.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[xlbo]

Seriously - just search the VBA forum for "Sum By Colour" - there are functions already written to do exactly what you want

Rgds, Geoff

We could learn a lot from crayons. Some are sharp, some are pretty and some are dull. Some have weird names and all are different colours but they all live in the same box.

Please read FAQ222-2244 before you ask a question