Makro na vymazání dat

[junis]

Dobrý den, potřeboval bych makro, které vymaže data z listu mimo prvního řádku, ale s ověřením, (hláškou) "Chcete opravdu provést smazání dat? ANO, NE

Poradíte?

[atari]

Toto je primitivní a nejjednodušší způsob. Vymaže aktivní list. To je ten, který je otevřený.

Platí pro Excel 2007 a výše, kde je 16 384 sloupů a 1 048 576 řádků. V případě jiného počtu jenom upravíš hodnotu RANGE.

Kód: Vybrat vše

Sub vymaz()
i = MsgBox("Chcete vymazat list kromě prvního řádku?", vbYesNo)
If i = vbYes Then Range("a2:xfd1048576").ClearContents
End Sub

[junis]

Funguje supr.

Děkuji