How to input data from multiple textbox to worksheet

[munandar]

Hii all
ihave problem with my form. I have 18 textbox. Textbox 1 labeled as ID. And txtbox (2 to 18) as input data. I want store my data at Sheet1. If i input ID "1" then data input on TxtBox (2 to 18) will be automatic can be run in sheet1 row 5 (my tabel has header at 4). if i input ID 2, then all data will be in row 6. If i have alot of textbox, It imposible for me to take event one by one for all my Txtbox to store data in sheet1.

Any Suggestion/Idea. Please (my wrksheet as attach)

[LeoTaxi]

Private Sub CommandButton4_Click()
Sheets("sheet1").Range("A" & Val(TextBox1) + 4).Resize(1, 18).Value = Array(TextBox1, TextBox2, TextBox3, _
    TextBox4, TextBox5, TextBox6, TextBox7, TextBox8, TextBox9, TextBox10, TextBox11, TextBox12, TextBox13, _
    TextBox14, TextBox15, TextBox16, TextBox17, TextBox18)
End Sub

Private Sub UserForm_Initialize()
TextBox1 = Sheets("sheet1").Range("A" & Rows.Count).End(xlUp).Row - 3
TextBox2.SetFocus
End Sub

Kind regards
Leo

[munandar]

Dear Leo

Thanks Leo. It's work. I have question.
What about another control? i mean, it possible if we use Event such as Exit Event or KeyDown Event? Because i ll make sure the data when i put on each text box as soon as is in our range (ex. input data on each text box > 0 an < 25). so when i click command button, all of data is clearly accepted.

[LeoTaxi]

This is a control for each textbox before writing to sheet

Private Sub CommandButton4_Click()
For x = 2 To 18
    If Me("textbox" & x).Value < 0 Or Me("textbox" & x).Value > 25 Then
        MsgBox "Enter data >0 and <25 in textbox " & x
        Me("textbox" & x) = ""
        Me("textbox" & x).SetFocus
        Exit Sub
    End If
Next
Sheets("sheet1").Range("A" & Val(TextBox1) + 4).Resize(1, 18).Value = Array(TextBox1, TextBox2, TextBox3, _
    TextBox4, TextBox5, TextBox6, TextBox7, TextBox8, TextBox9, TextBox10, TextBox11, TextBox12, TextBox13, _
    TextBox14, TextBox15, TextBox16, TextBox17, TextBox18)
unload me
End Sub

Kind regards
Leo