MsgBox using cell references

[Guest]

I have a column that is looking for Overdue dates, I want to have a MsgBox
that shows the detail in Column A and Column B how is it possible to do?

I will then put this into the Workbook_Open so that it will pop up when
report opens.

Thanks

 

[Bob Phillips]

I would think that can be tedious to look at if there are many. Why not just
conditionally format the dates

http://www.xldynamic.com/source/xld.CF.html#due

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Incidental]

Hi Jez

One way to do it would be

Option Explicit
Dim LastRow As Integer
Dim MyCell, MyRng As Range

Private Sub Workbook_Open()

With Sheets(1)

LastRow = [A65535].End(xlUp).Row

Set MyRng = Range("A1:A" & LastRow)

For Each MyCell In MyRng

If MyCell.Value < Date Then

MsgBox (MyCell.Value & vbNewLine & MyCell.Offset(0, 1).Value)

End If

Next MyCell

End With

End Sub


Hope this helps

S

 

[Guest]

Thanks Bob,

I thought of that but due to the importance of this info, I cant have users
looking for this type of data, I need it to show them when they open the
report.

So I need to show on a MsgBox Column A and Colum B if it is in either

Due in 2 Weeks
Due in 3 Weeks
Due This Month

Those are in Column B