Transfer Data from UserForm that their check box had checked!

Hello

I have a userform with 12 checkboxes. Eatch one for a different case. It's case also has her own comment box.

What i would like to fo is clicking a button, every case that her check box is checked to transfer the data ia the first availble row of sheet calling DataBase

In my attachment i describe exactly my needs.

Thanks in advance for any assistance on this!

Hi

Thanks for looking on this.

No it is an accident!!

To find last row you can use this code:

LastRow = Worksheets("DataBase").Cells(Worksheets("DataBase").Rows.Count, "C").End(xlUp).Row

You should connect checkboxes with appropriate labels and textboxes, for example select checkbox1, label2(Case1) and textbox2 and in properities give them Tag = 1

After this you can find in loop which checkboxes are seleced:

For Each objF In Me.Controls
    If TypeName(objF) = "CheckBox" Then
        If objF.Value = True Then
        ''''''''''''''''''''''''''''''''objF.Tag
        End If
    End If
Next

When you want to put textboxes and labels with the same tag to the worksheet you can put similar loop inside first loop:

For Each objF2 In Me.Controls
    If objF2.tag = objF.tag Then
          ''''''''''''' 
    End If
Next

Inside second loop you check what kind of control it is and do with it whatever you want, for example:

If TypeName(objF2) = "TextBox" Then 
        worksheets("DataBase").range("I" & LastRow +1).value = objF2.value
end if

jotpol

Thank you for your intention to help me. Unfortunately i am not(still..!) able to connect all these together!

Solus Rankin

Exactly what i need. Thank you so much!!

What ecactly this line does?

For i = 1 To 12