PC-HELP.CZ

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

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

děkuju,

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

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

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ě?

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

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

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