PC-HELP.CZ

Ahoj,

potřeboval bych poradit jak přidat do Excelu seznam následujících listů, kdy jsou názvy listů čísla začínající i nulou tak aby bylo každé číslo odkazem, který mi otevře daný list.

Děkuji

Martin N.

Pokud se nepletu, tak odkaz musí mít vždy zadanou nějakou hodnotu kam má směřovat, například buňka, oblast, atd. Samozřjemě, že to může být i na jiném listu.

To co chceš ty, vzorec neumí (otevírat jiné listy), odkaz je obecně řečeno také vzorec.

Pokud chceš kliknutím na buňku otevřít příslušný list, tak to umí VBA.

Dodatečně přidáno po 33 minutách 29 vteřinách:
Beru zpět. Hypertextový odkaz to umí. Na něj jsem zapomněl ...

=HYPERTEXTOVÝ.ODKAZ("[Sešit1]List2!A1";"bla bla .. číslo listu List2")

Doplň si svůj název sešitu a listu.

Makrom
Sub ZoznObsah()
pocit = 0
For Each List In Sheets
Range("A1").Offset(pocit, 0).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & List.Name & "'" & "!A1", TextToDisplay:=List.Name
pocit = pocit + 1
Next
End Sub

Něco je i ZDE

Makro má tu výhodu, že s ním lze načíst všechny listy, a nemusíš to vypisovat ručně.

Grimm píše:Něco je i ZDE

Tohle jsem zkoušel a má to problém s názvem listu, který je číslo začínající nulou, jinak by to bylo super, ale nejsem zdatný v makrech, tak si nevím rady...

Dodatečně přidáno po 1 minutě 51 vteřinách:

MePExG píše:Makrom
Sub ZoznObsah()
pocit = 0
For Each List In Sheets
Range("A1").Offset(pocit, 0).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & List.Name & "'" & "!A1", TextToDisplay:=List.Name
pocit = pocit + 1
Next
End Sub

Děkuju, ale teď ještě jak to zadat, s makry zatím moc nekamarádím..

Dodatečně přidáno po 2 minutách :

atari píše:Makro má tu výhodu, že s ním lze načíst všechny listy, a nemusíš to vypisovat ručně.

No to bych opravdu vypisovat nechtěl, tudíž je určitě makro nevyhnutelné.

Dodatečně přidáno po 17 minutách 45 vteřinách:

Vasmenx píše:

Grimm píše:Něco je i ZDE

Tohle jsem zkoušel a má to problém s názvem listu, který je číslo začínající nulou, jinak by to bylo super, ale nejsem zdatný v makrech, tak si nevím rady...

Dodatečně přidáno po 1 minutě 51 vteřinách:

MePExG píše:Makrom
Sub ZoznObsah()
pocit = 0
For Each List In Sheets
Range("A1").Offset(pocit, 0).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & List.Name & "'" & "!A1", TextToDisplay:=List.Name
pocit = pocit + 1
Next
End Sub

Děkuju, ale teď ještě jak to zadat, s makry zatím moc nekamarádím..

Dodatečně přidáno po 2 minutách :

atari píše:Makro má tu výhodu, že s ním lze načíst všechny listy, a nemusíš to vypisovat ručně.

No to bych opravdu vypisovat nechtěl, tudíž je určitě makro nevyhnutelné.

Ještě oprava, neumí to žádná čísla, opíše mi to název listu do seznamu, ale bez počáteční nuly a bez funkčního odkazu..

https://www.youtube.com/watch?v=BVJhIDblHeE

Postup do 11.11.20 https://ulozto.sk/file/s2OYGBDGVnOD/screencapture-2020-11-9-19-09-03-mp4
MePExG

V příloze upravený soubor.

Děkuji, s tím souborem už jsem to zvládl upravit