invullen van tekst bij afsluiten

[patrickje]

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.

 

[geep1980]

Als de waarde in een vaste cell moet komen kan je het doen met de volgende regel

Range("A1").FormulaR1C1 = "DE WAARDE DIE JIJ WIL"

 

[patrickje]

Ok bedankt voor de reactie

 

[sickofitall]

En "geslaagd" is met een d achteraan, no offense...