Re: $$Excel-Macros$$ Need Help urgent Please

2011-04-27 Thread ashish koul 
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 
*akoul*.wordpress.com 
My Linkedin Profile 


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

Re: $$Excel-Macros$$ Need Help urgent Please

2011-04-27 Thread syed aliya raza hashim 
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  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 1002&1003 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
>> 1002&1003 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 
> *akoul*.wordpress.com 
> My Linkedin Profile 
>
>
> 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

$$Excel-Macros$$ Need Help urgent Please

2011-04-27 Thread syed aliya raza hashim 
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 1002&1003 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
1002&1003 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