If Statement

[DME]

Is there a way to produce an IF statemnt that relates to the Fill Color of a
Cel. For instance IF(the Fill Color of A1 = Red, then I want B2 * C2, IF
not then b2 *d2) .

I thought I saw something in this newsgroup beefore on this but I was unable
to find it.

Thanks in advance for help.

 

[Bob Phillips]

You need a custom function for this. There is one at
http://www.xldynamic.com/source/xld.ColourCounter.html

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Guest]

Not built in, but there are ways using VBA

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


Regards,

Peo Sjoblom

 

[DME]

I opened a new workbook and went into VBA editor and entered the following
into this workbooks Microsoft Workbook Objects section:


Function CellColorIndex(InRange As Range, Optional _
OfText As Boolean = False) As Integer
'
' This function returns the ColorIndex value of a the Interior
' (background) of a cell, or, if OfText is true, of the Font in the cell.
'
Application.Volatile True
If OfText = True Then
CellColorIndex = InRange(1,1).Font.ColorIndex
Else
CellColorIndex = InRange(1,1).Interior.ColorIndex
End If

End Function

Then typed changed the font color of cell C8 to Red. And insert the
following formula in to D8:



=CELLCOLORINDEX(A1,FALSE)

The result is #Name?.



Any suggestions as to what I may have done wrong? Thanks.

 

[DME]

Ooops, I meant to say I typed =CELLCOLORINDEX(C8,FALSE)

into cell D*.

 

[Gord Dibben]

DME

Move the Function out of ThisWorkbook into a General Module.

Insert>Module to create one.

Cut and paste the Function to that module.


Gord Dibben Excel MVP

 

[DME]

Thank You! It Works!!

DME

Move the Function out of ThisWorkbook into a General Module.

Insert>Module to create one.

Cut and paste the Function to that module.


Gord Dibben Excel MVP