Help for a macro change cell colour under many conditions
 

please i need help.
If anyone can, i need a macro to colour a cell under some conditions.
e.g.
if (a1 and c<1) then cell "blue"
if (a<1 and d<1) then cell "green"
if (a1 and d=1) then cell "red"
if (c1 and e=1) then cell "yellow".

thanks, jim


--
dpjim
------------------------------------------------------------------------
dpjim's Profile: http://www.excelforum.com/member.php...o&userid=25143
View this thread: http://www.excelforum.com/showthread...hreadid=386388

Help for a macro change cell colour under many conditions
 

Think you are looking for something like this.

Sub Collor()

Dim Rng As Range


With Worksheets("blad1")
Set Rng = Range("A1:D12") ''your range where to lool

End With
Dim CL As Object

Selection.Cells(1).Select
Rng.Select
Selection.Interior.ColorIndex = xlNone

For Each CL In Selection.Cells
Select Case CL.Value
Case (a 1 And c < 1)
CL.Interior.ColorIndex = 3
Case (a < 1 And d < 1)
CL.Interior.ColorIndex = 4

Case Else '----- color red = 3
CL.Interior.ColorIndex = xlNone
End Select
Next

'----- color white = 2
'----- color Green = 4

Selection.Cells(1).Select

End Sub

Chris