Snasui Excel Forum

Code: Select all

Private Sub CommandButton1_Click()
    Dim r As Long
    With Sheets("Alldata")
        r = .Range("a" & Rows.Count).End(xlUp).Row + 1
        .Cells(r, 1) = TextBox1.Text
        .Cells(r, 2) = TextBox2.Text
        .Cells(r, 3) = TextBox3.Text
        .Cells(r, 4) = TextBox4.Text
        .Cells(r, 5) = TextBox5.Text
        .Cells(r, 6) = TextBox6.Text
        .Cells(r, 7) = TextBox7.Text
        .Cells(r, 8) = TextBox8.Text
        .Cells(r, 9) = TextBox9.Text
        .Cells(r, 10) = TextBox10.Text
        r = r + 1
        .Cells(r, 1) = TextBox11.Text
        .Cells(r, 2) = TextBox12.Text
        .Cells(r, 3) = TextBox13.Text
        .Cells(r, 4) = TextBox14.Text
        .Cells(r, 5) = TextBox15.Text
        .Cells(r, 6) = TextBox16.Text
        .Cells(r, 7) = TextBox17.Text
        .Cells(r, 8) = TextBox18.Text
        .Cells(r, 9) = TextBox19.Text
        .Cells(r, 10) = TextBox20.Text
    End With
End Sub