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)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.