Counting SHADED cells only

[makinmomb]

Is there a way to count shaded cells only , I am stranded in a case where I am waiting reply meanwhile I need to self sort myself with another indirect trick

 

[Brettster]

No this is not possible.
If you do want to do this, you would need to write your own function. For example:

Function COUNTSHADED(rng As Range) As Long

Dim lngCount As Long
Dim CellA As Range

For Each CellA In rng
    If CellA.Interior.Color <> 16777215 Then 'Blank interior
        lngCount = lngCount + 1
    End If
Next CellA

COUNTSHADED = lngCount

End Function

You can then use "=COUNTSHADED" function like any other function.

Hope this helps.
Brettster

 

[Rick Rothstein]

Is there a way to count shaded cells only , I am stranded in a case where I am waiting reply meanwhile I need to self sort myself with another indirect trick

How did the cells get their shading... manually set or by means of Conditional Formatting?

 

[makinmomb]

How did the cells get their shading... manually set or by means of Conditional Formatting?

Manually

Need that because a case of mine is half way sorted, in case you get time it called Q2 Q3 Q3 ( COUNTING REPEAT CLIENTS ) , The below seems to be answer not working

=SUMPRODUCT(IF((ISNUMBER(D$2:D$11)*(COLUMN(D$2:D$11)-3<value(RIGHT(C14,1)))</value(ISNUMBER(E$2:E$11)*(COLUMN(E$2:E$11)-3<value(RIGHT(C14,1)))+(ISNUMBER(F$2:F$11)*(COLUMN(F$2:F$11)-3<value(RIGHT(C14,1)))>0,1,0),ISNUMBER(INDEX($D$2:$G$11,0,VALUE(RIGHT(C14,1))))*(H$2:H$11>100000))

 

[makinmomb]

And how you update a new code ?