Macroknop verwijderen door macro

[Niels28]

Hallo,

Ik heb een macro gemaakt die verschillende gegevens invult op een werkblad
en aan de hand van die gegevens het bestand onder een andere naam opslaat.
Ik heb een knop op het werkblad gezet met deze macro, is het mogelijk dat deze
knop op het einde van de macro verwijdert wordt en hoe doe ik dat.

Sub NWEgebruiker()
'marco voor het instellen van de persoonsgegevens van een nieuwe gebruiker'

'melding maken van wat de bedoeling is'

10 MsgBox "Hierna volgen een 7-tal vragen" & vbCrLf & "om je planningslijst op jouw gegevens in te stellen." & vbCrLf & "De planning wordt automatisch op de juiste plaats" & vbCrLf & "en onder de juiste naam opgeslagen."

'vragen naar persoonsgegevens en verwerken in desbetreffende cellen'.

20 Range("e1").Value = InputBox("voor welk jaar is de planning?", "jaartal planning")
30 Range("e12").Value = InputBox("wat is je loonnummer?", "loonnummer")
40 Range("f10").Value = InputBox("hoeveel snipperuren neem je mee van vorig jaar?", "snipperuren")
50 Range("f11").Value = InputBox("hoeveel snipperuren krijg je dit jaar?", "vakantierecht")
60 Range("f12").Value = InputBox("krijg je overuren toeslag (ja/nee)?", "overurentoeslag")

'melding maken als er geen ja of nee is ingevuld en vraag opnieuw stellen'

70 Dim toeslag1
80 toeslag1 = Range("f12").Value
90 If toeslag1 <> "ja" Then
100 If toeslag1 <> "nee" Then
110 MsgBox ("JA of NEE invullen")
120 GoTo 60
130 End If
140 End If

'bestand opslaan als in de opgeven map met als naam: planning 2009 (voornaam).xls'

150 ActiveWorkbook.SaveAs Filename:="F:\data\autocad\planning\2009\Planning 2009 " & Range("e10").Value & ".xls"
160 End Sub

 

[Relleboer]

via rode gedeelte zou die de knop moeten verwijderen

Sub NWEgebruiker()
'marco voor het instellen van de persoonsgegevens van een nieuwe gebruiker'

'melding maken van wat de bedoeling is'

10 MsgBox "Hierna volgen een 7-tal vragen" & vbCrLf & "om je planningslijst op jouw gegevens in te stellen." & vbCrLf & "De planning wordt automatisch op de juiste plaats" & vbCrLf & "en onder de juiste naam opgeslagen."

'vragen naar persoonsgegevens en verwerken in desbetreffende cellen'.

20 Range("e1").Value = InputBox("voor welk jaar is de planning?", "jaartal planning")
30 Range("e12").Value = InputBox("wat is je loonnummer?", "loonnummer")
40 Range("f10").Value = InputBox("hoeveel snipperuren neem je mee van vorig jaar?", "snipperuren")
50 Range("f11").Value = InputBox("hoeveel snipperuren krijg je dit jaar?", "vakantierecht")
60 Range("f12").Value = InputBox("krijg je overuren toeslag (ja/nee)?", "overurentoeslag")

'melding maken als er geen ja of nee is ingevuld en vraag opnieuw stellen'

70 Dim toeslag1
80 toeslag1 = Range("f12").Value
90 If toeslag1 <> "ja" Then
100 If toeslag1 <> "nee" Then
110 MsgBox ("JA of NEE invullen")
120 GoTo 60
130 End If
140 End If

'bestand opslaan als in de opgeven map met als naam: planning 2009 (voornaam).xls'

150 ActiveWorkbook.SaveAs Filename:="F:\data\autocad\planning\2009\Planning 2009 " & Range("e10").Value & ".xls"
160 

[COLOR="Red"]sheets("naam van sheet").commandbutton1.delete[/COLOR]


End Sub

 

[Niels28]

Bedank voor de reactie,

Ik heb dit aan de macro toegevoegd en krijg de volgende foutmelding:

fout 438 tijdens uitvoering
Deze eigenschap of methode wordt niet ondersteund door dit object

Niels

 

[snb]

Gebruik hiervoor een userform dat geopend wordt als het bestand wordt geopend en de cellen met de noodzakelijke gegevens nog leeg zijn.

Private Sub Workbook_Open()
  if sheets(1).cells(1,5)="" then Userform1.show
End Sub

zet in de afsluitknop van het userform

Private Sub knop_vervolg_Click()
  Hide
  for j= 1 to controls.count
     sheets(1).cells(j,5)=controls(j).value
  next
  activeworkbook.saveas .....
End Sub

Hoeft er niet verwijderd te worden.

 

[Niels28]

Ik heb naar een userform gekeken maar ik weet niet hoe dat werkt.
En weet ook niet hoe ik een macro moet laten starten bij het openen van het bestand.

 

[snb]

Kijk dan eens hier