MessageBox

[gbvdh]

Goedendag,

Ik heb een comobobox met een aantal waardes, aan de hand van de geselecteerde waarde moet een bepaalde actie worden uitgevoerd bij een druk op een knop. De code die ik daarvoor gebruikt is

If ComboBox1 = o Then
    Msg = "Selecteer een waarde"
    MsgBox Msg, , Geen waarde
End If

If ComboBox1 = "1H" Then
    Msg = "Heeft u de 1H applicator gebruikt" & Chr(13) & "Nee: selecteer de juiste applicator" & Chr(13) & "Ja: het bestand wordt opgeslagen"
    Answer = MsgBox(Msg, vbYesNo, "Applicator Keuze")
    
   
    If Answer = vbYes Then
Etc. etc. etc.
    End If

Werkt prima zolang het antwoord van op de messagebox "yes" is als "no" wordt aangeklinkt wordt het hele programma afgesloten, er moet dus duidelijk nog iets komen van

    If Answer = vbNo Then
       Bla bla
    End If

Ik weet alleen niet wat er ipv bla bla moet komen te staan. Wat er moet gebeuren als "no" wordt aangeklikt is enkel en alleen dat de messagebox afgesloten moet worden en ik terug keer naar het userform. Het moet iets heel simpels zijn, maar ik kom er niet op/kan het niet vinden.

Barry

 

[Demeter]

Probeer eens:

Exit sub

 

[Wigi]

Of ook proberen:

End

 

[Demeter]

Das nog korter.

    If Answer = vbYes Then
              Etc. etc. etc.
     Else
                 End
    End If

 

[gbvdh]

Exit sub werkt beter, want met End wordt welliswaar niet heel Excel afgesloten, zoals eerst wel was, maar wordt nog steeds VB afgesloten met Exit sub sluit alleen de messagebox.
Dank u

 

[Demeter]

Graag de vraag nog op opgelost plaatsen.
Bedankt.