Highlight cell with Fill & Font Colour

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

Try inserting above the line starting with "Else.."

With .Worksheets("PO Summary").Cells(x, 8)
    .Interior.ColorIndex = 3 'red
    .Font.ColorIndex = 6 'yellow
    .Font.Bold = True
End With

nuraisyah Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(I will add them for you - this time )

nuraisyah,

Do you need to loop?
No loop and conditional format.

Sub tst()
    Dim lastrow As Long, erow As Long
    With Sheets("PO Summary")
        lastrow = .Cells(Rows.Count, 2).End(xlUp).Row
        erow = 4
        With .Range("h" & erow & ":h" & lastrow)
            .FormatConditions.Delete
            .Offset(, 1).Formula = "=(f" & erow & "-g" & erow & ")/f" & erow
            .Formula = "=if(g4<=0,""Insufficient"",""Sufficient"")"
            .FormatConditions.Add Type:=xlExpression, Formula1:="=h" & erow & "=""Insufficient"""
            .FormatConditions(1).Font.Bold = True
            .FormatConditions(1).Font.Color = vbYellow
            .FormatConditions(1).Interior.Color = vbRed
        End With
    End With
End Sub

In response to post#6
"and font not bold?"

ActiveCell.Font.Bold = False

"what is the coding for Font color white? "
-3 different ways to get a white font

Sub WhiteA()
ActiveCell.Font.ColorIndex = 2
End Sub

OR

Sub WhiteB()
ActiveCell.Font.Color = vbWhite
End Sub

OR

Sub WhiteC()
ActiveCell.Font.Color = RGB(255, 255, 255)
End Sub

This link will help you with colours