Changing Text Color

[Darren Smith]

Hi,

I am trying to change font color if there is a ^ in front of the text. I have created a code below but can't seem to get it to work

Private Sub Fill_Colour_Click()

Dim c As Range, x As Long
Dim ws As Worksheet

Set ws = Sheets("Job Card Master")
Set c = ws.Range("E13:E307")

For Each c In Selection
    If Right(c, 1) = Chr("^") Then c = Left(c, Len(c) - 1)
    If InStr(c, Chr("^")) > 0 Then
        c.Value = c.Value
        For x = 1 To Len(c)
            If Asc(Mid(c, x, 1)) = Chr("^") Then c.Characters(x, 1).vbRed
        Next
    End If
Next

End Sub

 

[afonsomira]

Hello.
Try this one:

Private Sub Fill_Colour_Click()

Dim c As Range, x As Long
Dim ws As Worksheet

Set ws = Sheets("Job Card Master")
Set c = ws.Range("E13:E307")

For Each c In Selection

'If ends whit a "^" then font color = to red
If Right(c, 1) = "^" Then
c.Font.Color = vbRed
'Else no ends whit a "^" then font color = to black
Else
c.Font.Color = vbBlack
End If
Next

End Sub

 

[Darren Smith]

Hello.
Try this one:

Private Sub Fill_Colour_Click()

Dim c As Range, x As Long
Dim ws As Worksheet

Set ws = Sheets("Job Card Master")
Set c = ws.Range("E13:E307")

For Each c In Selection

'If ends whit a "^" then font color = to red
If Right(c, 1) = "^" Then
c.Font.Color = vbRed
'Else no ends whit a "^" then font color = to black
Else
c.Font.Color = vbBlack
End If
Next

End Sub

I`ve tried this but it jumps over the code if I try to run using F8. The text is to start with ^ rather than end with ^.

 

[afonsomira]

Try this:

Private Sub Fill_Colour_Click()

Dim c As Range, x As Long
Dim ws As Worksheet

Set ws = Sheets("Job Card Master")
Set c = ws.Range("E13:E307")

For Each c In Range("E13:E307")

'If begins whit a "^" then font color = to red
If Left(c, 1) = "^" Then
c.Font.Color = vbRed
'Else font color = to black
Else
c.Font.Color = vbBlack
End If
Next

End Sub

He runs for me here

 

[Darren Smith]

Thanks just ideal works brillant