Lege velden in USERFORM niet verwerken

Status
Niet open voor verdere reacties.
J

JanBG

Verenigingslid
Lid geworden
30 aug 2017
Berichten
942
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:

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.
 
Maar als CB_03.Value leeg is komt er toch sowieso niks te staan?

Of bedoel je dit?
Code: 
If CB_03.Value <> "" Then
    Blad4.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 7) = Array(TB_07.Value, CB_01.Value, CDate(TB_01.Value), CB_03.Value, TB_02.Value, _
    CDate(TB_03.Value), TB_05.Value)
End If
 
Laatst bewerkt:
Hallo Edmoore,

Niet helemaal. Als CB_03 en/of CB_04 leeg zijn, moet deze code nog wel verwerkt worden:

Code: 
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)
 
Volgens mij is het voorbeeld daarvoor duidelijk genoeg.
Maak er een Else bij.
 
Je hebt gelijk. Ik ga er een Else bijzetten, dank
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan