Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Old May 3rd 05, 05:22 PM
littleellisdude
 
Posts: n/a
Default Separating an email address embedded in a "mail to:" hyperlink

How can I separate (extract) ALL of the email addresses from a column of
MULTIPLE "email data hyperlinks" when they are all embedded in a "mail to:"
hyperlink? There is only one per row, but about 2000 in the total column.
Doing them one at a time will take a year to extract (
Thank you!!!
Example:
clicking on John Doe in a column opens Outlook "mail to:" to the persons
real email address.

  #2   Report Post  
Old May 3rd 05, 05:39 PM
Ron de Bruin
 
Posts: n/a
Default

Hi

Try this with the hyperlinks in column A

Sub test3()
Dim hlnk As Hyperlink
For Each hlnk In Columns("A").Hyperlinks
hlnk.Parent.Offset(0, 1).Value = Mid(hlnk.Address, 8, 255)
Next
End Sub


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



"littleellisdude" wrote in message
...
How can I separate (extract) ALL of the email addresses from a column of
MULTIPLE "email data hyperlinks" when they are all embedded in a "mail to:"
hyperlink? There is only one per row, but about 2000 in the total column.
Doing them one at a time will take a year to extract (
Thank you!!!
Example:
clicking on John Doe in a column opens Outlook "mail to:" to the persons
real email address.



  #3   Report Post  
Old May 3rd 05, 05:42 PM
Ron de Bruin
 
Posts: n/a
Default

It will copy the email address in column B

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



"Ron de Bruin" wrote in message ...
Hi

Try this with the hyperlinks in column A

Sub test3()
Dim hlnk As Hyperlink
For Each hlnk In Columns("A").Hyperlinks
hlnk.Parent.Offset(0, 1).Value = Mid(hlnk.Address, 8, 255)
Next
End Sub


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



"littleellisdude" wrote in message
...
How can I separate (extract) ALL of the email addresses from a column of
MULTIPLE "email data hyperlinks" when they are all embedded in a "mail to:"
hyperlink? There is only one per row, but about 2000 in the total column.
Doing them one at a time will take a year to extract (
Thank you!!!
Example:
clicking on John Doe in a column opens Outlook "mail to:" to the persons
real email address.





  #4   Report Post  
Old May 3rd 05, 05:51 PM
patrick
 
Posts: n/a
Default

This is ugly-but quick!-Use this formula in an mt column to add a space after
the .com or .net. It is not longer recognized as hypertext. Then do a copy,
paste special to get rid of the formula and it is now yours to do with as you
please.
=A1 & " ". If this doesn't work, repost.
Pat

"littleellisdude" wrote:

How can I separate (extract) ALL of the email addresses from a column of
MULTIPLE "email data hyperlinks" when they are all embedded in a "mail to:"
hyperlink? There is only one per row, but about 2000 in the total column.
Doing them one at a time will take a year to extract (
Thank you!!!
Example:
clicking on John Doe in a column opens Outlook "mail to:" to the persons
real email address.



Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
email address hyperlink Ulti Excel Worksheet Functions 1 March 1st 05 04:18 AM
Help me Please!! Need hyperlinks to show actual email address! dustin New Users to Excel 1 January 13th 05 09:59 PM
how do I make make my hyperlinks show the email address they are . Dustin Excel Discussion (Misc queries) 0 January 13th 05 02:39 AM
Shut off email address from linking to email program? Java Jake Excel Worksheet Functions 6 December 31st 04 05:05 PM
Can I create a dynamic email address in Excels hyperlink? ibrettferguson Excel Worksheet Functions 1 November 8th 04 03:24 AM


All times are GMT +1. The time now is 09:42 PM.

Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
Copyright 2004-2019 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Copyright © 2017