Count color

[Afarag]

Dears,



Please i have i sheet contain more than one columns colored with many colors"Red", "Green", "Black", "Black" etc...
i want to count all cell colored in the column
the attached sheet



Gratefully,

 

[dan_l]

It's explained best here: http://www.ozgrid.com/VBA/sum-count-cells-by-color.htm

 

[Hui]

Try the following

To Count: =Sum_color(Range,Color Range,0)
To Sum : =Sum_color(Range,Color Range,1)
Default is Count: =Sum_color(Range,Color Range)

Copy the code into a Code Module in VBA

Function sum_color(myRange As Range, myColor As Range, Optional myType = 0) As Double
Dim summ As Double
summ = 0
For Each c In myRange
If myType = 1 And c.Interior.Color = myColor.Interior.Color Then summ = summ + c.Text
If myType = 0 And c.Interior.Color = myColor.Interior.Color Then summ = summ + 1
Next
sum_color = summ
End Function

 

[Afarag]

@dan_l

okey it's fine

but i have in each row more than one color for this function i want to count more than one color in the row
=ColorFunction($C$1,$A$1:$A$12,FALSE)

 

[sgmpatnaik]

@Afarag

when you use the Color Function from the Ozgrid then you have mention the Color in the Column $c$1 then it will count the Given Color of C1

Hope it's clear other wise please inform

Thanks

 

[Afarag]

yah i get what you explain, but what i ask is if i have in one columns more than one color and i want to count all colored cells, can i use color range or use =Sum(ColorFunction($C$1,$A$1:$A$12,FALSE),ColorFunction($C$2,$A$1:$A$12,FALSE),etc..


Thanks,