Conditional Formatting for more than 3 conditions
Bob,
Your add-in is absolutely awesome once I got it to work. Kudos!
--
MMM
"Bob Phillips" wrote:
It shouldn;t be an xls file but an xla file.
Here is a VBA example that sets the cell colour
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("A1:H30")) Is Nothing Then
With Target
Select Case UCase(.Value)
Case "B": .Interior.ColorIndex = 5
Case "O": .Interior.ColorIndex = 46
Case "P": .Interior.ColorIndex = 7
Case "R": .Interior.ColorIndex = 3
'etc.
End Select
End With
End If
ws_exit:
Application.EnableEvents = True
End Sub
'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.
--
HTH
Bob Phillips
(remove nothere from the email address if mailing direct)
"MMM" wrote in message
...
Hi,
I tried downloading from the xldynamic site, but I think I am doing
something wrong. I get a zip file, and when I extract files I do not get a
.ini file only a .xls file and nothing happens after that.
Can someone help me write a Macro for this? It's simple:
I have to look down a range of columns and rows (Say A1: H30) and, based
on
the text there, which could be one of the following letters:
1) G
2) R
3) N
4) Y
5) C
6) W
I need a different color for each type of cell: 1) G=Green with dark green
font for the letter, 2) R=Red with red background and black for letter R,
3)
N= Purple background and Yellow font, 4) Y=Yellow background, black font,
5)
C=Blue background dark blue font 6) W= White background, blue font,
I have no clue how to write a Macro, your help will be highly appreciated,
thanks
--
MMM
|