< návrat zpět

Nástěnka


Téma: zobrazit / skrýt listy rss

Zaslal/a 4.10.2017 12:44

Dobrý den, v příloze mám soubor a v něm dvě tlačítka : "skrýt všechny listy" krom "kalkulace" a tlačítko zobrazit. Tlačítko zobrazit funguje, ale mohl by mě někdo pomoci aby fungovalo i tlačítko skrýt? Děkuji za odpověď.

Příloha: zip37812_skryte-listy.zip (20kB, staženo 29x)
Zaslat odpověď >

#037813
avatar
No zrejme treba k tlačítku "skrýt" priradiť aj makro.citovat
#037814
avatar
To je právě to, s čím potřebuji pomoci. 1citovat
#037815
avatar
For Each list In Worksheets
If list.Name <> Worksheets("KALKULACE").Name Then list.Visible = False
Next listcitovat
#037823
avatar

marjankaj napsal/a:

For Each list In Worksheets
If list.Name <> Worksheets("KALKULACE").Name Then list.Visible = False
Next list


Dobrý den, jak mám prosím použít toto makro obráceně? Aby fungovalo na "zobrazit"

Děkujicitovat
#037826
elninoslov
Toto dajte do modulu:
Sub SkrytListy()
Call Zobraz(xlSheetVeryHidden)
End Sub

Sub ZobrazitListy()
Call Zobraz(xlSheetVisible)
End Sub

Sub Zobraz(HDN As Long)
Dim List As Worksheet
Application.ScreenUpdating = False
For Each List In ThisWorkbook.Worksheets
If List.Name <> "kalkulace" Then List.Visible = HDN
Next
ThisWorkbook.Worksheets("kalkulace").Activate
Application.ScreenUpdating = True
Set List = Nothing
End Sub

A jednému tlačítku priraďte cez pravý klik makro "SkrytListy" a druhému "ZobrazitListy".citovat
#037827
avatar
Dobrý den, vazkoušel jsem, ale tlačítko skrýt nefunguje a háže chybu u toho : List.Visible = HDNcitovat
#037828
elninoslov
A určite sa volá ten list "kalkulace" ?

EDIT: Ach, až teraz som sa pozrel do tej Vašej prílohy. V popise máte "kalkulace" a v prílohe "KALKULACE". Viete už snáď aký je medzi tým rozdiel, a čo treba v makre zmeniť, však ? 1
Příloha: zip37828_skryt-zobrazit-listy.zip (17kB, staženo 29x)
citovat
#037831
avatar
Super, děkuju moc... 1citovat

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

Kumulace listů do jednoho listu

MonikaV • 24.9. 17:18

skenovani a vyhledavani a oznaceni v tabulce

djph • 24.9. 13:44

Sečíst sloupec od 4 řádku

madar5 • 23.9. 8:32

Ověření dat

lubo • 22.9. 11:25

Ověření dat

Baja • 21.9. 22:33

Ověření dat

elninoslov • 21.9. 22:16

Ověření dat

Baja • 21.9. 21:53