Automatisch hyperlinks maken in kolom

[loek010]

Beste hulpverleners,

Kan iemand mij helpen met een vba code om in kolom J automatisch hyperlinks te maken
het linkpath staat in kolom U en de linkname in kolom V

Zie voorbeeld :

Bekijk bijlage Factuuroverzicht.xlsb

met vrgrt,

Loek

 

[edmoor]

Daar is geen VBA voor nodig.
In J2:
=HYPERLINK(U2;V2)

 

[loek010]

Beste Edmoor,

Bedankt voor je snelle reactie, ja dat klopt maar misschien heb ik de vraagstelling niet helemaal
juist gesteld ik wil eigenlijk dat hij automatisch in kolom j alle links maakt ik kan namelijk niet de formule
doortrekken naar beneden ivm kopieren van het blad de volgende kopie naar het tabblad begint dan ergens waar de formule eindigd
dan heb ik een heleboel lege rijen dus mijn bedoeling was dat hij bij het openen van het blad de hyperlinks maakt van de aanwezige regels
in het blad ik hoop dat het wat duidelijker is

grt,

Loek

 

[SjonR]

zo:

Sub SjonR()

For Each cl In Range("J2:J9")
    ActiveSheet.Hyperlinks.Add cl, cl.Offset(, 11).Value, , , cl.Offset(, 12).Value
Next
End Sub

 

[loek010]

@SjonR

Bedankt voor je code die werkt prima zoals ik gedacht had,
Alleen is het mogelijk dat de range variable gemaakt kan worden als ik de range uitbreid naar bijv. J2:J10002
en niet alle regels gevuld zijn krijg ik een foutmelding dus de code zou moeten stoppen waar de lege rijen beginnen
de rijen kunnen namelijk variable zijn.

Grt,
Loek

 

[edmoor]

Naar SjonR z'n idee:

For Each cl In Range("U2:U10002").SpecialCells(xlCellTypeConstants)
    ActiveSheet.Hyperlinks.Add Cells(cl.Row, 10), Cells(cl.Row, 21).Value, , , Cells(cl.Row, 22).Value
Next

 

[loek010]

@Edmoor,

Beste Edmoor super deze code werkt en krijg geen foutmelding meer
Bedankt Edmoor en SjonR voor jullie inzet.

Vraag is opgelost.

Met vr.grt.

Loek010

 

[VenA]

Waarom geen echte tabel zonder nutteloze verborgen klommen en nutteloze lege rijen?

Sub VenA()
  With Sheets("Factuuroverzicht").ListObjects(1).DataBodyRange
    ar = .Value
    For j = 1 To UBound(ar)
      .Parent.Hyperlinks.Add .Cells(j, 10), ar(j, 13), , , ar(j, 14)
    Next
  End With
End Sub