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.
 

Excel Facts

VLOOKUP to Left?
Use =VLOOKUP(A2,CHOOSE({1,2},$Z$1:$Z$99,$Y$1:$Y$99),2,False) to lookup Y values to left of Z values.

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
 
Master Excel Bundle

Excel contains over 450 functions, with more added every year. That’s a huge number, so where should you start? Right here with this bundle.

Forum statistics

Threads
1,164,052
Messages
5,835,146
Members
430,342
Latest member
Sailingexcel

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top