Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
converting text into hyperlinks
I have a list of 3000 URLs, Each line contains URL in a text format. I need to convert all the lines in one column - into hyperlinks. How do I do it in Excel 2002? Thanks! -- barakooda ------------------------------------------------------------------------ barakooda's Profile: http://www.excelforum.com/member.php...o&userid=34897 View this thread: http://www.excelforum.com/showthread...hreadid=546359 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
converting text into hyperlinks
Hello Barakooda, Add a standard VBA module to your project and copy and paste the following code into it. Code: -------------------- Public Sub MakeHyperlinks(Optional Link_List As Range) Dim Hlink As Range Dim Wks As Worksheet If Link_List Is Nothing Then Set Link_List = Selection End If Set Wks = Worksheets(Link_List.Parent.Name) For Each Hlink In Link_List ActiveSheet.Hyperlinks.Add Anchor:=Wks.Range(Hlink.Address), Address:=Hlink.Value Next Hlink End Sub -------------------- How to call the Macro: Say your the range you want to convert into hyperlinks is A2 to A3002. MakeHyperlinks Range("A2:A3002") Or you can select the cells you want to convert to hyperlinks and run the macro from the Macro List. To display the Macro List, press ALT + F8. Sincerely, Leith Ross -- Leith Ross ------------------------------------------------------------------------ Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465 View this thread: http://www.excelforum.com/showthread...hreadid=546359 |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
converting text into hyperlinks
Leith Ross Wrote: Hello Barakooda, Add a standard VBA module to your project and copy and paste the following code into it. Code: -------------------- Public Sub MakeHyperlinks(Optional Link_List As Range) Dim Hlink As Range Dim Wks As Worksheet If Link_List Is Nothing Then Set Link_List = Selection End If Set Wks = Worksheets(Link_List.Parent.Name) For Each Hlink In Link_List ActiveSheet.Hyperlinks.Add Anchor:=Wks.Range(Hlink.Address), Address:=Hlink.Value Next Hlink End Sub -------------------- How to call the Macro: Say your the range you want to convert into hyperlinks is A2 to A3002. MakeHyperlinks Range("A2:A3002") Or you can select the cells you want to convert to hyperlinks and run the macro from the Macro List. To display the Macro List, press ALT + F8. Sincerely, Leith Ross Dear Leith Ross, Thanks for answering, and thanks a lot for elaborting!! Cheers!! -- barakooda ------------------------------------------------------------------------ barakooda's Profile: http://www.excelforum.com/member.php...o&userid=34897 View this thread: http://www.excelforum.com/showthread...hreadid=546359 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How change dimensions of data label text box in pie chart? | Charts and Charting in Excel | |||
Converting Text to Time format of XX:XX | Excel Discussion (Misc queries) | |||
converting numbers to text | New Users to Excel | |||
Converting Numbers to Text properly | Excel Discussion (Misc queries) | |||
Creating multiple hyperlinks from a column where the text in the . | Excel Worksheet Functions |