Add pattern and pattern colour to conditional formatting via vba

[sashapixie]

Hi All

I have the following code to add conditional formatting into my worksheet:

With Range("mapping_table[[SRC - Source System]:[SRC - Updated Date]]")
.FormatConditions.Add( _
Type:=xlExpression, _
Formula1:="=INDIRECT(""mapping_table[@[SRC - Mapping Status]]"")=""Blocked""") _
.Font.Color = RGB(255, 0, 0)
.Interior.PatternColor = RGB(255, 0, 0)
.Interior.Pattern = xlPatternLightDown
End With

The font colour works but the pattern gets applied to the whole range and not just where my mapping status = Blocked.

I am at a loss with this, I have searched all day on the internet and tried re ordering and putting in a extra with for the interior but still no luck.

Any ideas?

 

[Fluff]

How about

With Range("mapping_table[[SRC - Source System]:[SRC - Updated Date]]")
      .FormatConditions.Add _
      Type:=xlExpression, _
      Formula1:="=INDIRECT(""mapping_table[@[SRC - Mapping Status]]"")=""Blocked"""
   With .FormatConditions(.FormatConditions.Count)
      .Font.Color = RGB(255, 0, 0)
      .Interior.PatternColor = RGB(255, 0, 0)
      .Interior.Pattern = xlPatternLightDown
   End With
End With

 

[sashapixie]

Brilliant! That worked

 

[Fluff]

You're welcome & thanks for the feedback