Hallo,
Ik heb in een document een Userform waarin 4 Comboboxen zijn opgenomen. ComboBox 1 en 2 bevatten altijd een waarde, ComboBox 3 en 4 niet. Ik gebruik de volgende code om te verwerken:
Waar ik naar op zoek ben is een code waarin bij de verwerking de informatie niet wordt meegenomen als CB_03 en/of CB_04 leeg zijn.
Ik heb in een document een Userform waarin 4 Comboboxen zijn opgenomen. ComboBox 1 en 2 bevatten altijd een waarde, ComboBox 3 en 4 niet. Ik gebruik de volgende code om te verwerken:
Code:
Private Sub CommandButton3_Click()
Blad4.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 7) = Array(TB_07.Value, CB_01.Value, CDate(TB_01.Value), CB_02.Value, TB_02.Value, _
CDate(TB_03.Value), TB_04.Value)
Blad4.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 7) = Array(TB_07.Value, CB_01.Value, CDate(TB_01.Value), [COLOR="#FF0000"]CB_03.Value[/COLOR], TB_02.Value, _
CDate(TB_03.Value), TB_05.Value)
Blad4.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 7) = Array(TB_07.Value, CB_01.Value, CDate(TB_01.Value), [COLOR="#FF0000"]CB_04.Value[/COLOR], TB_02.Value, _
CDate(TB_03.Value), TB_06.Value)
Unload Me
End Sub
Waar ik naar op zoek ben is een code waarin bij de verwerking de informatie niet wordt meegenomen als CB_03 en/of CB_04 leeg zijn.