2012/5/29, Mangesh Dayne <mangesh.da...@gmail.com>:
> Hi Friends,
>
> Please help me on above query.
>
> Please .
>
>
> With regards,
>
> Mangesh
>
> On Mon, May 28, 2012 at 7:25 PM, Mangesh Dayne
> <mangesh.da...@gmail.com>wrote:
>
>> Hi All,
>>
>> Please help me on below query.
>>
>> With regards,
>>
>> Mangesh
>>
>>
>> On Mon, May 28, 2012 at 5:12 PM, Mangesh Dayne
>> <mangesh.da...@gmail.com>wrote:
>>
>>> HI Noorain,
>>>
>>> Thanks for your reply.
>>> However, I didn't get about the red highlighted code.
>>> I have attached snapshot about what I need. Please find it and help me.
>>>
>>> Let me know if you need more details on same.
>>>
>>> Thanks again dear.
>>>
>>>
>>> Mangesh
>>>
>>> On Fri, May 25, 2012 at 11:20 PM, NOORAIN ANSARI <
>>> noorain.ans...@gmail.com> wrote:
>>>
>>>> *Dear Mangesh,
>>>> Please Change only red color part
>>>>
>>>>
>>>>
>>>>
>>>> Sub search_domain()
>>>> Dim rng As Range
>>>> Dim rw As Long
>>>> Dim sh1 as worksheet
>>>>
>>>> Dim sh As Worksheet
>>>> Set sh = ThisWorkbook.Sheets(1)
>>>> *
>>>> *Set sh1 = ThisWorkbook.Sheets(2)
>>>> *
>>>>
>>>> *sh.Range("D2:E7").ClearContents
>>>> For Each rng In sh1.Range("H3:H" & sh.Range("H" &
>>>> Rows.Count).End(xlUp).Row)
>>>>
>>>> If Right(rng, Len(rng) - InStr(1, rng, "@")) = Range("B1") Then
>>>> With sh
>>>> rw = .Cells(Rows.Count, "E").End(xlUp).Row + 1
>>>> .Cells(rw, "E").Value = rng.Offset(0, 0)
>>>> .Cells(rw, "D").Value = rng.Offset(0, -1)
>>>> End With
>>>> End If
>>>> Next rng
>>>> End Sub
>>>> *
>>>>
>>>>
>>>> On Fri, May 25, 2012 at 11:13 PM, Mangesh Dayne
>>>> <mangesh.da...@gmail.com
>>>> > wrote:
>>>>
>>>>> By the way Noorain, Is it possible in this example to search email in
>>>>> another sheet containing mails and names. What we could do for this?
>>>>> Please
>>>>> assist.
>>>>>
>>>>>
>>>>> On Fri, May 25, 2012 at 11:05 PM, NOORAIN ANSARI <
>>>>> noorain.ans...@gmail.com> wrote:
>>>>>
>>>>>> Thanks Mangesh...
>>>>>>
>>>>>>
>>>>>> On Fri, May 25, 2012 at 11:04 PM, Mangesh Dayne <
>>>>>> mangesh.da...@gmail.com> wrote:
>>>>>>
>>>>>>> Simply Awesome !!!
>>>>>>>
>>>>>>>
>>>>>>> On Fri, May 25, 2012 at 8:27 PM, NOORAIN ANSARI <
>>>>>>> noorain.ans...@gmail.com> wrote:
>>>>>>>
>>>>>>>> Dear Mangesh,
>>>>>>>>
>>>>>>>> Please try it...
>>>>>>>>
>>>>>>>> *Sub search_domain()
>>>>>>>> Dim rng As Range
>>>>>>>> Dim rw As Long
>>>>>>>>
>>>>>>>> Dim sh As Worksheet
>>>>>>>> Set sh = ThisWorkbook.Sheets(1)
>>>>>>>> sh.Range("D2:E7").ClearContents
>>>>>>>> For Each rng In sh.Range("H3:H" & sh.Range("H" &
>>>>>>>> Rows.Count).End(xlUp).Row)
>>>>>>>>
>>>>>>>> If Right(rng, Len(rng) - InStr(1, rng, "@")) = Range("B1") Then
>>>>>>>> With sh
>>>>>>>> rw = .Cells(Rows.Count, "E").End(xlUp).Row + 1
>>>>>>>> .Cells(rw, "E").Value = rng.Offset(0, 0)
>>>>>>>> .Cells(rw, "D").Value = rng.Offset(0, -1)
>>>>>>>> End With
>>>>>>>> End If
>>>>>>>> Next rng
>>>>>>>> End Sub
>>>>>>>> *
>>>>>>>>
>>>>>>>> See attached sheet.
>>>>>>>>
>>>>>>>>
>>>>>>>> Thanks & regards,
>>>>>>>> Noorain Ansari
>>>>>>>> www.noorainansari.com
>>>>>>>> www.excelmacroworld.blogspot.com
>>>>>>>>
>>>>>>>>
>>>>>>>> On Fri, May 25, 2012 at 6:57 PM, Mangesh Dayne <
>>>>>>>> mangesh.da...@gmail.com> wrote:
>>>>>>>>
>>>>>>>>> Thanks Noorain for your kind help.
>>>>>>>>> However, I need all the names with their mail id those we are
>>>>>>>>> searching for the domain code.
>>>>>>>>> For example, if we enter rediff.com in search box, then it would
>>>>>>>>> show -
>>>>>>>>> Name Email Amit a...@rediff.com Rajan ra...@rediff.com Please
>>>>>>>>> help me on above.
>>>>>>>>> Thanks again.
>>>>>>>>>
>>>>>>>>>
>>>>>>>>> Mangesh
>>>>>>>>>
>>>>>>>>>
>>>>>>>>> On Fri, May 25, 2012 at 6:04 PM, NOORAIN ANSARI <
>>>>>>>>> noorain.ans...@gmail.com> wrote:
>>>>>>>>>
>>>>>>>>>> Dear Mangesh,
>>>>>>>>>>
>>>>>>>>>> Please try it..and see attached sheet..
>>>>>>>>>>
>>>>>>>>>> Sub search_domainname()
>>>>>>>>>> Dim rng As Range
>>>>>>>>>> Dim sh As Worksheet
>>>>>>>>>> Set sh = ThisWorkbook.Sheets(1)
>>>>>>>>>> For Each rng In sh.Range("H3:H8")
>>>>>>>>>> If Right(rng, Len(rng) - InStr(1, rng, "@")) = Range("B1") Then
>>>>>>>>>> MsgBox "Found in Cell" & vbCrLf & rng.Address
>>>>>>>>>> Exit Sub
>>>>>>>>>> End If
>>>>>>>>>> Next rng
>>>>>>>>>> MsgBox "Not Found"
>>>>>>>>>> End Sub
>>>>>>>>>>
>>>>>>>>>> --
>>>>>>>>>> On Fri, May 25, 2012 at 5:29 PM, Mangesh Dayne <
>>>>>>>>>> mangesh.da...@gmail.com> wrote:
>>>>>>>>>>
>>>>>>>>>>> Hi All,
>>>>>>>>>>>
>>>>>>>>>>> Please help me on attached sheet.
>>>>>>>>>>>
>>>>>>>>>>> Thanks lot.
>>>>>>>>>>>
>>>>>>>>>>> with regards,
>>>>>>>>>>>
>>>>>>>>>>> Mangesh
>>>>>>>>>>>
>>>>>>>>>>> --
>>>>>>>>>>> FORUM RULES (986+ members already BANNED for violation)
>>>>>>>>>>>
>>>>>>>>>>> 1) Use concise, accurate thread titles. Poor thread titles, like
>>>>>>>>>>> Please Help, Urgent, Need Help, Formula Problem, Code Problem,
>>>>>>>>>>> and Need
>>>>>>>>>>> Advice will not get quick attention or may not be answered.
>>>>>>>>>>>
>>>>>>>>>>> 2) Don't post a question in the thread of another member.
>>>>>>>>>>>
>>>>>>>>>>> 3) Don't post questions regarding breaking or bypassing any
>>>>>>>>>>> security measure.
>>>>>>>>>>>
>>>>>>>>>>> 4) Acknowledge the responses you receive, good or bad.
>>>>>>>>>>>
>>>>>>>>>>> 5) Cross-promotion of, or links to, forums competitive to this
>>>>>>>>>>> forum in signatures are prohibited.
>>>>>>>>>>>
>>>>>>>>>>> NOTE : Don't ever post personal or confidential data in a
>>>>>>>>>>> workbook. Forum owners and members are not responsible for any
>>>>>>>>>>> loss.
>>>>>>>>>>>
>>>>>>>>>>>
>>>>>>>>>>> ------------------------------------------------------------------------------------------------------
>>>>>>>>>>> To post to this group, send email to
>>>>>>>>>>> excel-macros@googlegroups.com
>>>>>>>>>>>
>>>>>>>>>>> To unsubscribe, send a blank email to
>>>>>>>>>>> excel-macros+unsubscr...@googlegroups.com
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>> --
>>>>>>>> Thanks & regards,
>>>>>>>> Noorain Ansari
>>>>>>>> www.noorainansari.com
>>>>>>>> www.excelmacroworld.blogspot.com
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>
>>>>>>
>>>>>>
>>>>>> --
>>>>>> Thanks & regards,
>>>>>> Noorain Ansari
>>>>>> www.noorainansari.com
>>>>>> www.excelmacroworld.blogspot.com
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>
>>>>
>>>>
>>>> --
>>>> Thanks & regards,
>>>> Noorain Ansari
>>>> www.noorainansari.com
>>>> www.excelmacroworld.blogspot.com
>>>>
>>>>
>>>>
>>>>
>>>>
>>>
>>
>
> --
> FORUM RULES (986+ members already BANNED for violation)
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will
> not get quick attention or may not be answered.
>
> 2) Don't post a question in the thread of another member.
>
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
>
> 4) Acknowledge the responses you receive, good or bad.
>
> 5) Cross-promotion of, or links to, forums competitive to this forum in
> signatures are prohibited.
>
> NOTE : Don't ever post personal or confidential data in a workbook. Forum
> owners and members are not responsible for any loss.
>
> ------------------------------------------------------------------------------------------------------
> To post to this group, send email to excel-macros@googlegroups.com
>
> To unsubscribe, send a blank email to
> excel-macros+unsubscr...@googlegroups.com
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
------------------------------------------------------------------------------------------------------
To post to this group, send email to excel-macros@googlegroups.com
To unsubscribe, send a blank email to excel-macros+unsubscr...@googlegroups.com
