Colour changing cells

**ahav** · 05-17-2011, 06:16 AM

I need some cells to change colour depending on a condition.
If the cell reads "OK" it must be green and if it reads "Order!" it must be red.

Example attached.

Help please?

**johnjohns** · 05-17-2011, 06:25 AM

Conditional formating is for this purpose.

**zbor** · 05-17-2011, 06:27 AM

1. Paint cell as Red color
2. Conditional formatting -> New Rule -> Format cell that contain -> Cell value, equal to, "OK" -> format (green cell)

(P.S. Your profile said you using XL 2003 but example is newer version).

**Steffen Thomsen** · 05-17-2011, 06:32 AM

Hi,

Assuming the value checked for is allways in column f

Sub test()

Dim CurCell As Object


For Each CurCell In Range("F1:F20") ' adjust to langht of stock
If CurCell.Value = "OK" Then
CurCell.Select
With Selection.Interior
.Color = 5296274
End With
ElseIf CurCell.Value = "Order" Then
CurCell.Select
With Selection.Interior
.Color = 255
End With
End If
Next


End Sub

Steffen Thomsen

**alinpion** · 05-17-2011, 06:33 AM

[QUOTE=ahav;2526886]I need some cells to change colour depending on a condition.
If the cell reads "OK" it must be green and if it reads "Order!" it must be red.
QUOTE]

Because your file is in excel 2007 I cand't open and I've atached one of mine.
In the file atached try to type OK or Order in the first 35 cels (A2-A35) and see what happens

**johnjohns** · 05-17-2011, 07:00 AM

Again, I think Zbor gave the shortest, simple most solution. Filling the cell with Red color first and then using conditional formatting, change the color to green, if the cell value is "OK". That is the easiest.