COUNTING COLORED CELLS

  • Thread starter Thread starter Roadmap
  • Start date Start date
R

Roadmap

I have a spreadsheet with 26 rows and 40 columns, some cells of which
have the background color of "tan". I need to count the colored cells
within each column. I've been going round and round with the vba
coding I found at http://www.xldynamic.com/source/xld.ColourCounter.html
- I copied the code into the vbs window, saved the module and returned
to the worksheet. In the last row of the first column, I pasted this
function: =SUMPRODUCT(--(ColorIndex(A1:A26)=3))

I know this must be very simple, but I cannot get the module to work.
One reason may be that the color is not 3 - but tan.

Any suggestions?
 
hi,
I think you may be right. color index 3 is red.
in vb help (alt+F11) look up the pattercolorindex property. it will show you
the delfaut colors and the corresponding index number. if you have custom
colors, then you must use the index number of the color you customized.

Regards
FSt1
 
hi,
I think you may be right. color index 3 is red.
in vb help (alt+F11) look up the pattercolorindex property. it will show you
the delfaut colors and the corresponding index number. if you have custom
colors, then you must use the index number of the color you customized.

Regards
FSt1







- Show quoted text -
Click to expand...

Are the dashes within the formula to be included in the formula?
 
Plug this into your VBA module, Alt + F11, Copy from here and paste into the
module screen. If you don't see the white screen, do File>Insert Module.
Then when you get it loaded, go back to Excel, click on the cell with the
color and Then do Tools>Macro>Macros>Then click on the macro name, Then click
run. The message box will show you the number you are looking for.
 
I hit the post button too soon. Here is the code.

Sub whatcolorndx()
x = ActiveCell.Interior.ColorIndex
MsgBox x
End Sub
 
one way, click the the cell, in the vb editor, press control-g to open the
immediate window, paste the following line and press enter

?activecell.interior.ColorIndex

it will return the colorindex
 
one way, click the the cell, in the vb editor, press control-g to open the
immediate window, paste the following line and press enter

?activecell.interior.ColorIndex

it will return the colorindex
--

Gary








- Show quoted text -
Click to expand...

YEAH! Now I know the color, now I just have to try to get the formula
to count! The sumproduct doesn't work, perhaps
=COUNTYBYCOLOR(........)?

THANKS TO JLGWhiz & Gary!
 
you need to scroll to the bottom of the page of the link you provided. copy and
paste the colorindex function in the shaded box into a new module.
then use the sumproduct formula.
 
YEAH! Now I know the color, now I just have to try to get the formula
to count! The sumproduct doesn't work, perhaps
=COUNTYBYCOLOR(........)?

THANKS TO JLGWhiz & Gary!- Hide quoted text -

- Show quoted text -
Click to expand...

I inserted "=COUNTBYCOLOR(BV14:CP14,40,FALSE)" - GREAT RESULTS!
Thanks so very much for your help!
 
The dashes are meant to be there, believe me.

Tan has a colorindex of 40 not 3.

The ColorIndex function should be in a standard code module not a sheet or
workbook module.

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)
 
Back
Top