View Single Post
  #6   Report Post  
Posted to microsoft.public.excel.programming
frustrated frustrated is offline
external usenet poster
 
Posts: 1
Default Summing cells by background colour


Thanks for all the replies.

I have had a look at the sites recommended unfortunately I dont reall
understand programming but I have given it a go. I have used th
following code:

Summing The Values Of Cells With A Specific Color

The following function will return the sum of cells in a range tha
have either an Interior (background) or Font of a specified color.
InRange is the range of cells to examine, WhatColorIndex is th
ColorIndex value to count, and OfText indicates whether to return th
ColorIndex of the Font (if True) or the Interior (if False).

Function SumByColor(InRange As Range, WhatColorIndex As Integer, _
Optional OfText As Boolean = False) As Double
'
' This function return the SUM of the values of cells in
' InRange with a background color, or if OfText is True a
' font color, equal to WhatColorIndex.
'
Dim Rng As Range
Dim OK As Boolean

Application.Volatile True
For Each Rng In InRange.Cells
If OfText = True Then
OK = (Rng.Font.ColorIndex = WhatColorIndex)
Else
OK = (Rng.Interior.ColorIndex = WhatColorIndex)
End If
If OK And IsNumeric(Rng.Value) Then
SumByColor = SumByColor + Rng.Value
End If
Next Rng

End Function

You can call this function from a worksheet cell with a formula like
=SUMBYCOLOR(A1:A10,3,FALSE)

Now this works but this isn't what I want to do as the final value jus
tells me how many cells I have with a red background whereas I want t
sum all the numbers in a cell with a red background.

I have triesd other things off these sites but the above is the onl
one I can get to work.

Can someone point me in the right direction?

Thank

--
frustrate
-----------------------------------------------------------------------
frustrated's Profile: http://www.excelforum.com/member.php...fo&userid=2777
View this thread: http://www.excelforum.com/showthread.php?threadid=49385