How to calculate a coloured cell as a number for a sum?

[Atomic]

I have a chart and want to know how I can get the sum of coloured cell? Is
there a macro or a function where I can do that?

i.e

I have Cells C3:R3 and (cells E3, H3, I3,J3 and N3 is coloured ) I want S3
to show the total (5)

Thank you

 

[Jacob Skaria]

There is no built-in excel function to do this. But you can use a UDF that
looks at the range and returns the sum of color. But that function will not
recalculate if you change color. Every time you change the color you will
need to recalculate or wait excel to recalculate...

To install the UDF (User Defined function). From workbook launch VBE using
Alt+F11. From menu Insert a Module and paste the below function.Close and get
back to workbook and try the below formula.

=colorsum(A5:A9,D5)
cell D5 will have the fill color which is the query color...to be searched
in the range A5:A9

'To count the number of cells with numeric values
Function ColorSum(varRange As Range, varColor As Range)
Dim arrTemp As Variant, varTemp As Variant
For Each cell In varRange
varTemp = cell.Interior.ColorIndex
If varTemp = varColor.Interior.ColorIndex Then
If IsNumeric(cell.Text) Then ColorSum = ColorSum + 1
End If
Next
End Function


'If you mean to sum the cell values with matching color then
Function ColorSum(varRange As Range, varColor As Range)
Dim arrTemp As Variant, varTemp As Variant
For Each cell In varRange
varTemp = cell.Interior.ColorIndex
If varTemp = varColor.Interior.ColorIndex Then
ColorSum = ColorSum + cell.Value
End If
Next
End Function

If this post helps click Yes

 

[Ashish Mathur]

Hi,

in Excel 2007, you can filter the column by colour and then use the
SUBTOTAL(9,range) function. This will sum up the coloured cells.

--
Regards,

Ashish Mathur
Microsoft Excel MVP
www.ashishmathur.com