51156_zmena_textu_na_odkaz.xlsx
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
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
RSS nejnovější články