< návrat zpět
MS Excel
Téma: Na každý list vložit hypertext. odkaz ![rss](./plugins/templates/wall_2C/images/icons/rss.png)
Zaslal/a frank99 11.11.2021 11:59
Dobrý den,
mám soubor s mnoha listy a potřeboval bych do každého listu vložit hypertext.odkaz do buňky třeba C3, aby se po kliknutí na ten odkaz v buňce C3 vrátil na první list - třeba se jménem "start". Lze vytvořit takové makro ? Vkládám JPG s ukázkou pro lepší pochopení.
Děkuji předem za váš čas
F.
Příloha:
51526_ukazka.jpg.jpg (29kB, staženo 23x)
![51526_ukazka.jpg.jpg](./pictures/thumb/6ef0e3d78f57a78c6cd08e5430906e3c.jpg)
veny(11.11.2021 12:14)#051527
elninoslov(11.11.2021 12:16)#051528 ![elninoslov](./pictures/avatars/5a6387658a0f4.jpg)
Sub Vytvor_HL()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
Select Case ws.Name
Case "Start", "niečo iné" 'vylúčené listy
Case Else: ws.Range("C3").Hyperlinks.Add ws.Range("C3"), "", "Start!A1", "List Start", "List Start" 'na všetky ostatné urobí link
End Select
Next ws
End Subcitovat
frank99(11.11.2021 12:32)#051529 ![avatar](./pictures/avatars/no-avatar.jpg)
Děkuji, mnohokrát - funguje ! Perfektní !
F.
citovat