+ Reply to Thread
Results 1 to 4 of 4

How do I convert email addresses to clickable links?

  1. #1
    Rick Wetzel
    Guest

    How do I convert email addresses to clickable links?

    I have imported a column of valid email address. How can I make them
    clickable links to email. No problem if I type them but there are far to
    many.

    Help apprecited. Thanks.

    Rick Wetzel

  2. #2
    Ron de Bruin
    Guest

    Re: How do I convert email addresses to clickable links?

    Hi Rick

    Try this one for Column B in the activesheet

    Sub test()
    For Each myCell In Columns("B").Cells.SpecialCells(xlCellTypeConstants)
    If myCell.Value Like "*@*" Then
    ActiveSheet.Hyperlinks.Add Anchor:=myCell, _
    Address:="mailto:" & myCell.Value, TextToDisplay:=myCell.Value
    End If
    Next
    End Sub




    --
    Regards Ron de Bruin
    http://www.rondebruin.nl



    "Rick Wetzel" <Rick@fayesinc(DontInclude).com> wrote in message news:85267525-F2D2-4682-9918-F8266FFD897C@microsoft.com...
    >I have imported a column of valid email address. How can I make them
    > clickable links to email. No problem if I type them but there are far to
    > many.
    >
    > Help apprecited. Thanks.
    >
    > Rick Wetzel




  3. #3
    JE McGimpsey
    Guest

    Re: How do I convert email addresses to clickable links?

    small suggestion:

    Instead of "*@*", the pattern "?*@?*.?*" will be more
    discriminating for email addresses.

    See http://mcgimpsey.com/excel/subs/converttomaillink.html



    In article <#FLLsP5CFHA.2288@TK2MSFTNGP14.phx.gbl>,
    "Ron de Bruin" <rondebruin@kabelfoon.nl> wrote:

    > Try this one for Column B in the activesheet
    >
    > Sub test()
    > For Each myCell In Columns("B").Cells.SpecialCells(xlCellTypeConstants)
    > If myCell.Value Like "*@*" Then
    > ActiveSheet.Hyperlinks.Add Anchor:=myCell, _
    > Address:="mailto:" & myCell.Value, TextToDisplay:=myCell.Value
    > End If
    > Next
    > End Sub


  4. #4
    Ron de Bruin
    Guest

    Re: How do I convert email addresses to clickable links?

    Thanks J.E for this suggestion



    --
    Regards Ron de Bruin
    http://www.rondebruin.nl



    "JE McGimpsey" <jemcgimpsey@mvps.org> wrote in message news:jemcgimpsey-19BD6F.09060105022005@msnews.microsoft.com...
    > small suggestion:
    >
    > Instead of "*@*", the pattern "?*@?*.?*" will be more
    > discriminating for email addresses.
    >
    > See http://mcgimpsey.com/excel/subs/converttomaillink.html
    >
    >
    >
    > In article <#FLLsP5CFHA.2288@TK2MSFTNGP14.phx.gbl>,
    > "Ron de Bruin" <rondebruin@kabelfoon.nl> wrote:
    >
    >> Try this one for Column B in the activesheet
    >>
    >> Sub test()
    >> For Each myCell In Columns("B").Cells.SpecialCells(xlCellTypeConstants)
    >> If myCell.Value Like "*@*" Then
    >> ActiveSheet.Hyperlinks.Add Anchor:=myCell, _
    >> Address:="mailto:" & myCell.Value, TextToDisplay:=myCell.Value
    >> End If
    >> Next
    >> End Sub




+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1