Stránka 1 z 1

Odstranění excelovského listu po jeho opuštění

Napsal: 30 bře 2010 13:29
od Puzzlehead
Pánové potřebuji zase radu odborníků.
Mám sešit v něm dva listy Data, Tabulka. Na listu Tabulka je kontingenčí tabulka, kde se mi po kliknutí na hodnotu zobrazí detail dat na novém listu. Potřeboval bych, aby se tento nový list odstranil jakmile se vrátím na list Tabulka nebo Data, prostě když ho opustím. Předem díky

Re: Odstranění excelovského listu po jeho opuštění  Vyřešeno

Napsal: 30 bře 2010 13:43
od mike007
Klikni pravým tlačítkem myši na záložku Data a z kontextového menu vyber možnost Zobrazit kód. Do prázdného okna ve VBA nakopíruj toto makro:

[vb]
Private Sub Worksheet_Activate()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In Worksheets
If ws.Name <> "Data" And ws.Name <> "Tabulka" Then ws.Delete
Next
Application.DisplayAlerts = True
end sub
[/vb]

To samé pro záložku Tabulka.

Nyní se ti každá nově vytvořená záložka smaže, jakmile ji opustíš, respektive přejdeš do záložky Data nebo Tabulka

Re: Odstranění excelovského listu po jeho opuštění

Napsal: 30 bře 2010 13:49
od Puzzlehead
Super rychlá a funkční odpověď. Díky