Partialy Change Font Color to Another Color

[greenculture]

this code change the red font color to green font color.... it is working code but getting error msg can you solve this

Public Sub FontColorInCellPart()

Dim c As Range
Dim i As Integer

For Each cell In ActiveSheet.UsedRange
   
   For i = 1 To Len(cell)
      If cell.Characters(i, 1).Font.color = RGB(255, 0, 0) Then
         cell.Characters(i, 1).Font.color = RGB(0, 255, 0)
      
      End If
   Next i
Next cell

End Sub

 

[greenculture]

screenshot error
https://www.dropbox.com/s/gsuqqxua4p42jo2/error.jpg

 

[greenculture]

can you solve this error

ERROR SCREEN SHOT https://www.dropbox.com/s/<wbr>gsuqqxua4p42jo2/error.jpg
SOURCE FILEhttps://www.dropbox.com/s/<wbr>ozersrwfmoyzesb/RED.xlsm

Public Sub Part1()

Dim cell As Range
Dim i As Integer

For Each cell In ActiveSheet.UsedRange
   
   For i = 1 To Len(cell)
      If cell.Characters(i, 1).Font.color = RGB(79, 129, 189) Then
         cell.Characters(i, 1).Font.color = RGB(255, 0, 0)

      End If
   Next i
Next cell

End Sub

 

[SydneyGeek]

What is the error? I can't get to the dropbox link.

Denis

 

[SydneyGeek]

Try...

Dim cell As Range Dim i As Integer  For Each cell In ActiveSheet.UsedRange
        For i = 1 To Len(cell)
       If cell.Characters(i).Font.color = RGB(79, 129, 189) Then
          cell.Characters(i).Font.color = RGB(255, 0, 0)
        End If
    Next i
 Next cell  End Sub

Denis

 

[greenculture]

code is not working

SOURCE FILE http://4india.my3gb.com/RED.xlsm
SCREEN SHOT http://4india.my3gb.com/error.jpg

 

[greenculture]

@sydneygeek ur code is not working same error chk image file

 

[SydneyGeek]

It works if you step backwards through the characters:

Sub foo()
Dim c As Range
Dim sText As String
Dim i As Integer

For Each c In Cells.SpecialCells(xlCellTypeConstants, xlTextValues)
    sText = c.Value
    For i = Len(sText) To 1 Step -1
        If c.Characters(i, 1).Font.Color = RGB(0, 255, 0) Then
            c.Characters(i, 1).Font.Color = RGB(255, 0, 0)
        End If
    Next i
Next c
End Sub

Denis

 

[greenculture]

@sydneygeek ur code is working thanks your help

Try............

It works if you step backwards through the characters:

Sub foo()
Dim c As Range
Dim sText As String
Dim i As Integer

For Each c In Cells.SpecialCells(xlCellTypeConstants, xlTextValues)
    sText = c.Value
    For i = Len(sText) To 1 Step -1
        If c.Characters(i, 1).Font.Color = RGB(0, 255, 0) Then
            c.Characters(i, 1).Font.Color = RGB(255, 0, 0)
        End If
    Next i
Next c
End Sub

Denis

 

[greenculture]

Replace font color for part of text
Examples will show you how to change Font Color in Excel
Change Font Color Green to Red

Sub foo()
Dim c As Range
Dim sText As String
Dim i As Integer

For Each c In Cells.SpecialCells(xlCellTypeConstants, xlTextValues)
    sText = c.Value
    For i = Len(sText) To 1 Step -1
        If c.Characters(i, 1).Font.color = RGB( 0, 255, 0) Then
            c.Characters(i, 1).Font.color = RGB(255, 0, 0)
        End If
    Next i
Next c
End Sub

Change font color (full)

Sub ChangeFontColor()
Dim c As Range
For Each c In ActiveSheet.UsedRange
'(u can replace this For Each cell In Selection)
    If c.Font.ColorIndex = 1 Then
        c.Font.ColorIndex = 16
    End If
Next c
End Sub