I have colour coded a spreadsheet and would like to set a cell to recognise
the couloured cells and add all these cells to a total

Not sure if you can actually add colored cells.

What is the content inside the cell? If there is a pattern, you can
try a few things to get a sum.


--
cparaske
------------------------------------------------------------------------
cparaske's Profile: http://www.excelforum.com/member.php...fo&userid=3793
View this thread: http://www.excelforum.com/showthread...hreadid=477902

Nothing built in

http://www.cpearson.com/excel/colors.htm

will do it


--

Regards,

Peo Sjoblom



"Wildwoody" wrote in message
...
I have colour coded a spreadsheet and would like to set a cell to
recognise
the couloured cells and add all these cells to a total

Peo recommends Chip Pearson's site to get this done, and of course he is a
pro.
Here is an armature shot at it that sums the values in the orange, red and
green cell. Will not work if the color is a result of conditional
formatting. Not sure if Chip's will overcome the conditional formatting,
been awhile since I looked at it.

Where Data is a named range on the worksheet.

Sub SumColorCount()
Dim Orange46 As Integer, _
Red3 As Integer, _
Green4 As Integer
Dim Cell As Range

For Each Cell In Range("Data")
If Cell.Interior.ColorIndex = 46 Then
Orange46 = Orange46 + Cell.Value
ElseIf Cell.Interior.ColorIndex = 3 Then
Red3 = Red3 + Cell.Value
ElseIf Cell.Interior.ColorIndex = 4 Then
Green4 = Green4 + Cell.Value
End If
Next

Range("F10").Value = "Orange = " & Orange46
Range("F11").Value = "Red = " & Red3
Range("F12").Value = "Green = " & Green4

MsgBox " You have: " & vbCr _
& vbCr & " Orange " & Orange46 _
& vbCr & " Red " & Red3 _
& vbCr & " Green " & Green4, _
vbOKOnly, "CountColor"

Range("F10").Value = ""
Range("F11").Value = ""
Range("F12").Value = ""
End Sub

HTH
Regards,
Howard

"Wildwoody" wrote in message
...
I have colour coded a spreadsheet and would like to set a cell to recognise
the couloured cells and add all these cells to a total

Not sure if Chip's will overcome the conditional formatting,
been awhile since I looked at it.

The code on my colors page does not take into account colors of
Conditional Formatting, only normal formats.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"L. Howard Kittle" wrote in message
. ..
Peo recommends Chip Pearson's site to get this done, and of
course he is a pro.
Here is an armature shot at it that sums the values in the
orange, red and green cell. Will not work if the color is a
result of conditional formatting. Not sure if Chip's will
overcome the conditional formatting, been awhile since I looked
at it.

Where Data is a named range on the worksheet.

Sub SumColorCount()
Dim Orange46 As Integer, _
Red3 As Integer, _
Green4 As Integer
Dim Cell As Range

For Each Cell In Range("Data")
If Cell.Interior.ColorIndex = 46 Then
Orange46 = Orange46 + Cell.Value
ElseIf Cell.Interior.ColorIndex = 3 Then
Red3 = Red3 + Cell.Value
ElseIf Cell.Interior.ColorIndex = 4 Then
Green4 = Green4 + Cell.Value
End If
Next

Range("F10").Value = "Orange = " & Orange46
Range("F11").Value = "Red = " & Red3
Range("F12").Value = "Green = " & Green4

MsgBox " You have: " & vbCr _
& vbCr & " Orange " & Orange46 _
& vbCr & " Red " & Red3 _
& vbCr & " Green " & Green4, _
vbOKOnly, "CountColor"

Range("F10").Value = ""
Range("F11").Value = ""
Range("F12").Value = ""
End Sub

HTH
Regards,
Howard

"Wildwoody" wrote in
message
...
I have colour coded a spreadsheet and would like to set a cell
to recognise
the couloured cells and add all these cells to a total