Macro activeren

[kloosterofobie]

Ik heb waarschijnlijk een simpele vraag, maar ik weet het niet meer.

Ik heb op verschillende bladen knoppen gemaakt en heb deze een naam gegeven. Deze knoppen maken het werkblad leeg.

Nu wil ik op mijn beginblad een knop maken die al deze knopen tegelijk aanstuurt en mijn hele document leegmaakt.

Iemand een idee??

Is er ook een mogelijkheid om een knop te maken zodat je het bestand kan opslaan voordat je afsluit. Automatisch save as zeg maar???

Jeroen

 

[Justes]

hallo Jeroen,

Stel je Macro`s heb je wissen genoemd zet dan onder in je code,

sub wissen()
dan je code
wissen1
wissen2
wissen3
enz,
End sub

en in Thisworkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
End Sub

Gr Justes

 

[kloosterofobie]

Het lukt niet op die manier zoals jij zegt. Moet ik dan alle codes onder die ene kopiëren wat het zijn allemaal verschillende subs

 

[Justes]

Het lukt niet op die manier zoals jij zegt. Moet ik dan alle codes onder die ene kopiëren wat het zijn allemaal verschillende subs

Hallo Jeroen,

Nee dat hoeft niet, alleen op blad2 heet je Marco bv Sub wissen2 () zet dan net boven de End Sub van blad1 wissen2 enz.

Gr Justes

 

[kloosterofobie]

Dit wordt dan de code

Private Sub alleswissen_Click()
leegmakenDOELGROEP
leegmakenOMGEVING
leegmakenLOCATIE
leegmakenMILIEU
leegmakenGEMEENTELIJK
End Sub

En dan krijg ik de foutmelding Sub of Function niet gedefinieerd.

Moet er dan iets van Run of Do voor?

 

[Justes]

Hallo Jeroen,

Volgens mij zou het zo moeten worden.

Sub wissen1()
Cells.Select
Selection.Clear
wissen2
wissen3
wissen4
wissen5
wissen6
Range("A1").Select
End Sub
Sub wissen2()
Sheets("DOELGROEP").Select
Cells.Select
Selection.Clear
Range("A1").Select
End Sub
Sub wissen3()
Sheets("OMGEVING").Select
Cells.Select
Selection.Clear
Range("A1").Select
End Sub
Sub wissen4()
Sheets("LOCATIE").Select
Cells.Select
Selection.Clear
Range("A1").Select
End Sub
Sub wissen5()
Sheets("MILIEU").Select
Cells.Select
Selection.Clear
Range("A1").Select
End Sub
Sub wissen6()
Sheets("GEMEENTELIJK").Select
Cells.Select
Selection.Clear
Range("A1").Select
End Sub


Gr Justes

 

[Justes]

Hallo Jeroen,

Zie bijlage,

Gr Justes

 

[kloosterofobie]

Heb je het misschien ook als ZIP bestand? Kan het hier op school niet openen als RAR bestand.

BVD

Jeroen

 

[CorVerm]

Hier het zip bestand.