Macro maken voor een bepaalde tekst

[Mcss]

Goedemorgen, zou iemand mij willen helpen met het volgende?
Ik heb hieronder een excel voorbeeld toegevoegd om het duidelijker te maken.

Wij willen bij het invullen van de nieuwe debiteurgegevens dat er automatisch een hyperlink word gemaakt daarvan zodat we in de juiste map op sharepoint uitkomen.

Vraag 2: ik heb nu 1 bestand met alle bestaande data van een cel een link gemaakt naar een adres op sharepoint, dat lukt goed alleen nu moet 1 malig elke cel elke cel aangeklikt worden zodat de hyperlink wordt geactiveerd, dat is geen probleem als het er een paar zijn, maar het zijn er meer dan 3000.
Nu is de tekst van de hyperlink zwart en deze wordt na een enter blauw en dan is deze wel aanklikbaar.
Ik zou dat graag met een paar klikken opgelost hebben, is dat mogelijk?

Ik hoop dat ik een beetje duidelijk ben.

Alvast bedankt!!

p.s. ALLE NAMEN ZIJN FICTIEF!

 

[AHulpje]

Type een bedrijfsnummer in kolom B en klik daarna op dezelfde rij in kolom H.
Omzetten tekst naar hyperlinks, selecteer de cellen met hyperlinks in wording en run de volgende macro:

Sub TextToHyperlink()
    For Each Rng In Selection
        ActiveSheet.Hyperlinks.Add Rng, Rng.Value
    Next
End Sub