Conditional format more then 3 [Solved/Closed]

Report
Posts
1
Registration date
Saturday November 5, 2011
Status
Member
Last seen
November 5, 2011
-
 gaggie -
Hello,

I have seen a solution on your web from aquarelle, but how do i put that in my excel, sorry maybe its a basic question. But i have tried it to put it in the visual basic editor with alt-f11, but i do not get any change on the spreadsheet, the range which is set is correct, i do not see it in macro etc.
In other words how can i get this to work when i type those values in, so the background color changes immediatly.

thi was the solution of aquarelle:
Hello,
Try with this macro, you have to write in Visual Basic Editor :

Private Sub Worksheet_Change(ByVal Target As Range)
Set MyPlage = Range("R7:R1000")
For Each Cell In MyPlage

If Cell.Value = "Extreme" Then
Cell.Interior.ColorIndex = 3
End If
If Cell.Value = "Hight" Then
Cell.Interior.ColorIndex = 4
End If
If Cell.Value = "Medium" Then
Cell.Interior.ColorIndex = 18

End If
If Cell.Value = "Low" Then
Cell.Interior.ColorIndex = 6
End If

If Cell.Value <> "Extreme" And Cell.Value <> "Hight" And Cell.Value <> "Medium" And Cell.Value <> "Low" Then
Cell.Interior.ColorIndex = xlNone
End If

Next
End Sub

PLEASE

1 reply

Posts
2638
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
August 4, 2020
432
Hi Gaggie,

Did you implement the code in the right way?

This code needs to be put under a worksheet and not in a module.

Right-click the sheets tab you would like the code to work on and select "view code". Then paste the code.

The code will now run only on that sheet whenever a change is made.

Best regards,
Trowa
Yes, i did and it worked.
Thanks for the reply.