I'd like to conditionally format a cell based on today's date

0

0to60

I have a column that contains important dates, and I'd like to say make the
forecolor red if they're 3 months away, blue if their 6 months away, etc...

How do I do this?
 
G

Greg Glynn

I have a column that contains important dates, and I'd like to say make the
forecolor red if they're 3 months away, blue if their 6 months away, etc....

How do I do this?
Click to expand...

This will set it up for you:

Sub SetUpConditions()

Range("B2").Select
With Range("B2")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$B$2>=INT(NOW())+180"
.FormatConditions(1).Font.ColorIndex = 2
.FormatConditions(1).Interior.ColorIndex = 5
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$B$2>=INT(NOW())+90"
.FormatConditions(2).Font.ColorIndex = 2
.FormatConditions(2).Interior.ColorIndex = 3
End With

End Sub

Then have a look at Format -> Conditonal Formatting to tweak it. Hope
this helps.
 
Top