Ik heb een exit knop gemaakt die voor het afsluiten en paar vragen stelt.
Bij het beantwoorden van nee word de sub afgesloten en doet het programma niks meer
Als ik b.v. de vraag stel of alles in ingevult, En op ja klik zou er in een vak ok ingevoerd moeten worden.
Dit is mijn code op dit moment.
Private Sub CommandButton2_Click()
controle = MsgBox("Lijst ingevoerd ?", vbYesNo)
If controle = vbNo Then Exit Sub
ActiveSheet.PrintOut 'dit wijzigen in Printpreview voor afdukvoorbeeld!
controle = MsgBox("Is de afdruk geslaagt?", vbYesNo)
If controle = vbNo Then Exit Sub
Application.DisplayAlerts = False
Application.Quit
End Sub
nu zou ik bij de melding lijst ingevoerd, graag willen als ik op yes klik dat er een test ik een cel komt te staan b.v. ok
Wie kan mij hiet meer helpen
Gr.
Bij het beantwoorden van nee word de sub afgesloten en doet het programma niks meer
Als ik b.v. de vraag stel of alles in ingevult, En op ja klik zou er in een vak ok ingevoerd moeten worden.
Dit is mijn code op dit moment.
Private Sub CommandButton2_Click()
controle = MsgBox("Lijst ingevoerd ?", vbYesNo)
If controle = vbNo Then Exit Sub
ActiveSheet.PrintOut 'dit wijzigen in Printpreview voor afdukvoorbeeld!
controle = MsgBox("Is de afdruk geslaagt?", vbYesNo)
If controle = vbNo Then Exit Sub
Application.DisplayAlerts = False
Application.Quit
End Sub
nu zou ik bij de melding lijst ingevoerd, graag willen als ik op yes klik dat er een test ik een cel komt te staan b.v. ok
Wie kan mij hiet meer helpen
Gr.