a few questions
there are no Dates in column "M"....which column (D or I) did you mean.
you aren't choosing a RANGE at the beginning of the macro...did you mean to?
I added a clearing of the CF at the beginning of the macro and a RANGE at the begininng of the macro....not sure I'm helping...
Sub Conditionals()
'
' Conditionals Macro
'
'
Cells.FormatConditions.Delete
Columns("A:M").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=COUNTIF($G2,""3"")"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.599963377788629
End With
Selection.FormatConditions(1).StopIfTrue = False
Columns("A:M").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=COUNTIF($J2,""0"")"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.599963377788629
End With
Selection.FormatConditions(1).StopIfTrue = False
Columns("A:M").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=COUNTIF($G2,""1"")"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.599963377788629
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=AND(MEDIAN(TODAY(),$I2,TODAY()-1065)=$I2)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16776961
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=AND(MEDIAN(TODAY()+1,$I2,TODAY()+7)=$I2)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -6279056
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
Bookmarks