< 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

kopirovanie s predosleho mesiaca

€Ł мσşqμΐτσ • 26.7. 10:07

kopirovanie s predosleho mesiaca

ivana1 • 25.7. 20:40

kopirovanie s predosleho mesiaca

€Ł мσşqμΐτσ • 25.7. 8:09

kopirovanie s predosleho mesiaca

ivana1 • 24.7. 19:29

nezavre samo outlock

€Ł мσşqμΐτσ • 24.7. 9:01

kopirovanie s predosleho mesiaca

€Ł мσşqμΐτσ • 24.7. 8:49

automaticky generator VBA

Michalko • 23.7. 20:32