Snasui Excel Forum

Code: Select all

Private Sub CommandButton1_Click()
    Do
        r = r + 1
    Loop Until Cells(r, 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
    TextBox1.Text = ""
    TextBox2.Text = ""
    TextBox3.Text = ""
    TextBox4.Text = ""
    TextBox5.Text = ""
End Sub