I have a spreadsheet containing several columns. One of which contains
Hyperlinks. It there a way of extracting the information within the
Hyperlink so I can copy it into another column

Thanx

Steve M

Steve, does this give you a start?

Sub ExtractHL()
Dim cel As Range

With ActiveWindow.RangeSelection
If .Columns.Count 1 Then
MsgBox "Select 1 column only. Next column must be empty!"
Exit Sub
End If

For Each cel In .Columns(1).Cells
If cel.Hyperlinks.Count 0 Then
cel(1, 2) = cel.Hyperlinks(1).Address
End If
Next
End With
End Sub


keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"Steve M" wrote:

I have a spreadsheet containing several columns. One of which
contains Hyperlinks. It there a way of extracting the information
within the Hyperlink so I can copy it into another column

Thanx

Steve M

I have a similar problem.
I can extract hyperlinks entered into cells OK, but I have
spreadsheet that has a series of objects (pictures). The hyperlink i
in the object, not the cell, as I can drag and drop the objec
elsewhere. Each of these objects is one to a cell, in a column. If
right-click on the object, I can get the Hyperlink menu, and can Edi
the hyperlink if I want to. The trouble is, I have hundreds of thes
objects.

Is there some function that I can use or create to extract th
hyperlink from the object in each cell?

Thanks

--
JWJ
-----------------------------------------------------------------------
JWJW's Profile: http://www.excelforum.com/member.php...fo&userid=1568
View this thread: http://www.excelforum.com/showthread.php?threadid=26803

keepITcool,
Thanks for the great code. Very helpful in dealing w/ hyperlinks!!
Thanks,
Adam1

--
adam12
-----------------------------------------------------------------------
adam12+'s Profile: http://www.excelforum.com/member.php...fo&userid=1341
View this thread: http://www.excelforum.com/showthread.php?threadid=26803

See Extract and Place Hyperlink from Shape into cell to the right
http://www.mvps.org/dmcritchie/excel...oRightOfShapes
modified from a posting by Dick Kusleika

Sub ExtractLinkToRightOfShapes()
'Extract hyperlink and place to right of cells with shapes
'Dick Kusleika, 2003-03-26 in excel.links, modified from
' http://google.com/groups?threadm=efc...GP11.p hx.gbl
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
On Error Resume Next
shp.BottomRightCell.Offset(0, 1).Value = "'--"
shp.BottomRightCell.Offset(0, 1).Value = shp.Hyperlink.Address
On Error GoTo 0
Next shp
End Sub

You can use TopLeftCell instead and you can check it as

if shp.TopLeftCell.Column = 5 then 'test for Column E
shp.BottomRightCell.Offset(0, 1).Value = shp.Hyperlink.Address
end if

---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

"JWJW" wrote in message ...

I have a similar problem.
I can extract hyperlinks entered into cells OK, but I have a
spreadsheet that has a series of objects (pictures). The hyperlink is
in the object, not the cell, as I can drag and drop the object
elsewhere. Each of these objects is one to a cell, in a column. If I
right-click on the object, I can get the Hyperlink menu, and can Edit
the hyperlink if I want to. The trouble is, I have hundreds of these
objects.

Is there some function that I can use or create to extract the
hyperlink from the object in each cell?

Thanks.


--
JWJW
------------------------------------------------------------------------
JWJW's Profile: http://www.excelforum.com/member.php...o&userid=15681
View this thread: http://www.excelforum.com/showthread...hreadid=268037