Are you sure you want to delete

[Gatos]

Are you sure you want to delete

in een macro wil ik een sheet 1 deleten die eerst is aangemaakt.
Nu blijft hij hangen op windows die vraagt om are you sure you want to delete.

Nu weet ik dat ik dat in win2000 (properties van de prullenbak) gewoon kan uitzetten maar gezien dit op een servertje moet draaien waar ook anderen opzitten lijkt me dit niet echt verstandig en zou ik graag een andere oplossing willen indien mogelijk.

Bij voorbaat dank

 

[Eugene]

De waarschuwingen die Excel geeft zijn ter bescherming van jezelf. Je kan deze in een macro uitzetten met het volgende command:

DoCmd.SetWarnings False

Zet dit voor het "verwijder sheet" commando.

Het is zeer verstandig om na het verwijderen van de sheet de waarschuwingen weer aan te zetten. Dit doe je met het volgende:

DoCmd.SetWarnings True

 

[Gatos]

Helaas werkt dit niet.
Hij geeft een compile error en als ik in de objectbrowser kijk zie ik het commando DoCmd.setWarnings ook niet terug.

Geplaatst door Eugene
De waarschuwingen die Excel geeft zijn ter bescherming van jezelf. Je kan deze in een macro uitzetten met het volgende command:

DoCmd.SetWarnings False

Zet dit voor het "verwijder sheet" commando.

Het is zeer verstandig om na het verwijderen van de sheet de waarschuwingen weer aan te zetten. Dit doe je met het volgende:

DoCmd.SetWarnings True

 

[Gatos]

Geplaatst door Gatos
Helaas werkt dit niet.
Hij geeft een compile error en als ik in de objectbrowser kijk zie ik het commando DoCmd.setWarnings ook niet terug.

Als je een voorbeeld filetje zou kunnen sturen? Ben ik je heel dankbaar.
Wel voor Excel2000 dank ..

 

[Gatos]

Update: het werkt nog niet maar hier wat extra info

dit staat in mijn macro:
Macro recorded 19-6-2003 by steffan vos
'
DoCmd.SetWarnings False
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.Delete
DoCmd.SetWarnings True

en hier krijg ik een compile error???

alvast bedankt

 

[Bennie]

Probeer deze:

Sub DeleteSheet
Application.DisplayAlerts = False
Sheets(ActiveSheet.Name).Delete
End Sub

Groetjes,
Bennie

 

[Gatos]

Bedankt voor de moeite maar helaas
error:
object doesn`t support this property or method

wat ik gedaan het heb is het stukje waar staat
Sheets(ActiveSheet.Name).Delete daar heb ik voor name sheet3 gezet. dus --> (ActiveSheet.Sheet3).Delete.

Zou dit moeten kloppen? Als sheet 3 op dat moment niet active is gaat het dan nog? Is er nog een optie om de sheet te deleten of hij nu actief is of niet ?


Sub DeleteSheet
Application.DisplayAlerts = False
Sheets(ActiveSheet.Name).Delete
End Sub

 

[Bennie]

Dit zou toch de juiste code moeten zijn:

Sub DeleteSheet
Application.DisplayAlerts = False
Sheets(ActiveSheet.Name).Delete
Application.DisplayAlerts = True
End Sub

Probeer bovenstaande nog eens. ("True" was ik vergeten).

Moet sheet3 niet Blad3 zijn trouwens? Of heb je ook een Engelse versie van Excel? Als Blad3 een andere naam heeft, moet je die invullen.

Als je een bepaald blad uit een niet-actief blad wil wissen:

Application.DisplayAlerts = False
Workbooks("naam.xls").Worksheets("naam").Delete
Application.DisplayAlerts = True

Daar waar de namen tussen aanhalingstekens staan, vul jij je eigen namen in.

Groetjes,
Bennie

 

[Bennie]

Ik heb deze code zoëven uitgeprobeerd:

Sub DeleteSheet
Application.DisplayAlerts = False
Sheets(ActiveSheet.Name).Delete
Application.DisplayAlerts = True
End Sub

En die geeft geen problemen. Heb je die macro wel op de juiste manier toegevoegd?

Groetjes,
Bennie

 

[Gatos]

even een voorbeeldje gemaakt ?? ik vind de hulp die ik krijg btw echt heel tof maar helaas werkt het nog niet zie zipfile.

 

[Bennie]

Deze macro:

Sub DeleteSheet()
Application.DisplayAlerts = False
Sheets("Blad2").Delete
Application.DisplayAlerts = True
End Sub

wist naar eigen wens het blad dat je wilt wissen. In dit voorbeeld wordt Blad2 gewist.

Groetjes,
Bennie

 

[Bennie]

Ik ga ff kijken...

Groetjes,
Bennie

 

[Bennie]

Done!

Verander de extensie *.txt naar xls

De macro wist het actieve blad. Als een ander blad actief is, werkt 'ie niet.

Groetjes,
Bennie