How to calculate number of rows containing any colored cells?

[Hol_dav]

I am wondering if there is a VBA/macro that I can run to count the number of rows in my table that contain any colored cells?

My research seems to only turn up code for counting colored cells, but I need to count the entire row as 1, regardless of how many or what color cells are contained.

Please help me!

 

[Hol_dav]

well, that's only half way through. Then you need to insert the vba that others have posted to count your colored cells.
And speaking of that. You may want to test all the color counting on a just a few rows. You need to make sure the color index number (If that is what it is called) can be recognized. If not you need to experiment and find out which colors to use.

But, now that you have these rules you can use them to create a count of errors per row and sum them.

Absolutely - this is brilliant, thank you Awoohaw!!

 

[Hol_dav]

See if this macro does what you want...

Sub CountRowsWithColor()
  Dim Cnt As Long, Rng As Range
  For Each Rng In ActiveSheet.UsedRange.Rows
    Cnt = Cnt - (Rng.Interior.Color = 0)
  Next
  MsgBox "There are " & Cnt & " colored rows."
End Sub

Hi Rick - I have been applying my conditional formatting and at some point have messed up the macro you created? I tried deleting and adding back in but it still isn't working. When I run the macro, I get the wrong answer now... what might I have done wrong to change the outcome of the macro?

When I run the macro in another workbook, it seems to compute correctly though. Any advice would be appreciated!

 

[Hol_dav]

Hi Rick - I have been applying my conditional formatting and at some point have messed up the macro you created? I tried deleting and adding back in but it still isn't working. When I run the macro, I get the wrong answer now... what might I have done wrong to change the outcome of the macro?

When I run the macro in another workbook, it seems to compute correctly though. Any advice would be appreciated!

@Rick Rothstein, seems like the macro works to identify manually formatted cells? Is there anything I can change so that it recognizes conditionally formatted cells and counts those rows?