Count Colored Cells

[jaybwise]

I need to tell excel to count the colored cells ranging from D3 thru L123, then give me a percentage of the cells that are colored. any help is appreciated.

 

[taurean]

You can use VBA like this:

Public Sub ColorPercent()
Dim r As Range
Dim iCount As Integer
Dim sPercent As Single
iCount = 0
For Each r In Range("D3:L123")
If r.Interior.ColorIndex <> -4142 Then iCount = iCount + 1
Next r
sPercent = (iCount * 100 / Range("D3:L123").Count)
MsgBox sPercent
End Sub

 

[jaybwise]

Thanks for that, but I have no idea what that is. I only know basic stuff in excel.

 

[taurean]

OK. Here's a youtube video about VBE.
http://www.youtube.com/watch?v=k8um4v7T8VY

1. Open Excel File where you need to implement this code.
2. Press ALT+F11 to open Visual Basic Editor Window.
3. Insert a module using Insert >> Module.
4. Select the code and Paste it in Blank Pane in the right side.
5. And then choose File >> Close and Return to Excel.

In Excel, open the sheet where you want to check percent. Then Press ALT+F8 to open Run Macro dialog. Select the macro "ColorPercent" and Run it.