Change Font Color

[memartin]

I want to change the font color from the default (black) to red for part of a result within a cell.
For example, the formula ="The current version date is: "&right(Tab1!$A$13,9) produces "The current version date is: 6/20/12" all in black.
But I want it to produce "The current version date is: 6/20/12". Any suggestions?

 

[Andrew Poulsom]

Sorry, you can't apply rich text formatting to the result of a formula.

 

[rob.barnes01]

If it's practical for your application, you could place the string "The current version date is: " in one cell and place the formula in the cell directly adjacent to it, formatted in red.

 

[mathchick]

only option would be to have "The current version date is: " and "6/20/12" in different cells

 

[memartin]

Sorry, you can't apply rich text formatting to the result of a formula.

Thank you for responding so quickly.

 

[memartin]

If it's practical for your application, you could place the string "The current version date is: " in one cell and place the formula in the cell directly adjacent to it, formatted in red.

thank you for the suggestion. I will do that.

 

[Rick Rothstein]

only option would be to have "The current version date is: " and "6/20/12" in different cells

Another option would be to remove the formula and fill the cell from VB event code...

Private Sub Worksheet_Change(ByVal Target As Range)
  Const OutputSheet As String = "Sheet2"
  Const OutputCell As String = "B2"
  If Target.Address(0, 0) = "A13" Then
    With Worksheets(OutputSheet).Range(OutputCell)
      .Value = "The current version date is: " & Right(Target.Value, 9)
      .Characters(30, 9).Font.ColorIndex = 3
    End With
  End If
End Sub

HOW TO INSTALL Event Code
------------------------------------
If you are new to event code procedures, they are easy to install. To install it, right-click the name tab at the bottom of the worksheet that is to have the functionality to be provided by the event code and select "View Code" from the popup menu that appears. This will open up the code window for that worksheet. Copy/Paste the event code into that code window. That's it... the code will now operate automatically when its particular event procedure is raised by an action you take on the worksheet itself.

 

[memartin]

Another option would be to remove the formula and fill the cell from VB event code...

Private Sub Worksheet_Change(ByVal Target As Range)
  Const OutputSheet As String = "Sheet2"
  Const OutputCell As String = "B2"
  If Target.Address(0, 0) = "A13" Then
    With Worksheets(OutputSheet).Range(OutputCell)
      .Value = "The current version date is: " & Right(Target.Value, 9)
      .Characters(30, 9).Font.ColorIndex = 3
    End With
  End If
End Sub

HOW TO INSTALL Event Code
------------------------------------
If you are new to event code procedures, they are easy to install. To install it, right-click the name tab at the bottom of the worksheet that is to have the functionality to be provided by the event code and select "View Code" from the popup menu that appears. This will open up the code window for that worksheet. Copy/Paste the event code into that code window. That's it... the code will now operate automatically when its particular event procedure is raised by an action you take on the worksheet itself.

This a great solution. I will try it. Thank you very much.