Using Advanced Filter to extract email addresses

[Guest]

Hello, I have a database of email addresses hyperlinks, that a department
needs to do an advanced filter (extract) on so they can copy the data to a
new file to be emailed out. However when you extract the data using the
advanced filter, the extracted data is no longer hyperlinked to the email
address.

Ordinarily i would just use Hyperlink(extractedcolumn) to fix this, but I
wanted a more automated solution since the data needs to be copied to a new
workbook (book1, book2, etc) so they can save the new file with a new name.

Thanks in advance for any suggestions!

ITD3

 

[Ron de Bruin]

Hi Frank

You can use a macro to create the links if you want

This macro for column A

Sub test()
For Each myCell In Columns("A").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

 

[Guest]

Wow, thanks Ron! I'll give it a whirl and see if it will work for what I need.

Frank Wood
itd3

 

[Guest]

Wow! It works PERFECTLY! I modified it to the appropiate column letter and
inserted it into my macro. Shazam! Worked right out of the shoot!

Thanks a bunch Ron!

Frank Wood
ITD3

 

[Ron de Bruin]

You are welcome