Msgbox komt twee keer

[JHH]

Hallo,

ik wil een msgbox plaatsen zodat iemand bij het activeren van een SaveAsPdf-knop kan controleren of de gegevens kloppen die ingevoerd zijn.
Nu krijg ik wel de msgbox ("Klopt het machinenummer: "), maar bij het klikken op OK of Cancel krijg ik de pop-up nog een keer. hoe kan dat?

de code staat wel tussen andere code. hieronder het eerste gedeelte van de complete code:

Private Sub UserForm_Activate()
Range("I3").Value = ""
Range("G3").Value = ""

End Sub
Private Sub CommandButton1_Click()

'Controle machinenr:
If Range("F2").Value <> "" Then
MsgBox "Klopt het machinenummer:" & Range("F2").Value, vbQuestion + vbOKCancel, ""
If MsgBox("Klopt het machinenummer:" & Range("F2").Value, vbQuestion + vbOKCancel, "") = vbOK Then

End If
End If

If Range("D2").Value = "" Or Range("E2").Value = "" Or Range("F2") = "" Then
MsgBox "Machinegegevens niet volledig gevuld!", vbCritical + vbOKOnly, ""
UserForm2.Show
End If
 
   End If

alvast bedankt voor de reactie.

 

[VenA]

Je hebt de msgbox er toch 2 x instaan?

 

[JHH]

dat zijn twee verschillende:

1. "Klopt het machinenr.:"
2. "Machinegegevens zijn niet.."

 

[JEC.]

Kan die tweede IF niet gewoon weg? Omdat de msgbox op zichzelf al een vraag is.
De IF msbox verwijderen
Gr. Jim

 

[VenA]

Lijken mij hetzelfde.

MsgBox "Klopt het machinenummer:" & Range("F2").Value, vbQuestion + vbOKCancel, ""
If MsgBox("Klopt het machinenummer:" & Range("F2").Value, vbQuestion + vbOKCancel, "") = vbOK Then

 

[JHH]

Ik heb het verwijderd en nu gaat het goed!

bedankt!