MS Excel

Téma: Změna textu na hyperlink

Zaslal/a MilaF 31.8.2021 10:42

Dobrý den,
prosím o pomoc, jak pomocí VBA změnit text v buňkách AF15:AF5015 na hyperlink.
Děkuji.

Příloha: xlsx

51156_zmena_textu_na_odkaz.xlsx (9kB, staženo 15x)

Zaslat odpověď >

MilaF(31.8.2021 11:40)#051157

Tak již to mám, pokud by se to třeba někomu hodilo:
Sub zmena_na_link()

Dim odkazy As Range
On Error Resume Next

Set odkazy = Range("AF14:AF5015")
For Each Cell In odkazy
Application.ActiveSheet.Hyperlinks.Add Cell, Cell.Value
Next

End Subcitovat