Macro code to format a row if cell =0

[lichldo]

Hello, I am trying to write a macro but I'm getting stuck as I keep getting an error.

What I want to happen is looking at my range A1:P1000, if P1 = 0, then format the whole row (A:P) with italics, strikethrough text, and grey background. And etc for P2, P3, etc would format THAT row.

This is what I have, but I think there is an error in the first few lines, I know the formatting at the bottom is correct language. Thanks for your help.


Sub ZeroFormat()
'
' ZeroFormat Macro
'

'
With Range("A1:P1000")
.FormatConditions.Add Type:=xlExpression, Formula1:="=AND(COUNTBLANK($P1)=0,$P1=0)"
.FormatConditions(.FormatConditions.Count).SetFirstPriority
Selection.Font.Italic = True
Selection.Font.Strikethrough = True
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With
End Sub

 

[lichldo]

please disregard this thread I am re-posting with an update, I cannot edit

 

[lichldo]

Macro code to format a row with italics and strikethrough text if cell =0

Hello, I am trying to write a macro but I'm getting stuck as I keep getting an error. What I want to happen is looking at my range A1:P1000, if P1 = 0, then format the whole row (A:P) with italics, strikethrough text, and grey background. And etc for P2, P3, etc would format THAT row. This is...

www.mrexcel.com

 

[Fluff]

How about

Sub ZeroFormat()
'
' ZeroFormat Macro
'

'
With Range("A1:P1000")
   .FormatConditions.Add Type:=xlExpression, Formula1:="=AND(COUNTBLANK($P1)=0,$P1=0)"
   .FormatConditions(.FormatConditions.Count).SetFirstPriority
   With .FormatConditions(1)
      .Font.Italic = True
      .Font.Strikethrough = True
      With .Interior
         .Pattern = xlSolid
         .PatternColorIndex = xlAutomatic
         .ThemeColor = xlThemeColorAccent3
         .TintAndShade = 0.799981688894314
         .PatternTintAndShade = 0
      End With
   End With
End With
End Sub