If Statement

D

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.
 
D

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.
 
G

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
 
D

DME

Thank You! It Works!!


Gord Dibben said:
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
Click to expand...
 
Top