How to change font color on string/text values>

  • Thread starter Thread starter dalejreyes
  • Start date Start date
D

dalejreyes

I have cells with titles in which some words are black, others are
red/
struck through, and other words are blue.

For every cell that has blue words, I want to convert those words to
green. All other words in the string should remain, as is.

Any ideas? I tried this conditional formatting:

Cell Value is EQUAL TO = "vbBlue" [format..] then I clicked a green
color.

Thanks!
Dan
 
Something like this should work...

Sub RecolorText()
Dim X As Long
Dim C As Range
For Each C In Worksheets("Sheet1").Range("A1:F1")
If Len(C.Value) > 0 Then
For X = 1 To Len(C.Value)
If C.Cells.Characters(X, 1).Font.Color = vbBlue Then
C.Cells.Characters(X, 1).Font.Color = vbGreen
End If
Next
End If
Next
End Sub

Just change the worksheet and range in the For Each statement to what you
need.

Rick
 
Something like this should work...

Sub RecolorText()
Dim X As Long
Dim C As Range
For Each C In Worksheets("Sheet1").Range("A1:F1")
If Len(C.Value) > 0 Then
For X = 1 To Len(C.Value)
If C.Cells.Characters(X, 1).Font.Color = vbBlue Then
C.Cells.Characters(X, 1).Font.Color = vbGreen
End If
Next
End If
Next
End Sub

Just change the worksheet and range in the For Each statement to what you
need.

Rick


I have cells with titles in which some words are black, others are
red/
struck through, and other words are blue.
Click to expand...
For every cell that has blue words, I want to convert those words to
green. All other words in the string should remain, as is.
Click to expand...
Any ideas? I tried this conditional formatting:
Click to expand...
Cell Value is EQUAL TO = "vbBlue" [format..] then I clicked a green
color.
Click to expand...
Thanks!
Dan
Click to expand...
Click to expand...

Wow.

That worked wonders.

Thanks, Rick!
 
Back
Top