Posted by lenze on January 11, 2002 12:41 PM
Custom Format:
[='Apple'][Red]
Posted by Tony on January 11, 2002 12:49 PM
Sorry Lenze, that formula makes "all" words show as Red.
Posted by Jim on January 11, 2002 1:06 PM
Hi Tony,
Try, format>conditional formatting> condition 1
cell value is = to: apple> format>patterns> click
on red > add
Next
Condition 2,
cell value is not equal to apple>format>patterns>
click on black > add
hope this helps,
Jim
Posted by Tony on January 11, 2002 1:26 PM
Hi Jim,
Unfortunately, i have already used all of my Conditional Formating allowances for my cells. I will "have to" use Custom Formatting
Tony
Hi Tony, Try, format>conditional formatting> condition 1
Posted by Jim on January 11, 2002 1:33 PM
Hi Tony,
I remember seeing something along these lines posted
a while back, and it you can accomplish what your
trying to do with vba code. If you don't get anymore
repsonces scroll down and you will probably find
your answer.
Good luck,
Jim
Posted by Barrie Davidson on January 11, 2002 1:51 PM
Tony, you can paste this code in to your worksheet (make whatever changes you require).
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Position As Long
Position = InStr(Target.Value, "apple")
If Position = 0 Then Exit Sub
With Target.Characters(Start:=Position, Length:=5).Font
.ColorIndex = 3
End With
End Sub
Regards,
BarrieBarrie Davidson
Posted by Barrie Davidson on January 11, 2002 1:57 PM
Minor correction to posting above
Tony, use this instead (the first one was case sensitive).
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Position As Long
Dim SearchString As String
SearchString = LCase(Target.Value)
Position = InStr(SearchString, "apple")
If Position = 0 Then Exit Sub
With Target.Characters(Start:=Position, Length:=5).Font
.ColorIndex = 3
End With
End Sub
Regards,
BarrieBarrie Davidson