Automatically add hyperlinks when typing a serial number

[AliKaffe]

Hello!
I work for a company that sells and services pumps.
I am attempting to make a excel sheet that will give us an overview of the pumps we service and sell.
I would like to make a macro that will automatically add a hyperlink to a file with the same file name on our server when i type the serial number in column L.
So i would like it to search the folder we put our Servicereports in, and add a hyperlink to the file if it finds a text in that column that matches the file name in the folder.
if possible i would also like it to search sub folders.
Is this possible?

if you see the image, i already added some hyper link manually. But would like this to happen automatically when i create a file in the folder with the same name.

 

[AliKaffe]

i'm sorry. i don't understand how you added that function to a button or a keyboard shortcut.

 

[Legacy 456155]

Right click on your button - select "Assign Macro."
Note: When a procedure contains arguments, it will not appear in the list of available macros. You must type it in.

Here is an example of using OnKey: Control-Shift-R

Private Sub Workbook_Activate()
    Application.OnKey "^+R", "Sheet1.TryAddLink"
End Sub

Private Sub Workbook_Deactivate()
    Application.OnKey "^+R", ""
End Sub

The example, "Auto Hyperlinker.xlsm", has been updated with the above.

 

[AliKaffe]

Hello!
Is it possible to change the hyperlinker to link to folders the same way it links to files?

 

[Legacy 456155]

Why, of course. Care to provide some more details?

 

[AliKaffe]

Hello!
Sorry for the late reply.
I basically want it to function exactly the same, just add a hyperlink for a folder with the same Name

 

[Legacy 456155]

So, will you have two hyperlinks. One for a file and one for the folder?

 

[AliKaffe]

no, only for folder.

 

[Legacy 456155]

In the procedure GetFileList:
Change:
d.Add Key, File.Path
To:
d.Add Key, File.ParentFolder.Path