Help With Conditional Formatting in a Macro

[Lazarus416]

Apologies if this is covered somewhere, but I am trying to play catch up after a 6 month deployment and I have not had time to search...

I need to know how to apply conditional formatting in a macro using the following formulas to a range of cells please...(recording does not seem to work).

Range: =$D$4:$E$185,$D$187:$E$203
=$D4="Not on Psnl Rpt"
(Fill with Red, Accent 2, lighter 40%)

Range: =$D$4:$D$203
(Fill with Orange)

I have some others, but I think with these 2 examples I can puzzle out the rest. (Or just copy/paste and modify if I need to.) Thanks in advance for any assistance.

Laz

 

[Stridhan]

try in a copy

Sub fillRange()

Dim myRange As Range, c As Range
Set myRange = Range("D4:D185", "D187:D203")
For Each c In myRange
    If c.Value = "Not on Psnl Rpt" Then
        With c.Resize(, 2).Interior
            .ThemeColor = xlThemeColorAccent2
            .TintAndShade = 0.399975585192419
        End With
    End If
Next c
End Sub

 

[Lazarus416]

Hmmm. Awesome. It works, however, the one thing I see is that the conditional format rule does not show up in the "Manage Rules" drop down menu, so I can't go back and adjust the applicable cells or formulas if they change at all. Any idea how to make it show up in the conditional format rules for the worksheet?

Laz

 

[Stridhan]

I have no idea if thats even possible.

 

[Lazarus416]

Bumping to avoid getting lost in the masses...

 

[Lazarus416]

Bump

 

[Lazarus416]

So I found some additional info on this and I have a partial solution, but I am missing something somewhere...

With Range("D2:D200").FormatConditions.Add( _
        Type:=xlExpression, _
        Formula1:="D2" <> "Not on Psnl Rpt")
        
        .Interior.Color = RGB(198, 239, 206)
        .Font.Color = RGB(0, 97, 0)

This code processes the argument correctly, but it highlights everything in the range instead of just the cells where the formula is TRUE. How do I make the conditional formatting only apply to the appropriate cells? Anyone know?

(Btw, anyone know where I can go to see what the RGB is for the different colors?)

 

[Lazarus416]

So, as it turns out, the macro recorder WILL record conditional formatting, but ONLY if you select the cells you want to apply it to first and then set the conditional formatting. It won't record it if you start from the CF menu first.