Nástěnka

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ěď.

Zaslat odpověď >

marjankaj(4.10.2017 13:04)#037813

No zrejme treba k tlačítku "skrýt" priradiť aj makro.citovat

kolouch(4.10.2017 13:16)#037814

To je právě to, s čím potřebuji pomoci.

citovat

marjankaj(4.10.2017 13:44)#037815

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

kolouch(5.10.2017 13:38)#037823

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

elninoslov(6.10.2017 0:21)#037826

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

kolouch(6.10.2017 6:02)#037827

Dobrý den, vazkoušel jsem, ale tlačítko skrýt nefunguje a háže chybu u toho : List.Visible = HDNcitovat

elninoslov(6.10.2017 7:59)#037828

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 ?

Příloha: zip