Detecting cell fill color

Is there a function, or some VBA code that will detect
that a user has applied a fill color to a cell? I want to
reference a cell, and with a =IF function, apply a
calculation to colored cells.

Hi Tony
There isn't anything that comes with Excel.
However, have a look at this site for processing of coloured cells.

www.xldynamic.com/source/xld.colourCounter.html


HTH
Michael

"Tony Rice" wrote:

> Is there a function, or some VBA code that will detect
> that a user has applied a fill color to a cell? I want to
> reference a cell, and with a =IF function, apply a
> calculation to colored cells.
>

Many thanks Mike - can't get the link to work right now -
I will try gain later

regards

Tony

>-----Original Message-----
>Hi Tony
>There isn't anything that comes with Excel.
>However, have a look at this site for processing of
coloured cells.
>
>www.xldynamic.com/source/xld.colourCounter.html
>
>
>HTH
>Michael
>
>"Tony Rice" wrote:
>
>> Is there a function, or some VBA code that will detect
>> that a user has applied a fill color to a cell? I want
to
>> reference a cell, and with a =IF function, apply a
>> calculation to colored cells.
>>
>.
>

Sub iffillcolor()
For Each c In Selection
If c.Interior.ColorIndex > 0 Then c.Value = 1
Next
End Sub

--
Don Guillett
SalesAid Software
[email protected]
"Tony Rice" <[email protected]> wrote in message
news:[email protected]...
> Is there a function, or some VBA code that will detect
> that a user has applied a fill color to a cell? I want to
> reference a cell, and with a =IF function, apply a
> calculation to colored cells.

Tony

As an alternative, try Chip Pearson's site.

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


Gord Dibben Excel MVP

On Sun, 6 Mar 2005 19:40:42 -0800, "Tony Rice" <[email protected]> wrote:

>Many thanks Mike - can't get the link to work right now -
>I will try gain later
>
>regards
>
>Tony
>
>>-----Original Message-----
>>Hi Tony
>>There isn't anything that comes with Excel.
>>However, have a look at this site for processing of
>coloured cells.
>>
>>www.xldynamic.com/source/xld.colourCounter.html
>>
>>
>>HTH
>>Michael
>>
>>"Tony Rice" wrote:
>>
>>> Is there a function, or some VBA code that will detect
>>> that a user has applied a fill color to a cell? I want
>to
>>> reference a cell, and with a =IF function, apply a
>>> calculation to colored cells.
>>>
>>.
>>