VBA Apply Conditional Formatting Formula If Cell Contains...

[CravingGod]

Novice here. I'm sure it's simple. I have some previously existing code that works fine, but I think I need to add either an "if" statement or an "and" statement to the formula somehow.

I have a report that is generated and the code below provides conditional formatting if H>G starting on row 3. I only need this rule to apply if the corresponding cell in column K contains "Pipe".

Thanks in advance.

' Conditional format columns G:H where H>G
  
    Range("H3").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$H3>$G3"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 49407
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Range("G3:H3,G3:H1048576").Select
    Range("H3").Activate
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$H3>$G3"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 49407
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Range("G1:H2").Select
    Selection.FormatConditions.Delete

 

[AlphaFrog]

It looks like your existing code added the same condition twice.

Try this...

[color=green]' Conditional format columns G:H where H>G and K contains "Pipe"[/color]
    
    [color=darkblue]With[/color] Range("G3:H" & Rows.Count)
        .Select
        [color=darkblue]With[/color] .FormatConditions
            .Delete
            [color=darkblue]With[/color] .Add(Type:=xlExpression, Formula1:="=AND($H3>$G3,SEARCH(""Pipe"",$K3))").Interior
                .PatternColorIndex = xlAutomatic
                .Color = 49407
                .TintAndShade = 0
            [color=darkblue]End[/color] [color=darkblue]With[/color]
        [color=darkblue]End[/color] [color=darkblue]With[/color]
    [color=darkblue]End[/color] [color=darkblue]With[/color]

 

[Joe4]

This is where Macro Recorder comes in handy. Record yourself doing it manually, then view the VBA code the Recorder creating, and apply it to your code.
So change this part:

Formula1:="=$H3>$G3"

to

Formula1:= "=AND($H3>$G3,$K3=""Pipe"")"

Edit: I wasn't quite clear if column K will equal "Pipe" exactly, or may contain "Pipe" along with other text. If so, then go with AlphaFrog's suggestion.

 

[CravingGod]

Thanks Joe4. That seemed to work just fine.

AlphaFrog, thank you for the effort you put into correcting my problem. I sure it would have worked, but I wasn't confident enough in my own coding ability make it jive with everything else.

I appreciate it guys.