Thank you raj  for your help


On Sun, Aug 7, 2011 at 8:04 PM, Rajan_Verma <rajanverma1...@gmail.com>wrote:

>  *See this Function :*
>
> * *
>
> *if sum of any Two cell in selected Range is Equal to Given Value in
> Second Parameter of Function then Function will Return the Address of that
> Two Cells, here Flag will be True if condition will match, *
>
> *Next if Condition will not match Flag will be False, then I  check again
>  if Flag is False then I Assign another Value to Function Name,*
>
> * *
>
> *Flag is nothing more then Simplify the programming ..*
>
> * *
>
> * *
>
> *Function GetAddress(Rng As Range, Value1 As Integer) As String*
>
> *Dim Flag As Boolean*
>
> *Dim cell As Range*
>
> *Dim cell2 As Range*
>
> *Flag = False*
>
> * *
>
> *    For Each cell In Rng*
>
> *        For Each cell2 In Rng*
>
> *                If cell.Value + cell2.Value = Value1 Then*
>
> *                    Flag = True*
>
> *                    GetAddress = cell2.Address & "|" & cell.Address*
>
> *                    Exit For*
>
> *                End If*
>
> *        Next cell2*
>
> *    Next cell*
>
> *    *
>
> *    If Flag = False Then*
>
> *    GetAddress = "No Match Found"*
>
> *    End If*
>
> *End Function*
>
> * *
>
> * *
>
> *From:* excel-macros@googlegroups.com [mailto:
> excel-macros@googlegroups.com] *On Behalf Of *vijayajith VA
> *Sent:* Sunday, August 07, 2011 7:22 PM
> *To:* excel-macros@googlegroups.com
> *Subject:* $$Excel-Macros$$ help 4****
>
> ** **
>
> Hi Excel gurus.****
>
> ** **
>
> Can anybody explain  me on  below code ?****
>
> Just i wanted to kn About flag with examples ..Please dont scold me for
> asking this type of silly questions ... i am still learing ****
>
> ** **
>
> ** **
>
> ** **
>
> Thnks ****
>
> For Each cell In rng
> flag = 0
>                    For t = LBound(List) To UBound(List)
>                       If cell.Value = List(t) Then
>
>                        flag = 1
>                        Exit For
>                        End If
>                        Next
>
>                            If flag = 0 Then
>                            List(i) = cell.Value
>                            i = i + 1
>                            End If
> Next
> UniqueList = List(Pos)
> End Function ****
>
> --
>
> ----------------------------------------------------------------------------------
> 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

Reply via email to