Capture-Eingang von MsgBox

Question

Ich habe ein Problem, das ich nicht verstehen kann.

Ich habe ein Benutzerformular, wo ich MsgBox den Benutzer sagen, wenn einige Felder Informationen fehlen, und dann fragen, ob sie fortfahren wollen.

Wenn der Benutzer Yes drückt, werden die Werte des Benutzerformulars wie erwartet in das Blatt übertragen. Aber wenn der Benutzer Nein wählt, werden die Werte noch übertragen ...

Wie wird die MsgBox schließen, wenn Benutzer No wählt, ohne die Werte übertragen werden?

Answer 1

Ist das was du willst?

Sub Sample() 
    Dim Ret As Variant 

    Ret = MsgBox("Blah Blah", vbQuestion + vbYesNo) 

    If Ret = vbYes Then 
     MsgBox "You pressed `Yes`" '<~~ Code to transfer to the sheet here 
    ElseIf Ret = vbNo Then 
     MsgBox "You pressed `No`" 
    End If 
End Sub 

Answer 2

Wenn Sie die Datensätze auf das Blatt nur einreichen möchten, wenn der Benutzer auf „Ja“ im msgbox Fenster klickt, können Sie so etwas wie dieses versuchen ...

Ersetzen Sie die msgbox nach Ihren Anforderung.

Dim Ans As Long 
Ans = MsgBox("You didn't fill all the information." & vbNewLine & vbNewLine & "Do you want to continue?", vbQuestion + vbYesNo, "Confirm Please!") 
If Ans = vbYes Then 
    'Code to submit the records onto the Sheet 
End If