51526_ukazka.jpg.jpg
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Na každý list vložit hypertext. odkaz
MS Excel
Téma: Na každý list vložit hypertext. odkaz 
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.
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
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
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články