Conditional Format User Defined Function > 3

[fb250r]

Does anyone have User defined function that allows more than 3 conditions?

[sen_edp]

hello there

Yes, Excel can use user defined functions (vba)in conditional formatting.
Please be more concise, what exactly you need ?

Andreas

[fb250r]

Hello Andreas,

I would like to setup Conditional Formating for more than 3 conditions.

Select a row
Change Text colors based on 5 conditions.

Example: if value is <70 then blue

<80 then red

<90 then green

<100 then black

<110 then yellow

Etc.


Is there a way?

[kinkyparamour]

You can go to conditional formating and set up your formulas............I was wrong, you can only use three conditions.

[ This Message was edited by: kinkyparamour on 2002-05-01 13:50 ]

[fb250r]

How, my friend? I mean, can you give me an example of the formula syntax?

[lenze]

See my post at this thread

http://www.mrexcel.com/board/viewtop...c=6218&forum=2

[fb250r]

Not working. Any formula suggestions?

[sen_edp]

hello

try that code in vba

Sub CheckCells()
Set RangeToFormat = Sheets("Sheet1").Range("CellsToCheck")
For Each cell In RangeToFormat
With cell
' Empty cells
If IsEmpty(cell) Then
.Interior.Colorindex = xlNone
' Numeric cells
ElseIf IsNumeric(cell.Value) Then
Select Case cell.Value
Case Is < 0
.Interior.Colorindex = 7
End Select
' Error cells
ElseIf IsError(cell.Value)
Then 'Error cells
.Interior.Color = 3
' Other cells (text)
Else
.Interior.Colorindex = xlNone
End If
End With
Next cell
End Sub



Andreas

[lenze]

using this custom format

[Blue][<70]0;[Red][<80]0;[Green]0
and these 3 conditions in conditional formating
Condition 1 Cell Value >= 110 purple
Condition 2 Cell Value >= 100 yellow
Condition 3 Cell Value >= 90 black

will produce the 5 conditons in you example

[fb250r]

Andreas,

It's getting hung up on this line:

Set RangeToFormat = Sheets("Sheet1").Range("CellsToCheck")

Frank