< návrat zpět

MS Excel


Téma: Vytvorenie zoznamu z 500 pracovných hárkov rss

Zaslal/a 21.7.2012 9:22

Dobrý deň, súrne by som potreboval pomoc. V zošite mám 523 pracovných hárkov a potreboval by som vytvoriť zoznam na novom hárku s názvom napríklad "zoznam hárkov" a sem dať do riadkov hypertextové odkazy na jednotlivé hárky, nakoľko je strašne zložité preklikávať sa jednotlivými hárkami. Viem že sa to dá ručne po jednom, ale je to časovo náročné a existuje riziko chyby, že sa pomýlim a kliknem na iný zdroj a pod. Za každý nápad budem nesmierne vďačný. Môj mail: vlado.murin@gmail.com


icon#009076
avatar
Používám tento kód:
Sub Seznam_listu()

Dim Ws As Worksheet
Dim i As Long
i = 1

With Me
.Columns(1).ClearContents
.Cells(1, 1) = "Jméno"
.Cells(1, 1).Name = "Index"
End With

For Each Ws In Worksheets
If Ws.Name <> Me.Name Then
i = i + 1
With Ws
.Range("A1").Name = "Start_" & Ws.Index
.Hyperlinks.Add Anchor:=Ws.Range("A1"), Address:="", SubAddress:="Index", TextToDisplay:="Zpět na seznam"
End With
Me.Hyperlinks.Add Anchor:=Me.Cells(i, 1), Address:="", SubAddress:="Start_" & Ws.Index, TextToDisplay:=Ws.Name
End If
Next Ws
End Sub


V sešitu mám na začátku list "Seznam", tento kód je vložen v jeho modulu. Kód vypíše seznam listů v sešitě a do každého listu do buňky A1 vloží hypertextový odkaz, který vede na list seznam.

PS: vyzkoušej na kopii svého sešitu aby případně nedošlo k nějaké "havárii"citovat
icon#009077
avatar
ak pockas do zajtra poslem Ti nieco co sa mi nechce znovu vymyslat ale uz to pouziva dost vela ludi v praci (na prvom liste spravi tabulku s linkami na vsetky listy + ich nazvy + na kazdy list da tlacitko navratu na Menu listov - toto tlacitko sa v pripade tlace nezobrazi)citovat
#009126
avatar
Dakujem pekne za pomoc. Ja som to na rychlo spravil tak, ze som si nahral makro a potom som ho len prepisoval akoze rucne (pomocou funkcii) a nakoniec sa mi to podarilo :)citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Novinky

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse

Propojení tabulek

AL • 15.9. 23:44

Propojení tabulek

Devil • 15.9. 23:30

Propojení tabulek

bwian • 15.9. 21:41

počet motohodin

Devil • 15.9. 20:54

počet motohodin

Stalker • 15.9. 18:15

počet motohodin

mpjh • 15.9. 17:35

Zlúčenie údajov do hromadnej korešpondencie

Devil • 15.9. 16:01