Excel Forum

Code: Select all

Private Sub CommandButton1_Click()
Sheets("รายการประมูล").Select
Do
r = 5 + 1
Loop Until Cells(r, 1) = ""
Cells(r, 2) = TextBox1.Text
Cells(r, 3) = TextBox2.Text
Cells(r, 4) = TextBox3.Text
Cells(r, 5) = TextBox4.Text
Cells(r, 6) = TextBox5.Text
Cells(r, 7) = TextBox6.Text
Cells(r, 8) = TextBox7.Text
Cells(r, 9) = TextBox8.Text
Cells(r, 10) = TextBox9.Text
Cells(r, 11) = TextBox10.Text
Cells(r, 12) = TextBox11.Text
Cells(r, 13) = TextBox12.Text
Cells(r, 14) = TextBox13.Text
Cells(r, 15) = TextBox14.Text

End Sub