Count Red Cells on a worksheet

[Guest]

I am looking for a way to count the number of Red Cells on a worksheet and
return that number is a message box. Thanks in advance!

 

[Guest]

Something along these lines should work.

If cells are colored by conditional format:

For Each c In myRange
If c.FormatConditions.Interior.ColorIndex = 3 Then
'Do something
End If

If cells are colored by standard format or code:

For Each c In myRange
If c.Interior.ColorIndex = 3 Then
'Do something
End If

 

[Guest]

You realize, of course, that is not complete code.

 

[Guest]

Here is code that will work if the cells are red by standard format method.

Sub cntclr()
Count = 0
For Each C In Worksheets(1).Range("A1:F20") 'Change range for needs.
If C.Interior.ColorIndex = 3 Then
Count = Count + 1
End If
Next
MsgBox Count
End Sub

 

[Guest]

What if it is a conditional formatting that turns the cell red??

 

[Guest]

What if it is a conditional formatting that turns the cell red??

In that case you just insert the FormatConditions property like:

Sub cntclr()
Count = 0
For Each C In Worksheets(1).Range("A1:F20") 'Change range for needs.
If C.FormatConditions.Interior.ColorIndex = 3 Then
Count = Count + 1
End If
Next
MsgBox Count
End Sub