Adding hyperlinks using vba

[haggisuk]

Hi Folks,

I am trying to make a workbook that will basically be a document index to files on a network drive.

So what i wish to be able to do is have a button on the worksheet that will check for the next empty cell in a coloum and then open a browse window so i can look for a file on the network and then once i have selected the paticular file populate the next empty cell with the hyperlink to the file.

I can do the required tasks manually but i would like it run from a macro/vba sub

I tried to do it using a macro record sequence but cant get it to work.

Any ideas?

Thanks

Del

 

[Domski]

Hi,

Something like this maybe:

Sub test()
    Dim strFileName
    strFileName = Application.GetOpenFilename("All Files (*.*), *.*")
    If strFileName = False Then Exit Sub
    Sheets("Sheet1").Hyperlinks.Add Anchor:=Range("A" & Rows.Count).End(xlUp).Offset(1, 0), _
        Address:=strFileName, TextToDisplay:=strFileName
End Sub

Dom

 

[haggisuk]

Works a treat, Thanks very much.

I would have never have found that without asking.

Del

 

[haggisuk]

I have modified your code but works great for my needs

Sub Macro2()
Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select
Application.Dialogs(xlDialogInsertHyperlink).Show


End Sub


Thanks again for your help.

Del