Conditional Format User Defined Function > 3

[fb250r]

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

 

[sen_edp]

HELLO FRANK

YOU HAVE TO DEFINE THE RANGE YOU WISH TO CHECK WITH THE NAME
CellsToCheck

this is a macro that you can adapt yo your
needs

Andreas

 

[fb250r]

Andreas,

It works! How and where do I add cases?

 

[sen_edp]

Hello Frank


You can alter my code like this

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
Case Is < 10
.Interior.ColorIndex = 4
Case Is < 15
.Interior.ColorIndex = 9
Case Is < 20
.Interior.ColorIndex = 10
Case Is < 25
.Interior.ColorIndex = 11
Case Is < 35
.Interior.ColorIndex = 12
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


Just play with the color index to find what you need

Regards

Andreas

 

[sen_edp]

You can find out the excel colors
in
http://www.geocities.com/davemcritchie/excel/colors.htm

Rgds

Andreas

 

[fb250r]

Works Like a charm!

Forever Grateful!

Frank