adjusting code copy data from userform to specific sheets using array

[abdelfattah]

hello
I have this code works well but if anybody help exchange this code with another code using array
I have many combobox and textbox it takes more time if I write each active x (combobox & textbox)
so what i want when get in array about combobox & textbox like this

' 3 combobox  in array
for i = 1 to 3
'array(1,2,3) it means copying to column a,b,c as in my code
("combobox" & i) = array(1,2,3)
'3 textbox in array
for s=1 to 3
'array(4,5,6)it means copying to column d,e,f as in my code
("textbox" & s) =array(4,5,6)

this is my code

Private Sub CommandButton1_Click()
Dim lr1, lr2 As Integer
Dim wk1, wk2 As Worksheet
Set wk1 = Sheets("expirity")
Set wk2 = Sheets("NEW")
lr1 = wk1.Range("a" & Rows.Count).End(xlUp).Row + 1
lr2 = wk2.Range("a" & Rows.Count).End(xlUp).Row + 1
If OptionButton1.Value = True Then
With wk1
.Range("a" & lr1) = Me.ComboBox1.Value
.Range("b" & lr1) = Me.ComboBox2.Value
.Range("c" & lr1) = Me.ComboBox3.Value
.Range("d" & lr1) = Me.TextBox1.Value
.Range("e" & lr1) = Me.TextBox2.Value
.Range("f" & lr1) = Me.TextBox3.Value

End With
Else
With wk2
.Range("a" & lr2) = Me.ComboBox1.Value
.Range("b" & lr2) = Me.ComboBox2.Value
.Range("c" & lr2) = Me.ComboBox3.Value
.Range("d" & lr2) = Me.TextBox1.Value
.Range("e" & lr2) = Me.TextBox2.Value
.Range("f" & lr2) = Me.TextBox3.Value

End With
End If
Me.ComboBox1.Value = ""
 Me.ComboBox2.Value = ""
 Me.ComboBox3.Value = ""
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
End Sub

thanks in advance

 

[mohadin]

What about

Private Sub CommandButton1_Click()
    Dim lr1, lr2 As Integer
    Dim wk1, wk2 As Worksheet
    Set wk1 = Sheets("expirity")
    Set wk2 = Sheets("NEW")
    lr1 = wk1.Range("a" & Rows.Count).End(xlUp).Row + 1
    lr2 = wk2.Range("a" & Rows.Count).End(xlUp).Row + 1
    If OptionButton1.Value = True Then
        With wk1
        For i = 1 To 3
        .Cells(lr, i) = Me.Controls("combobox" & i).Value
        .Cells(lr, i + 3) = Me.Controls("TextBox" & i).Value
        Next

        End With
    Else
        With wk2
        For i = 1 To 3
        .Cells(lr, i) = Me.Controls("combobox" & i).Value
        .Cells(lr, i + 3) = Me.Controls("TextBox" & i).Value
        Next

        End With
    End If
    For i = 1 To 3
        Me.Controls("combobox" & i).Value = ""
        Me.Controls("TextBox" & i).Value = ""
    Next
   
End Sub

 

[abdelfattah]

great work ! you have error i know this is typo should use lr1,lr2 not lr
should change this

.Cells(lr, i) = Me.Controls("combobox" & i).Value
        .Cells(lr, i + 3) = Me.Controls("TextBox" & i).Value

to this

.Cells(lr1, i) = Me.Controls("combobox" & i).Value
        .Cells(lr1, i + 3) = Me.Controls("TextBox" & i).Value

the same thing with wk2
i have a question it's curiosity if copy combobox & textbox to non adjacent columns for in stance
combobox1 copy to column b
combobox2 copy to column d
combobox3 copy to column f
textbox 1 copy to column a
textbox2 copy to column c
textbox 3 copy to column e
so how the code is it ?

 

[mohadin]

Maybe some thing like

With wk2
            For i = 1 To 6 Step 2
                .Cells(lr2, i) = Me.Controls("combobox" & i).Value
                .Cells(lr2, i + 1) = Me.Controls("TextBox" & i).Value
            Next

        End With

 

[abdelfattah]

unfortunately gives error so maybe somebody else has idea help me about my question , any way thanks for solving my original post

 

[mohadin]

My mistak

With wk2
    c = 1
    For i = 1 To 6 Step 2
        .Cells(lr2, i) = Me.Controls("combobox" & c).Value
        .Cells(lr2, i + 1) = Me.Controls("TextBox" & c).Value
        c = c + 1
    Next

End With

 

[abdelfattah]

should define variable c it shows not defined , I declare it as integer
it works perfectly thanks very much

 

[mohadin]

You are welcome
And thank you for the feedback
Be happy