• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Mazání listů

Zaslal/a Kolokol 3.8.2009 14:45

Před uzavřením sešitu zkouším takto vymazat prázdné listy, ale v řádku : If Listek Is Empty mi vyhazuje chybu 424. Nevíte někdo, v čem může být chyba??
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Listek As Worksheet
Application.DisplayAlerts = False
For Each Listek In ActiveWorkbook.Sheets
If Listek Is Empty Then
Listek.Delete
End If
Next
Application.DisplayAlerts = True
End Sub

Zaslat odpověď >

---

Jeza.m(5.8.2009 14:59)#000628

Ahoj,

ta podmínka mi nějak nesedí, spíš by mi tam sedělo
If IsEmpty(Listek) = true Then
ale ani tak mi to nefungovalo :-), tak jsem mrknul na net a tu podmínku bych nahradil touto:
If Application.WorksheetFunction.CountA(Listek.Cells) = 0 Then
pak už by to mělo fungovat, teda jen pro hodnoty v buňkách, ne pro objekty.

Čerpáno z http://excel.tips.net/Pages/T003280_Testing_for_an_Empty_Worksheet.html

S pozdravem
M@citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse