How to transfer data from UserForm to Worksheet

Hello Frigide,

I changed the title of your post to reflect your question.

I made my firt Userform

Frigide, CONGRATULATIONS.

About your query, this is a far to general description to work with.

Post your workbook with userform in it so we can check Sheetnames, Control names, what goes where, which formats to apply to give you to the point advice on how to proceed.

also there are tig threads here regarding userforms and how to write to worksheet. I'm confident you can get some useful information there too.

Give the attached a try, only combos 4 - 7 are loaded, chose from them and press OK, this should save to Sheet1.
It is only a brief demo using Tables for data storage, the combos list is array loaded a method more stable than rowsource.
Start your code with 'Option Explicit' this will force you to declare your variables, this proves beneficial, always run debug.
There is a small routine in a module 'ClearForm' this would be used many times as you develop your application.
happy coding.
torachan.

table text font color needs setting to black - not visible as white by mistake.

Let's start with this.

Private Sub CommandButton1_Click()
    Dim check As Boolean, nRow As Long
    check = True
    For i = 1 To 25
        If Me("ComboBox" & i).Value = vbNullString Then check = False
    Next
    For j = 2 To 3
        If Me("TextBox" & j).Text = vbNullString Then check = False
    Next
    If check Then
        With Blad2
            nRow = .Range("B" & .Rows.Count).End(xlUp).Offset(1).Row
            If nRow < 2 Then nRow = 2
            For i = 1 To 25
                .Cells(nRow, i + 1) = Me("Combobox" & i).Value
            Next
            .Cells(nRow, 27) = TextBox1.Text: .Cells(nRow, 28) = TextBox2.Text: .Cells(nRow, 29) = TextBox3.Text
        End With
    Else
        MsgBox "Niet alle verplichte velden zijn ingevuld !"
    End If
End Sub

Private Sub CommandButton2_Click()
    Unload Me
End Sub

you're welcome and thanks for rep+.

In the sample it is working fine. I changes the code a bit and made a sheet whit a nice looking collers and rows. Now the code is not working anymore.
This is de code where it is going wrong. I dod nothing to fancy. Only toke the first 3 line for some headers!

 nRow = .Range("C" & .Rows.Count).End(xlUp).Offset(1).Row

Private Sub CommandButton1_Click()
    Dim check As Boolean, nRow As Long
    check = True
    For i = 1 To 25
        If Me("ComboBox" & i).Value = vbNullString Then check = False
    Next
    For j = 2 To 3
        If Me("TextBox" & j).Text = vbNullString Then check = False
    Next
    If check Then
        With LF_wissel_rapport
            nRow = .Range("C" & .Rows.Count).End(xlUp).Offset(1).Row
            If nRow < 2 Then nRow = 2
            For i = 1 To 25
                .Cells(nRow, i + 1) = Me("Combobox" & i).Value
            Next
            .Cells(nRow, 27) = TextBox1.Text: .Cells(nRow, 28) = TextBox2.Text: .Cells(nRow, 29) = TextBox3.Text
        End With
    Else
        MsgBox "Niet alle verplichte velden zijn ingevuld !"
    End If
End Sub

Private Sub CommandButton2_Click()
    Unload Me
End Sub

According to your new example file in Post#10.

Private Sub CommandButton1_Click()
    Dim check As Boolean, nRow As Long
    check = True
    For i = 1 To 25
        If Me("ComboBox" & i).Value = vbNullString Then check = False
    Next
    For j = 2 To 3
        If Me("TextBox" & j).Text = vbNullString Then check = False
    Next
    If check Then
        With Sheets("LF_wissel_rapport")
            nRow = .Range("C" & .Rows.Count).End(xlUp).Offset(1).Row
            For i = 1 To 25
                .Cells(nRow, i + 2) = Me("Combobox" & i).Value
            Next
            .Cells(nRow, 28) = TextBox1.Text: .Cells(nRow, 29) = TextBox2.Text: .Cells(nRow, 30) = TextBox3.Text
        End With
    Else
        MsgBox "Niet alle verplichte velden zijn ingevuld !"
    End If
End Sub

Glad to help and thanks for rep+.