Re: $$Excel-Macros$$ Excel Pop-ups

2011-07-04 Thread Mahreen Ellahi 
Thanks  all, it worked.

Regards

On Sun, Jul 3, 2011 at 11:54 PM, STDEV(i)  wrote:

> please try:
> =
>  Sub ExpiryWarning()
> Dim dTable As Range, t As String
>Dim R As Long, N As Long, *I As Date*
>
>Set dTable = Cells(1).CurrentRegion
>N = dTable.Rows.Count
>
>For R = 2 To N
>   If IsDate(dTable(R, 14)) Then
>  I = dTable(R, 14) - Date
>  If I <= 15 Then
>  If I > 0 Then
>  dTable(R, 1).Resize(1, dTable.Columns.Count).Select
>  t = "Name  : " & dTable(R, 4) & vbCr & vbCr
> t = t & "Expiry Date : " & Format(dTable(R, 14), "dd-mmm-")
> & vbCr & vbCr
> t = t & "Number of days to expire : " & Format(I, "0") & vbCr
>  MsgBox t, 48, "Warning"
>  End If
>  End If
>   End If
>Next
> Cells(1).Activate
> End Sub
> =
>
>
> On Sun, Jul 3, 2011 at 7:16 PM, Mahreen Ellahi 
> wrote:
>
>> Hiii
>>
>> Thanks to ST Devi, I have reached up to this level , but the code shows
>> some error now. Can anybody plz help me out.
>>
>> Regards
>>
>>  -- Forwarded message --
>> From: Mahreen Ellahi 
>> Date: Sat, Jun 18, 2011 at 10:25 PM
>> Subject: $$Excel-Macros$$ Excel Pop-ups
>> To: excel-macros@googlegroups.com
>>
>>
>>  Hii
>>
>> I have a some data with limits expiry on different dates. I want to have
>> popup window to appear whenever the limit is about to expire like 15 to 30
>> days earlier. Can anyone help me for VBA coding.
>>
>> Regards
>> Mahreen
>>
>> --
>>
>> --
>> 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
>>
>
>

-- 
--
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$$ Excel Pop-ups

2011-07-03 Thread ashish koul 
pls declare "I as Long"  then try




On Sun, Jul 3, 2011 at 8:41 PM, Rajan_Verma wrote:

>  *Please fill up this format with Some Example data so that we can help *
>
> * *
>
> * *
>
> *From:* excel-macros@googlegroups.com [mailto:
> excel-macros@googlegroups.com] *On Behalf Of *Mahreen Ellahi
> *Sent:* Sunday, July 03, 2011 5:47 PM
>
> *To:* excel-macros@googlegroups.com
> *Subject:* Fwd: $$Excel-Macros$$ Excel Pop-ups
>
>  ** **
>
> Hiii
>
> Thanks to ST Devi, I have reached up to this level , but the code shows
> some error now. Can anybody plz help me out.
>
> Regards
>
> -- Forwarded message --
> From: *Mahreen Ellahi* 
> Date: Sat, Jun 18, 2011 at 10:25 PM
> Subject: $$Excel-Macros$$ Excel Pop-ups
> To: excel-macros@googlegroups.com
>
>
> Hii
>
> I have a some data with limits expiry on different dates. I want to have
> popup window to appear whenever the limit is about to expire like 15 to 30
> days earlier. Can anyone help me for VBA coding.
>
> Regards
> Mahreen
>
> --
>
> --
> 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
>
> --
>
> --
> 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.posterous.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$$ Excel Pop-ups

2011-06-19 Thread Mahreen Ellahi 
Hey thanks it worked. Perfect solution

Mahreen

On Sun, Jun 19, 2011 at 11:59 AM, STDEV(i) wrote:

> please check this vba code, hope it helps..
>
> -Standard Module
>
> Sub ExpiryWarning()
>   ' siti Vi // Jakarta, 19 Jan 2011
>   '
>   Dim dTable As Range, t As String
>   Dim R As Long, N As Long, I As Integer
>
>   Set dTable = Cells(1).CurrentRegion
>   N = dTable.Rows.Count
>
>   For R = 2 To N
>  If IsDate(dTable(R, 5)) Then
> I = dTable(R, 5) - Date
> If I <= 15 Then
> If I > 0 Then
>dTable(R, 1).Resize(1, dTable.Columns.Count).Select
>t = "Name  : " & dTable(R, 2) & vbCr & vbCr
>t = t & "Expiry Date : " & Format(dTable(R, 5),
> "dd-mmm-") & vbCr & vbCr
>t = t & "Number of days to come : " & Format(I, "0") & vbCr
>MsgBox t, 48, "Warning"
> End If
> End If
>  End If
>   Next
>   Cells(1).Activate
> End Sub
>
> -Module Sheet1
>
> Private Sub Worksheet_Activate()
>   ExpiryWarning
> End Sub
>
> -Tiisworkbook Module
>
> Private Sub Workbook_Open()
>   ExpiryWarning
> End Sub
>
>
>
> On Sun, Jun 19, 2011 at 12:25 AM, Mahreen Ellahi
>  wrote:
> > Hii
> >
> > I have a some data with limits expiry on different dates. I want to have
> > popup window to appear whenever the limit is about to expire like 15 to
> 30
> > days earlier. Can anyone help me for VBA coding.
> >
> > Regards
> > Mahreen
>
> --
>
> --
> 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

Re: $$Excel-Macros$$ Excel Pop-ups

2011-06-19 Thread STDEV(i) 
please check this vba code, hope it helps..

-Standard Module

Sub ExpiryWarning()
  ' siti Vi // Jakarta, 19 Jan 2011
  '
  Dim dTable As Range, t As String
  Dim R As Long, N As Long, I As Integer

  Set dTable = Cells(1).CurrentRegion
  N = dTable.Rows.Count

  For R = 2 To N
     If IsDate(dTable(R, 5)) Then
        I = dTable(R, 5) - Date
        If I <= 15 Then
        If I > 0 Then
           dTable(R, 1).Resize(1, dTable.Columns.Count).Select
           t = "Name  : " & dTable(R, 2) & vbCr & vbCr
           t = t & "Expiry Date : " & Format(dTable(R, 5),
"dd-mmm-") & vbCr & vbCr
           t = t & "Number of days to come : " & Format(I, "0") & vbCr
           MsgBox t, 48, "Warning"
        End If
        End If
     End If
  Next
  Cells(1).Activate
End Sub

-Module Sheet1

Private Sub Worksheet_Activate()
   ExpiryWarning
End Sub

-Tiisworkbook Module

Private Sub Workbook_Open()
   ExpiryWarning
End Sub



On Sun, Jun 19, 2011 at 12:25 AM, Mahreen Ellahi
 wrote:
> Hii
>
> I have a some data with limits expiry on different dates. I want to have
> popup window to appear whenever the limit is about to expire like 15 to 30
> days earlier. Can anyone help me for VBA coding.
>
> Regards
> Mahreen

-- 
--
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


ctv_Excel MsgBox.xls
Description: MS-Excel spreadsheet