Makro na vymazání dat
Napsal: 09 dub 2022 16:01
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?
Poradíte?
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