Msgbox weergeven als voorwaarde niet voldaan zijn

[jo geuens]

Hallo ik heb een msgbox die moet verschijnen als een bep.combobox niet aan bep.waarde voldoet wanneer wel voldaan word gewoon verdergaan ik heb volgende code

 If TextBox16.Value = "" Then MsgBox "Kies de uitvoerder": ComboBox2.Value = "": Exit Sub
   If ComboBox5.Value <> "1" Then
    Dim strMessage As String
    strMessage = "De aanvraag is nog niet volledig klaar!" & vbCrLf & "Er zal geen Mail verstuurd worden"
    MsgBox strMessage
    
    [COLOR="#FF0000"]If ComboBox5.Value = "1" Then[/COLOR] 'hier loopt het ergens mis

    ans = MsgBox("Weet U zeker dat U de gegevens wilt aanpassen ?", vbYesNoCancel)
If ans = vbYes Then

    Set nr = Worksheets("Planning").Range("A:A").Find(Me.ComboBox4.Value, LookIn:=xlValues, lookat:=xlWhole)
  
    Sheets("Planning").Range("B" & nr.Row) = Me.TextBox2.Value
    Sheets("Planning").Range("C" & nr.Row) = Me.TextBox3.Value
    Sheets("Planning").Range("D" & nr.Row) = Me.TextBox4.Value
    Sheets("Planning").Range("E" & nr.Row) = Me.TextBox5.Value
    Sheets("Planning").Range("F" & nr.Row) = Me.TextBox6.Value
    Sheets("Planning").Range("G" & nr.Row) = Me.TextBox7.Value
    Sheets("Planning").Range("H" & nr.Row) = Me.TextBox8.Value
    Sheets("Planning").Range("I" & nr.Row) = CDate(Me.Textbox9.Value)
    Sheets("Planning").Range("K" & nr.Row) = Me.TextBox11.Value
    Sheets("Planning").Range("M" & nr.Row) = Me.TextBox13.Value
    Sheets("Planning").Range("N" & nr.Row) = Me.TextBox14.Value
    Sheets("Planning").Range("Q" & nr.Row) = Me.TextBox16.Value
    Sheets("Planning").Range("O" & nr.Row) = Me.ComboBox2.Value
    Sheets("Planning").Range("P" & nr.Row) = Me.ComboBox5.Value
    Sheets("Planning").Range("Q" & nr.Row) = Me.TextBox15.Value
    Sheets("Planning").Range("R" & nr.Row) = Me.TextBox16.Value
    Sheets("Planning").Range("S" & nr.Row) = Me.TextBox17.Value
Unload Me
    End If
   End If
Else
   Unload Me

End If
Aanvraagklaarmail.Show

End Sub

als de waarde niet 1 is krijg ik de msgbox en de vraag om op te slaan maar wanneer de waarde 1 is krijg ik dadelijk het aanvraagklaarmail form.
maar nu zou ook de vraag om opteslaan moeten komen ?

Who can help me ?

 

[edmoor]

Wat is het object bep?

 

[Niels28]

   [COLOR="#0000FF"]If ComboBox5.Value <> "1" Then[/COLOR]
    Dim strMessage As String
    strMessage = "De aanvraag is nog niet volledig klaar!" & vbCrLf & "Er zal geen Mail verstuurd worden"
    MsgBox strMessage
    
   [COLOR="#0000FF"] If ComboBox5.Value = "1" Then 'hier loopt het ergens mis[/COLOR]

De 2 blauwe zijn tegenstrijdig.
aan de 2de if statement kan nooit voldaan worden omdat je deze laat werken als de voorwaarde geen 1 is.

Haal het tweede if statement weg want als het niet aan de eerste voldoet dan is het 1.
zet ipv van de 2de if alleen maar else neer.

plaats anders even een voorbeel bestand.

@Edmoor
ik ga er vanuit dat bep. staat voor bepaalde

Niels

 

[jo geuens]

bijna ok

hoi heb de code aangepast en wekt nu als aande waarde 1 voldaan wordt maar als niet voldaan wordt ga je na de melding dadelijk verder zonder de vraag om op te slaan
en de aangepaste data zou wel opgeslaan moeten worden

Private Sub opslaan_Click()
  ActiveSheet.Unprotect
   Dim c        As Range
 
  If TextBox16.Value = "" Then MsgBox "Kies de uitvoerder": ComboBox2.Value = "": Exit Sub
   If ComboBox5.Value <> "1" Then
    Dim strMessage As String
    strMessage = "De aanvraag is nog niet volledig klaar!" & vbCrLf & "Er zal geen Mail verstuurd worden"
    MsgBox strMessage
    Else
  

    ans = MsgBox("Weet U zeker dat U de gegevens wilt aanpassen ?", vbYesNoCancel)
     If ans = vbYes Then

    Set nr = Worksheets("Planning").Range("A:A").Find(Me.ComboBox4.Value, LookIn:=xlValues, lookat:=xlWhole)
  
    Sheets("Planning").Range("B" & nr.Row) = Me.TextBox2.Value
    Sheets("Planning").Range("C" & nr.Row) = Me.TextBox3.Value
    Sheets("Planning").Range("D" & nr.Row) = Me.TextBox4.Value
    Sheets("Planning").Range("E" & nr.Row) = Me.TextBox5.Value
    Sheets("Planning").Range("F" & nr.Row) = Me.TextBox6.Value
    Sheets("Planning").Range("G" & nr.Row) = Me.TextBox7.Value
    Sheets("Planning").Range("H" & nr.Row) = Me.TextBox8.Value
    Sheets("Planning").Range("I" & nr.Row) = CDate(Me.Textbox9.Value)
    Sheets("Planning").Range("K" & nr.Row) = Me.TextBox11.Value
    Sheets("Planning").Range("M" & nr.Row) = Me.TextBox13.Value
    Sheets("Planning").Range("N" & nr.Row) = Me.TextBox14.Value
    Sheets("Planning").Range("Q" & nr.Row) = Me.TextBox16.Value
    Sheets("Planning").Range("O" & nr.Row) = Me.ComboBox2.Value
    Sheets("Planning").Range("P" & nr.Row) = Me.ComboBox5.Value
    Sheets("Planning").Range("Q" & nr.Row) = Me.TextBox15.Value
    Sheets("Planning").Range("R" & nr.Row) = Me.TextBox16.Value
    Sheets("Planning").Range("S" & nr.Row) = Me.TextBox17.Value
Unload Me
    
   End If

   Unload Me

End If
ActiveSheet.protect
Aanvraagklaarmail.Show

End Sub

maar we zijn toch weer een stapje verder