Conditional Formatting with VBA

[MurraySMTH]

Hi All,

I am having issues with writing a code for conditional formatting for dates in my J and I columns.

If J is greater than or equal to column I, I wanted to highlight that green.

I know i could do this with the usual conditional formatting, but i will be using this report often and it will be replaced.

 

[Joe4]

If you turn on your Macro Recorder, and record yourself setting up the Conditional Formatting, you will have most of the code that you need.
If you need help generalizing it (i.e. dynamically finding the last row to apply it to), just paste the code that you have recorded here, and we can help you edit it to do that.

 

[MurraySMTH]

This is what i got. It works, but will it work on every report i pull?




Attribute VB_Name = "Module2"



Sub Appt4lessthanequaltoHSD()

Attribute Appt4lessthanequaltoHSD.VB_ProcData.VB_Invoke_Func = " \n14"

'

' Appt4lessthanequaltoHSD Macro

'



'

Columns("I:J").Select

Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$J2<=$I1"

Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

With Selection.FormatConditions(1).Interior

.PatternColorIndex = xlAutomatic

.ThemeColor = xlThemeColorAccent6

.TintAndShade = 0.599963377788629

End With

Selection.FormatConditions(1).StopIfTrue = False

Range("J9").Select

End Sub

 

[Joe4]

It looks like it should. Try it out of a few files to verify.