Pop-up verhindern, wenn Wert> 0 ist

Ich habe eine printingtaste mit folgendem Code: –

Private Sub CommandButtonPrint_Click() MsgBox "Have you Completed the Email Address Field?", vbInformation response = MsgBox("Do you really want to print?", vbOKCancel) If response = vbCancel Then Exit Sub Sheets("New").PrintOut copies:=1, Collate:=True Range("newused").Select End Sub 

Das funktioniert gut, aber was muss ich hinzufügen, um das erste Meldungsfeld zu verhindern "Haben Sie das E-Mail-Adressfeld ausgefüllt?" erscheint, wenn das Feld für die E-Mail-Adresse bereits ausgefüllt wurde. Wenn es schon fertig ist, möchte ich nur das zweite Meldungsfeld "Willst du wirklich drucken?" Auftauchen

Solutions Collecting From Web of "Pop-up verhindern, wenn Wert> 0 ist"

Wenn Sie nach etwas suchen, müssen Sie nur prüfen, ob die Zelle leer ist. Lass mich wissen, ob das funktioniert

 Private Sub CommandButtonPrint_Click() Set rRng = Sheet1.Range("A10") 'Change to cell to email cell if IsEmpty(rRng.Value) then MsgBox "Have you Completed the Email Address Field?", vbInformation End If response = MsgBox("Do you really want to print?", vbOKCancel) If response = vbCancel Then Exit Sub Sheets("New").PrintOut copies:=1, Collate:=True Range("newused").Select End Sub