Excel: Makro na skrytí záložek

[Cipera]

Zdravím, prosím o radu a pomoc.

Jde mi o jednoduché přeskakování mezi skrytými listy.


na listu1 mám dvě tlačítka - skok na list2 a skok na list3

na každém z listů mám pouze Zpět (na list1)

problém je, že potřebuju aby se neaktivní listy skrývaly a zobrazený byl pouze ten list, na kterém jsem.

Pokoušel jsem se to tady hledat, našel jsem, použil a upravil toto:

Sub Sheet2()
'Sheets("Sheet2").Select
Sheets("Sheet2").Visible = True
Sheets("Sheet2").Select
Range("A1").Select
End Sub

Sub Sheet3()
'Sheets("Sheet3").Select
Sheets("Sheet3").Visible = True
Sheets("Sheet3").Select
Range("A1").Select
End Sub

Sub Zpet()
' Zpět Macro

Sheets("Sheet1").Visible = True

Sheets("Sheet1").Select
Range("A1").Select
End Sub

Odkrývání listů mi funguje, skrývání ne ... prosím o radu. asi jsem natvrdlej ...

[mike007]

Skrýt Sheet2, Sheet3 :

Sub skryt_listy()
Sheets("Sheet2").Visible = False
Sheets("Sheet3").Visible = False
End Sub

Odkrýt tyto listy:

Sub odkryt_listy()
Sheets("Sheet2").Visible = True
Sheets("Sheet3").Visible = True
End Sub

[Cipera]

děkuju,

lze udělat to, že se skryjí všechny listy najednou, kromě aktivního?

[mike007]

Sub skryt_ostatni()
For Each List In Worksheets
List_jmeno = List.Name
If List_jmeno <> ActiveSheet.Name Then
Sheets(List_jmeno).Visible = False
Else
End If
Next List
End Sub

[Cipera]

bezvadně to funguje .. dík moc...

můžu ještě jeden dotaz?

na listu1 vyplňuji data

do C2 na listu2 chci automaticky kopírovat data z buňky A8 ....

myslel jsem si, že stačí do C2 vyplnit ...

=Sheet1!A8

ale místo proměnné tam mám tenhle text ...

Prosím, co zas dělám blbě?

[mike007]

Ty mi to ale dávkuješ. Nešlo by vložit dotazy najednou?
Bude potřeba změnit formát buňky, aby ti vzorec začal fungovat.
1) vymaž vzorec - nutné !!!
2)klikni do buňky pravým tlačítkem myši a z kontextového menu vyber Formát buňky...
3) nastav formát na "Obecný" a potvrď OK
4) vlož do buňky vzorec

[Cipera]

Dík moc, už to funguje ...

Omlouvám se, když jsem psal první dotaz, tak jsem tohle ještě řešit nepotřeboval ...

Mám tady anglickou verzi a moje angličtina si bohužel neporadí s nápovědou ...

[mike007]

Nic se neděje. Označuji za vyřešené