Highlighting out of date cells

Closed
Ren - Aug 26, 2009 at 03:20 AM
venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - Aug 26, 2009 at 07:14 AM
Hello,
I have never made a macro before and not even sure if i need it for this task but hey here we go.

I need to highlight certain cells in red when the date inside is two weeks from going out of date. E.G.

Jam1 12/06/09
jam4 14/06/09
jam2 28/06/06

In this group if todays date was 1/06/09 then the top one will automatically go red.
How do i do this please?

Excel 2007

1 response

venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 811
Aug 26, 2009 at 07:14 AM
In excel dates must be entred as month/date/year e.g. 8/12/09
not as you have done. Of course you can format it as you like

besides today's date is 26th August 2009

your data is in A1 to B3. If it is more rows the macro will work

try this macro

Sub test()
Dim rng As Range, c As Range
Set rng = Range(Range("B1"), Range("B1").End(xlDown))
For Each c In rng
If c <= Date - 14 Then c.Interior.ColorIndex = 3
Next


End Sub
1