text colour / cell colour

[jillseurre]

how can i write a function that will also change the cell or font colour.

ie

if(x>1, "greencolour","redcolour&quot and also return the result
x=4 result = 4 in green
x=0 result = 0 in red

 

[dyarwood]

ON a selected cell the following code will change the colour

Selection.Font.ColorIndex = 3 'Changes font colour
With Selection.Interior
.ColorIndex = 6 'Changes cell colour
.Pattern = xlSolid
End With

hope that helps

dyarwood

 

[xlbo]

No need for code - just use conditional formatting

Select cells
Format>Conditional formatting
Select Value Is = 4
choose green font
2nd condition
Value Is = 0
choose red font

et voila


Rgds, Geoff
[blue]Si hoc signum legere potes, operis boni in rebus Latinus alacribus et fructuosis potiri potes![/blue]
Want the [red]best[/red] answers to your questions ? faq222-2244