Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sum depending on cell background color
I am trying to write a function that will calculate the sum of cells i
a range depending on their background color. I have looked on the net and found some sample code, tried it and i doesnt work. the code is as follows: Function colorfunction(rcolor As Range, rRange As Range, Optional SU As Boolean) Dim rcell As Range Dim lCol As Long Dim vresult lCol = rcolor.Interior.ColorIndex If SUM = True Then For Each rcell In rRange If rcell.Interior = lCol Then vresult = WorksheetFunction.SUM(rcell, vresult) End If Next rcell Else For Each rcell In rRange If rcell.Interior.ColorIndex = lCol Then vresult = 1 + vresult End If Next rcell End If colorfunction = vresult End Function The count part of this works, however if i try the SUM, it gives me #VALUE! Any help on this would be great. Cheer -- Message posted from http://www.ExcelForum.com |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Changing Cell Background Color Depending on the Number | Excel Discussion (Misc queries) | |||
how do I sum depending on the background color of cells in Excel? | Excel Discussion (Misc queries) | |||
how do i change cell background colour depending on its content? | Excel Discussion (Misc queries) | |||
Different background color depending on x-axis value | Charts and Charting in Excel | |||
Default Border, Font Color, and Cell Background Color | Excel Discussion (Misc queries) |