Counting Red Font Cells

[johnnyb5]

I found function instructions to count cells with red fonts and it works fine. (My Thanks to Mike) However, the next step for me is to count the red font cells that are less than the value of 20. I've tried to combine the instructions with both IF and And formulas and both have failed miserably.


The working function is:



Function CountColour(rng As Range, clr As Range)
Application.Volatile
Dim c As Range
For Each c In rng
If c.Font.Color = clr.Font.Color Then
CountColour = CountColour + 1
End If
Next
End Function


The working formula is: (the range of cells is S32:Y45 and the cell color to count is V48)
=CountColour(S32:Y45,V48)





My attempts included several variations of:




=AND(S32:Y45<20, CountColour(S32:Y45,V48))
=IF(S32:Y45<20, CountColour(S32:Y45,V48), "")


Would anyone know how to adjust the function or formula so that I can count the red cells that are less than 20?

 

[JackDanIce]

Perhaps this works? Change in blue:

Function CountColour(rng As Excel.Range, clr As Excel.Range) As Long

Dim c As Excel.Range

Application.Volatile

    For Each c In rng
        If c.Font.Color = clr.Font.Color And c.Value < 20 Then
            CountColour = CountColour + 1
        End If
    Next c
    

End Function

 

[johnnyb5]

Jack,

Just ran the adjusted code and it worked wonderful. I did have to change the name to stop it from conflicting with the original function but both functions work within the same sheet just like I needed!

Great Thanks!!!
JB

 

[JackDanIce]

You're welcome