Checkbox

[Mark_68]

Ik zit met het volgende
Als ik gegevens invoer zonder de checkbox aan te vinken dan krijg ik netjes de msgbox en sluit het venster af en gaat naar het volgende venster.
Alleen als ik gegevens invoer en de checkbox wel aanvink dan krijg ik de msgbox pas te zien als ik het volgende venster afsluit.

De bedoeling is dat het met de aangevinkte checkbox hetzelfde gaat als zonder aangevinkt

Private Sub cmdToevoegen_Click()

    Dim ws As Worksheet
    Dim LaatsteRij As Long
    
    Set ws = Sheets("Zam")
    
    'Bepaal de eerste lege rij in kolom A
    LaatsteRij = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1
    
    'Sla de waarden op
    ws.Cells(LaatsteRij, 1).Value = TextBox1.Text 'Kolom A
    ws.Cells(LaatsteRij, 6).Value = TextBox3.Text 'Kolom F
    ws.Cells(LaatsteRij, 5).Value = TextBox2.Text 'Kolom E
    ws.Cells(LaatsteRij, 7).Value = TextBox4.Text 'Kolom G
    ws.Cells(LaatsteRij, 8).Value = TextBox5.Text 'Kolom H
    
    MsgBox "Gegevens zijn succesvol opgeslagen"
    
    Unload Me
    
    Product.Show
    
    If CheckBox1.Value = True Then
        Label6 = Label6 + CheckBox1.Caption
    ws.Cells(LaatsteRij, 4).Value = Label6.Caption
    
 MsgBox "Gegevens zijn succesvol opgeslagen"
    
    Unload Me
    
    Product.Show
    
     End If
    
End Sub

 

[AHulpje]

Probeer het eens zo:

Private Sub cmdToevoegen_Click()
    Dim ws As Worksheet
    Dim LaatsteRij As Long
    Set ws = Sheets("Zam")
    'Bepaal de eerste lege rij in kolom A
    LaatsteRij = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1
    'Sla de waarden op
    ws.Cells(LaatsteRij, 1).Value = TextBox1.Text 'Kolom A
    ws.Cells(LaatsteRij, 6).Value = TextBox3.Text 'Kolom F
    ws.Cells(LaatsteRij, 5).Value = TextBox2.Text 'Kolom E
    ws.Cells(LaatsteRij, 7).Value = TextBox4.Text 'Kolom G
    ws.Cells(LaatsteRij, 8).Value = TextBox5.Text 'Kolom H
    If CheckBox1.Value Then   ws.Cells(LaatsteRij, 4).Value = Label6 & CheckBox1.Caption
    MsgBox "Gegevens zijn succesvol opgeslagen"
    Unload Me
    Product.Show
End Sub

 

[Mark_68]

Dank je wel Ahulpje

 

[snb]

1 regel volstaat
Msgboxen zijn overbodig. Kijk maar gewoon in het werkblad.

Private Sub cmdToevoegen_Click()
   Sheets("Zam").Cells(Rows.Count, 1).End(xlUp).offset(1).resize(,8)=array(TextBox1,"","",iif(checkbox1,Label6 & checbox1.caption,""),TextBox2, TextBox3, TextBox4, TextBox5)
End Sub