VBA - If cell = 0, make font white?

[lichldo]

Hello, I am trying to use conditional formatting but in VBA and the record macro doesn't record the code from conditional formatting

I just need any cell that = 0 to have white font

Is this possible in VBA? It needs to apply to the entire sheet

Thank you!!

 

[James006]

Hi,

In your conditional formatting you can use a rule whereby if value = 0 then custom format is ;;;

 

[Z51]

My macro recorder creates the appropriate code as expected, not sure why yours doesn't. Example (with minor tweaks):

Sub Macro1()
With Sheets("Sheet1").UsedRange
    .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=0"
    .FormatConditions(.FormatConditions.Count).SetFirstPriority
End With
With Sheets("Sheet1").UsedRange.FormatConditions(1).Font
    .ThemeColor = xlThemeColorDark1
    .TintAndShade = 0
End With
Sheets("Sheet1").UsedRange.FormatConditions(1).StopIfTrue = False
End Sub

 

[lichldo]

Hi,

In your conditional formatting you can use a rule whereby if value = 0 then custom format is ;;;

I need to use VBA so am looking for help with the code

 

[lichldo]

My macro recorder creates the appropriate code as expected, not sure why yours doesn't. Example (with minor tweaks):

Sub Macro1()
With Sheets("Sheet1").UsedRange
    .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=0"
    .FormatConditions(.FormatConditions.Count).SetFirstPriority
End With
With Sheets("Sheet1").UsedRange.FormatConditions(1).Font
    .ThemeColor = xlThemeColorDark1
    .TintAndShade = 0
End With
Sheets("Sheet1").UsedRange.FormatConditions(1).StopIfTrue = False
End Sub

the name of the sheet will not always be consistent. can it be applied to just be on the active sheet?

 

[Z51]

Just change all references from Sheets("Sheet1") to ActiveSheet