Changing font colours

[azizrasul]

I have the following code: -

For y = 2 To intRows
    With Sheets("KPI 5 - WBT")
        With .Range(.Cells(Sheets("KPI 5 - WBT").Cells(y, 6).Value, y), .Cells(110, y))
            With .Font
                .Color = Sheets("KPI 5 - WBT").Cells(y, 5).Value
                .TintAndShade = 0
            End With
        End With
    End With
Next y

where the value in

Sheets("KPI 5 - WBT").Cells(y, 5).Value

is either 0, -9571840 or -16776961, representing black, green and red respectively obtained by recording a macro.

I don't get an error but font in the cells don't change colour?

 

[wigi]

The color numbers should work, I used this test code:

With ActiveCell
  .Value = "TEST"
  .Font.Color = -16776961
End With

But why don't you use the colorindex instead of color? For Black it's 1, for Green 14, for Red 3. Much simpler I think

Try (untested):

Sub ff()

    For y = 2 To intRows
        With Sheets("KPI 5 - WBT")
            With .Range(.Cells(.Cells(y, 6).Value, y), .Cells(110, y))
                .Font.ColorIndex = .Parent.Cells(y, 5).Value
                .TintAndShade = 0
            End With
        End With
    Next

End Sub

 

[azizrasul]

That worked wigi except that I had to change

.TintAndShade = 0

to

.Font.TintAndShade = 0