Opgelost Verwerking USERFORM gaat niet goed

[JanBG]

Hallo,

Ik heb een Userform waarin een aantal persoonsgegevens ingevoerd kunnen worden. Bij het verwerken wordt de waarde uit TB_04 niet weggeschreven in kolom 5, wat wel de bedoeling is. Ik zie kennelijk wat over het hoofd. Iemand die het wel ziet?

Private Sub CommandButton3_Click()
With Sheets("Blad1")
If OB_01.Value = True Then TB_04.Text = "Man"
If OB_01.Value = False Then TB_04.Text = "Vrouw"
        iRow = .Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
        .Cells(iRow, 1).Resize(, 5).Value = Array(TB_02.Value, TB_01.Value, CDate(TB_03.Value), _
        , , TB_04.Value)
End With

Unload Me
End Sub

 

[AHulpje]

Twee komma's moet een komma worden.

 

[JanBG]

Hoi,

Dank je!

Zo zie je maar weer eens hoe je jezelf blind kunt staren op iets heel simpels

 

[snb]

Iets compacter:

Private Sub CommandButton3_Click()
   Sheets("Blad1").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 5) = Array(TB_02, TB_01, CDate(TB_03), , IIf(OB_01, "Man", "Vrouw"))

   Unload Me
End Sub