Thread: Macro to add Hyperlink to 30.000 lines

Hello,

I have an Excel sheet with a lot off adresses and the location off the drawings
Kolom B: AALBERSESTRAAT
Kolom C: 12
Kolom D: kii024\001\001\00000001.TIF

B= Street
C= Streetnumber
D= location of drawing

In kolom D are standing the location of the actual drawing, in total it are almost 30.000 rows.

WHAT DO I WANT TO MAKE?
1. Copy the the location standing in D
2. Right click on the cell D
3. in the Hyperlink paste
4. go to the next line
5. proceed to all 30.000 lines.

I already tried it by record macro and got this: (Dutch) but it only changes line 2 and 3.

Sub verwijzingnaartekening()

ActiveCell.FormulaR1C1 = "kii024\001\001\00000001.TIF"
Range("D2").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"kii024/001/001/00000001.TIF", TextToDisplay:="kii024\001\001\00000001.TIF"
Range("D3").Select
ActiveCell.FormulaR1C1 = "kii024\001\001\00000001.TIF"
Range("D3").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"kii024/001/001/00000001.TIF", TextToDisplay:="kii024\001\001\00000001.TIF"
Range("D4").Select
End Sub

If this is a one time thing do you need a macro? Put =HYPERLINK($D1) in E1 and copy all the way down and you're done.

Welcome to the forum, marco.

Please take a few minutes to read the forum rules, and then edit your post to add CODE tags.

Thanks.