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
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