please i need help.
If anyone can, i need a macro to colour a cell under some conditions.
e.g.
if (a>1 and c<1) then cell "blue"
if (a<1 and d<1) then cell "green"
if (a>1 and d=1) then cell "red"
if (c>1 and e=1) then cell "yellow".
thanks, jim
please i need help.
If anyone can, i need a macro to colour a cell under some conditions.
e.g.
if (a>1 and c<1) then cell "blue"
if (a<1 and d<1) then cell "green"
if (a>1 and d=1) then cell "red"
if (c>1 and e=1) then cell "yellow".
thanks, jim
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
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks