color count...

  • Thread starter Thread starter okrob
  • Start date Start date
O

okrob

My sub counts the color of cells in the range specified.
I'd like to count the color of cells that are colored with conditional
formating.
Right now, the entire range is set to no fill or some other color, but
upon some entry the conditional formating colors the cell red. I need
to count the red cells.
Conditionally, I have the cells in range hrdata set to red (normally
no fill) and this sub doesn't count them.
I need an explaination, please?

Sub ColorCount()
red = 0
For Each Cell In Sheet2.Range("hrdata")
If Cell.Interior.ColorIndex = 3 Then
red = red + 1
Else
End If
Next
if red > 0 then
MsgBox red
Else
End If
End Sub

Thanks,
Rob
 
yeah, I got some of the same info from Chip Pearson's site. I decided
I was going about this all wrong and just did the test with vb like I
did for the conditional format and counted that up. It produced the
same results.
Rob
 
Back
Top