$$Excel-Macros$$ Need Help urgent Please
Hi, In my sheet there are three tab 1)UPS tab 2)Router tab 3)SMPS tab so there are date column as well is there my question :when we open the excel file it should prompt me the message the date is going to expire on which tab for example :suppose in UPS tab for product no 10021003 date is 26 Apr so it is going to expire from current date then so it has to prompt me when we open the file and display the message under UPS Tab your product id 10021003 expired same as for all the tab it should display the meassage for all the tab if date is expired into one message box like for same all other tab -- syed aliya -- -- 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 Need Help.xls Description: MS-Excel spreadsheet
Re: $$Excel-Macros$$ Need Help urgent Please
Hi Ashish, Thanks for replying but it is showing for only 28-April-2011 see what i want to display the meassage which date has been expired eg.today date is 27 april ,so the message display for less than the today date or system date for example Product Date 1001 3-May-2011 1002 26-Apr-2011 1003 28-Apr-2011 the output would be for 1002 because 26 april ia less than the system date or today date,same for all the tab On Wed, Apr 27, 2011 at 4:04 AM, ashish koul koul.ash...@gmail.com wrote: try this On Wed, Apr 27, 2011 at 12:50 PM, syed aliya raza hashim hashim...@gmail.com wrote: Hi, In my sheet there are three tab 1)UPS tab 2)Router tab 3)SMPS tab so there are date column as well is there my question :when we open the excel file it should prompt me the message the date is going to expire on which tab for example :suppose in UPS tab for product no 10021003 date is 26 Apr so it is going to expire from current date then so it has to prompt me when we open the file and display the message under UPS Tab your product id 10021003 expired same as for all the tab it should display the meassage for all the tab if date is expired into one message box like for same all other tab -- syed aliya -- -- 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 -- *Regards* * * *Ashish Koul* *akoul*.*blogspot*.com http://akoul.blogspot.com/ *akoul*.wordpress.com http://akoul.wordpress.com/ My Linkedin Profile http://in.linkedin.com/pub/ashish-koul/10/400/830 P Before printing, think about the environment. -- -- 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 -- syed aliya -- -- 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
Re: $$Excel-Macros$$ Need Help urgent Please
Try ths code Private Sub Workbook_Open() Dim i, j, k As Long Dim SWA1, SWA2, SWA3 As String SWA1 = SWA2 = SWA3 = Sheets(UPS).Activate For j = 2 To Sheets(UPS).Range(a1).End(xlDown).Row If Sheets(UPS).Cells(j, 2).Value = DateSerial(Year(Now), Month(Now), Day(Now)) Then SWA1 = SWA1 vbNewLine Sheets(UPS).Cells(j, 1).Value End If Next j Sheets(Router).Activate For j = 2 To Sheets(Router).Range(a1).End(xlDown).Row If CDate(Sheets(Router).Cells(j, 2).Value) = DateSerial(Year(Now), Month(Now), Day(Now)) Then SWA2 = SWA2 vbNewLine Sheets(Router).Cells(j, 1).Value End If Next j Sheets(SMPS).Activate For j = 2 To Sheets(SMPS).Range(a1).End(xlDown).Row If CDate(Sheets(SMPS).Cells(j, 2).Value) = DateSerial(Year(Now), Month(Now), Day(Now)) Then SWA3 = SWA3 vbNewLine Sheets(SMPS).Cells(j, 1).Value End If Next j MsgBox UPS :- vbNewLine SWA1 vbNewLine vbNewLine Router :- vbNewLine SWA2 vbNewLine vbNewLine _ SMPS :- vbNewLine SWA3 Sheets(UPS).Activate End Sub -- *Regards* * * *Ashish Koul* *akoul*.*blogspot*.com http://akoul.blogspot.com/ *akoul*.wordpress.com http://akoul.wordpress.com/ My Linkedin Profile http://in.linkedin.com/pub/ashish-koul/10/400/830 P Before printing, think about the environment. -- -- 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