font colour

[sufc]

Can any one give me a formula that when i type in a single letter will automotically change the colour of the font. i.e

t would show in the cell as in the colour blue.
h would show as red

[Robb__]

Try Conditional Formatting.

- From the Main menu select Format/Conditional formatting
- Leave "Cell Value is"
- in the next box select "equal to"
- next box type, say, t
- Select the format button and then a red font.

Cell font should now change to red if you type in a "t"

You may amend that to anything you want.

Any help?

Regards

Robb__

[sen_edp]

Hello

Try conditional formatting
go to menu, format,conditional formatting,condition one,cell value is,equal to,t,font color blue
then for the second letter add
condition two,cell value is,equal to,h,font color red
e.t.c.

this works for 3 conditions only

Hope that helps

[sufc]

Thank you to all who have replied. One additional problem i want to use more than the three required adjustments you can do on conditioning format.

Any advice appreciated

[Tom Schreiner]

Hi sufc.
List your ranges and each format based upon each condition.
Tom

[Ivan F Moala]

On 2002-05-26 11:39, sufc wrote:
Thank you to all who have replied. One additional problem i want to use more than the three required adjustments you can do on conditioning format.

Any advice appreciated

You will have to do this via code.
As Tom has said,
[quote/]
List your ranges and each format based upon each condition.
Tom
[/quote]

[Nimrod]

I agree with everyone else that the conditional formating is the way to go. However if you have more then 3 conditionals then droping this code into your VBA area for you specific sheet should meet your requirements.

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        Select Case .Value
        Case "t"
            Cells(.Row, .Column).Font.ColorIndex = 5
        Case "h"
            Cells(.Row, .Column).Font.ColorIndex = 3
        Case Else
            Cells(.Row, .Column).Font.ColorIndex = 0
        End Select
    End With
End Sub

Just add more case statements for the various letters you concerned with. You may want to use a "ucase" in the formula if you want this to be case insensitive.

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        Select Case ucase(.Value)
        Case "T"
            Cells(.Row, .Column).Font.ColorIndex = 5
        Case "H"
            Cells(.Row, .Column).Font.ColorIndex = 3
        Case Else
            Cells(.Row, .Column).Font.ColorIndex = 0
        End Select
    End With
End Sub

If you want it not to be for a specific sheet but the intire workbook then drop this into the "thisworkbook" VBA object.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    With Target
        Select Case .Value
        Case "t"
            Cells(.Row, .Column).Font.ColorIndex = 5
        Case "h"
            Cells(.Row, .Column).Font.ColorIndex = 3
        Case Else
            Cells(.Row, .Column).Font.ColorIndex = 0
        End Select
    End With
End Sub

[ This Message was edited by: Nimrod on 2002-05-26 12:55 ]

[ This Message was edited by: Nimrod on 2002-05-26 12:59 ]