Hi,
I am working out on the IF & ELSE project. The codes created below are correct but I am not sure how to adjust the Font.
Basically i need the result of "Insufficient" to be filled with a colour on its Cell.
Fill Colour: Red
Font Colour Yellow & also Bold
Please assist.
Below are the codings:
lastrow = Sheets("PO Summary").Cells(Rows.Count, 2).End(xlUp).Row
erow = 4
For x = 4 To lastrow
Worksheets("PO Summary").Cells(x, 9).FormulaR1C1 = "=(RC6 - RC7)/RC6"
If Worksheets("PO Summary").Cells(x, 7) <= 0 Then
Worksheets("PO Summary").Cells(x, 8) = "Insufficient"
Else
Worksheets("PO Summary").Cells(x, 8) = "Sufficient"
End If
erow = erow + 1
Next x
End Sub
Bookmarks