Counting cells based on color using the immediate window?

[JacobMortensen]

Hi All.

Does one here know if it is possible to count the number of cells in a range that have a specific color?

I have tried this and it does not work:

?Application.worksheetfunction.countif(Range("A1:A10);interior.color = rgbred))

 

[JeanKim]

https://support.microsoft.com/en-us/kb/2815384
This will help you

 

[My Aswer Is This]

If your willing to use Vba:
Try this

This script will search Range ("A1:A20") to see if interior color is red.
You will get a message box telling you how many were found.
This script finds interior color not the result of Conditional Formatting that would require another type script.

Sub Count_Colored_Cells()
Dim c As Range
Dim ans As Long
ans = 0
    For Each c In Range("A1:A20")
    If c.Interior.Color = vbRed Then ans = ans + 1
    Next
    MsgBox "There are  " & ans & "  Cells colored red"
End Sub