Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Summing Cells with a BLUE font (or any other color)
To all,
I am trying to sum cells that have a specific color. Here is what I have so far: Function SumByColor(InRange As Range, WhatColorIndex As Integer) Dim Rng As Range Dim OK As Boolean Application.Volatile True For Each Rng In InRange.Cells OK = (Rng.Font.ColorIndex = WhatColorIndex) If OK And IsNumeric(Rng.Value) Then SumByColor = SumByColor + Rng.Value End If Next Rng End Function ****Thank you Chip**** When I attempt to use this, I get an error "#NAME?" Any ideas on what is going wrong? Thanks. -- RAYMOND KELLY |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Summing Cells with a BLUE font (or any other color)
Put the code in a general module (in the vbe, insert=module). Not in a
module associated with a worksheet, thisworkbook, userform or a class module. -- Regards, Tom Ogilvy "RAYMOND KELLY" wrote in message ... To all, I am trying to sum cells that have a specific color. Here is what I have so far: Function SumByColor(InRange As Range, WhatColorIndex As Integer) Dim Rng As Range Dim OK As Boolean Application.Volatile True For Each Rng In InRange.Cells OK = (Rng.Font.ColorIndex = WhatColorIndex) If OK And IsNumeric(Rng.Value) Then SumByColor = SumByColor + Rng.Value End If Next Rng End Function ****Thank you Chip**** When I attempt to use this, I get an error "#NAME?" Any ideas on what is going wrong? Thanks. -- RAYMOND KELLY |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Summing Cells with a BLUE font (or any other color)
Hi
where do you put this function?. It has to go in a standard module -- Regards Frank Kabel Frankfurt, Germany "RAYMOND KELLY" schrieb im Newsbeitrag ... To all, I am trying to sum cells that have a specific color. Here is what I have so far: Function SumByColor(InRange As Range, WhatColorIndex As Integer) Dim Rng As Range Dim OK As Boolean Application.Volatile True For Each Rng In InRange.Cells OK = (Rng.Font.ColorIndex = WhatColorIndex) If OK And IsNumeric(Rng.Value) Then SumByColor = SumByColor + Rng.Value End If Next Rng End Function ****Thank you Chip**** When I attempt to use this, I get an error "#NAME?" Any ideas on what is going wrong? Thanks. -- RAYMOND KELLY |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to replace the background color of all cells from light green to light blue? | Excel Discussion (Misc queries) | |||
Summing Cells by Color | Excel Discussion (Misc queries) | |||
Cells won't change font color or show hi-lighted cells in document | Excel Discussion (Misc queries) | |||
Setting of input cells as blue font and formula cells as black fon | Excel Discussion (Misc queries) | |||
Color Cells Summing | Excel Worksheet Functions |