< návrat zpět

Nástěnka

Téma: zobrazit / skrýt listy rss

Zaslal/a kolouch 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 47x)
Zaslat odpověď >
marjankaj(4.10.2017 13:04)#037813
avatar
No zrejme treba k tlačítku "skrýt" priradiť aj makro.citovat
kolouch(4.10.2017 13:16)#037814
avatar
To je právě to, s čím potřebuji pomoci. 1citovat
marjankaj(4.10.2017 13:44)#037815
avatar
For Each list In Worksheets
If list.Name <> Worksheets("KALKULACE").Name Then list.Visible = False
Next listcitovat
kolouch(5.10.2017 13:38)#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
elninoslov(6.10.2017 0:21)#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
kolouch(6.10.2017 6:02)#037827
avatar
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
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 47x)
citovat
kolouch(6.10.2017 12:49)#037831
avatar
Super, děkuju moc... 1citovat

Uživatelské menu

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

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje