Paste the following macro in the « thisworkbook » module :
Private Sub Workbook_Open()
Dim c As Range, txt As String
With Sheets("Sheet1")
For Each c In .Range(.[B2], .Cells(Rows.Count, 2).End(xlUp))
If c.Offset(, 5).Value = Date Then
txt = txt & c.Value & " " & c.Offset(, 1).Value & vbCrLf
End If
Next c
If txt <> "" Then
txt = Left(txt, Len(txt) - 1)
txt = "Today is Return Date for :" & vbCrLf & txt
MsgBox txt
End If
End With
End Sub
HTH
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de Prashant
Envoyé : samedi 11 juin 2011 08:31
À : excel-macros@googlegroups.com
Objet : $$Excel-Macros$$ Message box- for Reminder of Due date
Dear Experts,
I need help on macro. I need message box to pop up when file is opened.
And Message box should show code & name for employees where return
date=today. Attached file for reference
Regards,
Prashant
--
----------------------------------------------------------------------------
------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
