Conditional formatting

[jpen]

Hi all,

The conditional formatting on a worksheet is working correctly. =$XFD3="Reject".

Now I want to put this condition formatting in VBA

With Range("H2:S" & LaatsteRij).FormatConditions.Add(Formula1:="=$XFD2=Reject").Interior.Color = 3
End With

But this is not working. By changing it in Formula1:="=$XFD2="Reject"" it gives already in VBA and error (red line/font).


Any ideas how to solve this?

 

[MrJoosten]

hi, don't know if it works but:

Sub format()
 
    Dim lr As Long
    
    lr = Cells(Rows.Count, 1).End(xlUp).Row 'counts rows used in column A 
    
    Range("A1:A" & lr).Select 'select range A1 to last used cel in column A 
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""d"""  'put here your specific word
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    
    With Selection.FormatConditions(1).Interior 
        .PatternColorIndex = xlAutomatic
        .Color = 255 'color is red
        .TintAndShade = 0
    End With
   
End Sub