Counting Colors from Conditional Formats

Hello Rick , thank for the answer.

Well Iam not an expert programmer, I would like with your code can check any range of columns with conditional formatting(in this case painting red as your example) and return the value in other cell, maybe as a function or procedure, because I need identify how many columns are in red.

I hope I explained.
Thank you

@Eyvind,

Remove this line of code...

Set Rng = Application.InputBox("Select a range", Type:=8)

and change the subroutine header for the first macro I posted (do similarly for the second one) to this...

Sub CountAllRedCells(Rng As Range)

But after you do that, it is no longer a macro, rather, it is a VBA subroutine that would need to be called by a normal Excel macro where you would pass whatever range you want to examine as an argument to the subroutine.

Hello, that example is very good.

I would like to know how to modify the macro and past the range like a parameters without use the inputbox.

Thanks!

I have been scouring the web for a way of finding the colour set by conditional formatting but to no avail.
Thank you for this it is excellent, and so simple.

If you are using XL2010 or above, the Range object has a property that has not been advertised all that much which can see CF properties of a cell along with non-CF properties... the DisplayFormat property. It is an object and using its Interior.Color property allows you to see the color being displayed in the cell no matter how that color got into the cell. Here is a macro that will count all red cells in the selected range...

Sub CountAllRedCells()
Dim ColorCount As Long, Cell As Range, Rng As Range
On Error GoTo NoRangeSelected
Set Rng = Application.InputBox("Select a range", Type:=8)
On Error GoTo 0
If TypeOf Rng Is Range Then
For Each Cell In Rng
If Cell.DisplayFormat.Interior.Color = vbRed Then
ColorCount = ColorCount + 1
End If
Next
End If
MsgBox "Number of red cells in Range " & _
Rng.Address(0, 0) & " is " & ColorCount
Exit Sub
NoRangeSelected:
End Sub

If you only wanted to count the red cells that came from Conditional Formatting, then use this macro instead...

Sub CountConditionallyFormattedRedCells()
Dim ColorCount As Long, Cell As Range, Rng As Range
On Error GoTo NoRangeSelected
Set Rng = Application.InputBox("Select a range", Type:=8)
On Error GoTo 0
If TypeOf Rng Is Range Then
For Each Cell In Rng
If Cell.DisplayFormat.Interior.Color = vbRed Then
ColorCount = ColorCount - (Cell.Interior.Color <> vbRed)
End If
Next
End If
MsgBox "Number of red cells in Range " & _
Rng.Address(0, 0) & " is " & ColorCount
Exit Sub
NoRangeSelected:
End Sub

Note that this last macro is not foolproof in that theoretically a cell could be naturally red and Conditionally Formatted as red, both at the same time... that cell will not be counted as being Conditionally Formatted red by the macro. However, I don't mind this flaw as having such a Conditional Format makes no sense (you wouldn't conditionally color a red cell red, you simply wouldn't conditionally color it at all and let its natural color show through).

Here is an approach I used to count conditional formatted cells.
Count the number of rows that are being displayed from a filtered column with the function subtotal.
Use a macro to iterate over each color you want to count using the filter's subtotal and then you would be able to extract the conditional formatting count of rows for specific colors.