Hyperlinks automatisch aanmaken

[GeertD]

Ik heb een excel-document waarbij ik:

- in een kolom typenummers heb staan van bepaalde producten

- in een tweede kolom artikelnummers heb staan van deze zelfde producten

- nu zou ik achter de typenummers een hyperlink willen plaatsen, deze hyperlink bestaat uit een website waarin het artikelnummer terug komt.

 

De hyperlink krijg ik zonder problemen automatisch aangemaakt in een derde kolom (hier met Ctrl+E), maar nu zou ik de hyperlink nog achter het typenummer willen krijgen.

Dit lukt me helaas niet.
Iemand een idee hoe ik dit best kan aanpakken?

In bijlage een bestand met het voorbeeld

Link naar webpagina.xlsx

[emielDS]

zoek je zoiets?

Link naar webpagina (1).xlsm

[GeertD]

Hey EmielDS, de macro blijkt niet te werken.
Maar ik zou dit eigenlijk gewoon eenvoudig met knippen en plakken willen doen.
Dit is maar een éénmalige actie die moet worden uitgevoerd.

Ik had eerst gedacht om te werken met plakken-speciaal.
Eerst de hyperlink laten aan te maken, en dan de zichtbare tekst te overschrijven met "plakken speciaal > waardes". Maar dan verdwijnt de hyperlink helaas.

[emielDS]

je moet het bestand eerst opslaan, uit veiligheidsoverweging kan je macro meer draaien in een bestand dat niet opgeslagen is.

je kan geen hyperlinck aapassen met kopieren en plakken.

[GeertD]

Ja, ik heb je macro aan de praat gekregen, maar weet toch niet of het dat is wat ik wil...

Ik zou toch liefst op één of andere manier zonder Macro willen werken. Ook omdat ik niet helemaal thuis ben in die materie 😉

[emielDS]

je kan het eventueel zo doen, met de kolommen E en G te verbergen.

Link naar webpagina (3).xlsx

[emielDS]

Als dat ook niet voldoet zal je dan toch de macro moeten laten draaien..

 

P;S. het meeste frustrerende voor de helpers is als de vraagsteller online komt en niet reageert op de geboden oplossing(en).

[GeertD]

Mmm, mooie oplossing. De functie "hyperlink" kende ik nog niet.
Dit is inderdaad al iets bruikbaars.
Maar nog beter zou zijn, wanneer ik de link toch gewoon achter de cel zou kunnen kopiëren.
Misschien toch eens even in de Macro verdiepen...

 

PS: ik had mijn bovenstaande reactie geschreven, maar blijkbaar vergeten te posten. Dus ik begrijp dat het een beetje frustrerend is dat er geen reactie was gekomen...

[emielDS]

'k heb wat uitleg in de macro geschreven wat hij juist doet op dat moment.

Link naar webpagina (1).xlsm

[GeertD]

Hey Emiel, ik ben me er nog even verder in gaan verdiepen en heb de macro op mijn bestand kunnen uitvoeren.
Ik ben een leek in het gebruik van Macro's en de uitleg die je er bij hebt gezet was een grote hulp!
Is er ook nog een mogelijkheid om de volgende 3 regels zo te schrijven dat ze naar een vaste kolom verwijzen (absolute verwijzing) en niet naar 2 cellen verder (relatieve verwijzing)?

    If cl.Offset(, 2) <> "" Then      ' als de cel 2 cellen naar rechts tekst bevat dan
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=cl.Offset(, 2).Value, TextToDisplay:=cl.Value 'maak in de actieve cel een hyperlink
    cl.Offset(, 2) = ""  ' maak dee cel 2 celle naar rechts leeg

 

En misschien gaat het ook nog om die absolute verwijzing maar 1x in te moeten voegen, want momenteel moet de relatieve verwijzing in de drie regels worden gewijzigd.

Het is namelijk zo dat ik deze macro op een x-aantal plaatsen in mijn document wil laten lopen, en dan moet ik hem meermaals gaan aanpassen.

Maar Emiel, ge zijt tot nu toe al een grote hulp geweest en hebt me al veel werk bespaard met deze Macro!