< návrat zpět

MS Excel


Téma: Událostní procedura rss

Zaslal/a 6.5.2009 21:16

Potřebuju před uzavřením sešitu vymazat všechny listy typu graf. Zkoušel jsem jednoduše :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Graf As Chart
For Each Graf In Me
Graf.Delete
Next Graf
End Sub
Ale háže mi to Error 438 pro řádek For each ... Co s tím? Kdo poradí?

Zaslat odpověď >

#000511
avatar
Vždycky se musím trápit nějaký čas, než přijdu s problémem sem. A brzy na to mi něco dojde. Takže :
On Error Resume Next
...
For Each Graf In Me.Sheets 'A funguje to

Teď už jen ať mě neotravuje s dotazem na každý mazaný list. Ale to nechám na ráno moudřejší večera.citovat
#000513
avatar
Ráno mě nezastihlo moudřejšího. Jak tedy zařídit, aby program mazal a neotravoval přitom s potvrzením pro vymazání každého listu ? 3citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

Konverze zkopírovaných dat z webu

Jiří497 • 24.3. 14:48

Konverze zkopírovaných dat z webu

veny • 24.3. 13:56

Konverze zkopírovaných dat z webu

martanek09 • 24.3. 12:25

Konverze zkopírovaných dat z webu

Jiří497 • 24.3. 11:54

Konverze zkopírovaných dat z webu

martanek09 • 24.3. 11:37

Skrýt řádek na základě hodnoty v buňce

hard • 24.3. 10:09

Skrýt řádek na základě hodnoty v buňce

Jiří497 • 24.3. 0:39