Excel - jak vytvořit seznam listů

[Jenda-1]

Prosím o radu, nějak jsem to tady nikde nenašel...
Mám v Excelu v souboru přes 40 listů, kdy na každém jsou jiné typy údajů a nelze je sloučit. Moc by mi pomohlo, kdybych si mohl někde vytvořit nějaký strom nebo seznam listů kam bych jen klikl a Excel mě hned přehodil na daný list.
Díky moc

[X]

ODKAZ(řádek;sloupec;typ;a1;list)

Řádek je číslo řádku, které je použito v odkazu na buňku.

Sloupec je číslo sloupce, které je použito v odkazu na buňku.

Typ určuje typ odkazu, který bude vrácen.

Argument Typ Typ vraceného odkazu
1 nebo neuveden Absolutní
2 Absolutní řádek; relativní sloupec
3 Relativní řádek; absolutní sloupec
4 Relativní


A1 je logická hodnota, která určuje typ odkazu (A1 nebo R1C1). Jestliže má argument A1 hodnotu PRAVDA nebo je-li vynechán, vrátí funkce ODKAZ odkaz ve tvaru A1. Pokud má argument A1 hodnotu NEPRAVDA, vrátí funkce ODKAZ odkaz ve tvaru R1C1.

List je textový řetězec určující název listu, který má být použit jako externí odkaz. Tento argument může být vynechán.



A B
Vzorec Popis (výsledek)
=ODKAZ(2;3) Absolutní odkaz ($C$2)
=ODKAZ(2;3;2) Absolutní řádek; relativní sloupec (C$2)
=ODKAZ(2;3;2;NEPRAVDA) Absolutní řádek; relativní sloupec ve stylu odkazu R1C1 (R2C[3])
=ODKAZ(2;3;1;NEPRAVDA,"[Sešit1]List1") Absolutní odkaz na jiný sešit a list ([Sešit1]List1!R2C3)
=ODKAZ(2;3;1;NEPRAVDA;"LIST EXCEL") Absolutní odkaz na jiný list (LIST EXCEL!R2C3)

[Jenda-1]

No, jsem amatér,
zapsal jsem do jednotlivých buněk odkazy na jiné listy dle nápovědy Excelu:

=ODKAZ(2;3;1;NEPRAVDA;"LIST EXCEL") Absolutní odkaz na jiný list (LIST EXCEL!R2C3)

a nic

V buňkách se zobrazí vždy "název listu" R2C3 a tím jsem skončil. Při kliknutí na buňku mě to nikam nepřepne (potřebuji aby se mi rozklikl ten příslušný list) - jak to udělat? Těm co trpí se omlouvám :)

[mike007]

Vítej na pc-help

Tady máš makro, které ti v aktivním listu, ve sloupci A vytvoří klikatelný seznam všech listů v sešitu.

Kód: Vybrat vše

Sub seznam_listu()
Dim ceLL As Range
Columns(1).Insert
For i = 1 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
Next i
For Each ceLL In Range("A1", Range("A1").End(xlDown))
ceLL.Hyperlinks.Add anchor:=ceLL, Address:="", _
SubAddress:="'" & ceLL.Value & "'" & "!a1", ScreenTip:="Kliknutím se přesuneš do tohoto listu", TextToDisplay:=ceLL.Value
Next
End Sub

[Jenda-1]

Super, opravdu to funguje! To je ono! Díky moc!

Pokud by to někdo začínající chtěl použít:
Stačilo zkopírovat si výše uvedený text a postupovat dle nápovědy v Excelu "Vytvoření makra pomocí aplikace Microsoft Visual Basic"
A je to :)

[mike007]

Jestli jsi spokojený s makrem, označ toto vlákno za vyřešené, viz návod v mém podpise.