change text to red

[Trevor3007]

hi,

I would rather have VB to sort my issue rather than use conditional formatting, but I lack the VB knowledge & hope 'Mr Excel can sort?

so when any cell(s) within col c, contains 'Code2663' it will turn all the text in the applicable row red. The complete range is from A2:J200



many thanks in advance & your help is very much appreciated

KR
Trevor3007

 

[mrshl9898]

Hi,

Try:

Sub red()


Dim ws As Worksheet
Set ws = ActiveSheet

Dim r As Integer
For r = ws.UsedRange.Rows.Count To 1 Step -1
    If Cells(r, "C") = "Code2663" Then
        Sheet1.Rows(r).Font.Color = -16776961
    End If
Next


End Sub

 

[Trevor3007]

Hi,

Try:

Sub red()


Dim ws As Worksheet
Set ws = ActiveSheet

Dim r As Integer
For r = ws.UsedRange.Rows.Count To 1 Step -1
    If Cells(r, "C") = "Code2663" Then
        Sheet1.Rows(r).Font.Color = -16776961
    End If
Next


End Sub

many thanks for your help. I gave it try, but did not work:[

no errors, nothing :[

any suggs?

 

[Special-K99]

Change this

If Cells(r, "C") = "Code2663" Then

to this

If Cells(r, "C") <> "Code2663" Then

Has one of your "Code2663" now changed colour?
Yes? Then your data is NOT "Code2663", thats why it didnt turn red originally.

Now change the line of code back and investigate what the data that looks like "Code2663" really is.
You can use LEN() to establish the length of the data, result should be 8, if it's something else then that data is NOT "Code2663"

 

[Trevor3007]

many thanks for your help. I gave it try, but did not work:[

no errors, nothing :[

any suggs?

hi,

many thanks again. The issue is , although the word is code2663, its looking for a upper c and not just anycase . Is it possible for it to look for the specific word , irrespectively if its upper\lower\proper case

The data is in-putted by various people...its only me who has to check.

Hoping you can sort ...

 

[Special-K99]

Try changing the line to

If UCase(Cells(r, "C")) = "CODE2663" Then