Need your suggestions

irresistible007

Board Regular
Joined
Nov 24, 2005
Messages
173
Hi everyone,

I have a sheet detailing orders. One of the column is having expiry date of L/C (well LC means Letter of credit its a payment instrument) in case Lc expires before the shipment of order the L/c has either to be extended or the order has to be cancelled.

Recently I have added this column in my sheet because its important to get notified if L/C expiry date is near. Since the sheet is too large, putting expiry date in front of each order won't help me enough, so what i want is to get notified if one or more L/Cs are going to be expired in next 15 days.

Kindly propose what sort of solution suits this situation best.
 

Some videos you may like

Excel Facts

Add Bullets to Range
Select range. Press Ctrl+1. On Number tab, choose Custom. Type Alt+7 then space then @ sign (using 7 on numeric keypad)

jindon

MrExcel MVP
Joined
Aug 21, 2004
Messages
16,995
Hi

How about conditional formatting?

assuming Ex;p date in col.A

select column A -> format ->Conditional Formatting
enter formula
=AND(A1>=TODAY(),A1<=TODAY()+15)

then select format
 

irresistible007

Board Regular
Joined
Nov 24, 2005
Messages
173
Not a bad idea, infact it was the first thing wich came into my mind. But how about getting more eye-catching or enforcing sol.... like a popup or whatever ?
 

jindon

MrExcel MVP
Joined
Aug 21, 2004
Messages
16,995
Code:
Private Sub Workbook_Open()
Dim r As Range, rng As Range, txt As String
With Sheets("sheet1") '<-- alter to suite
    For Each r In .Range("a1", .Range("a" & Rows.Count).End(xlUp))
        If IsDate(r) And r >= Date And r <= Date + 15 Then
            If rng Is Nothing Then
                Set rng = r
            Else
                Set rng = Union(rng, r)
            End If
            txt = txt & r.Address(0, 0) & vbLf
        End If
    Next
    If Not rng Is Nothing Then rng.Interior.ColorIndex = 3
    If Len(txt) > 0 Then MsgBox "Watch out!" & vbLf & vbLf & txt
End With
Set rng = Nothing
End Sub
 

Watch MrExcel Video

Forum statistics

Threads
1,118,324
Messages
5,571,551
Members
412,403
Latest member
Iggvsbsb
Top