convert data to a link

[RodneyW]

In column B I have a list of about 4000 file names and their location on my computer, to be precise, it's on an external hard drive. As examples:

E:\Drive 2\purple
E:\Drive 2\green.mp4

Note the first file name/location does not include the file extension but the second one does.

The goal is to have all 4000 entries in column B serve as a link so if I click it, it opens the selected file. I can do this manually, entry by entry "simply" by right clicking the file name, selecting "Hyperlink" from the menu and mapping it out. As you can imagine, this would be very laborious. Is there a better way to do this?

Thanks in advance

 

[eiloken]

In column B I have a list of about 4000 file names and their location on my computer, to be precise, it's on an external hard drive. As examples:

E:\Drive 2\purple
E:\Drive 2\green.mp4

Note the first file name/location does not include the file extension but the second one does.

The goal is to have all 4000 entries in column B serve as a link so if I click it, it opens the selected file. I can do this manually, entry by entry "simply" by right clicking the file name, selecting "Hyperlink" from the menu and mapping it out. As you can imagine, this would be very laborious. Is there a better way to do this?

Thanks in advance

in that way, you can use

=HYPERLINK("your link")

formula to do it

 

[Skyybot]

Here is a VBA solution. Test on a Copy of your Workbook as unexpected results may occur.

Sub Change2Hyperlink()
Dim wb As Workbook, sht As Worksheet, rng As Range, cell As Range, lRow As Long
Set wb = ThisWorkbook: Set sht = wb.Sheets("YourSheetName") 'Change to match your Sheet Name
lRow = sht.Rows.End(xlDown).Row
Set rng = sht.Range("A1:A" & lRow)
For Each cell In rng
    sht.Hyperlinks.Add Anchor:=cell, Address:=cell.Value, TextToDisplay:=cell.Value
Next cell
End Sub