Excel Forum

Code: Select all

Private Sub CommandButton1_Click()
Sheets("รายการประมูล").Select
lastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(lastRow, 1) = lastRow - 1
Cells(lastRow, 1) = Activate
Cells(lastRow, 2) = TextBox1.Value
Cells(lastRow, 3) = TextBox2.Value
Cells(lastRow, 4) = TextBox3.Value
Cells(lastRow, 5) = TextBox4.Value
Cells(lastRow, 6) = TextBox5.Value
Cells(lastRow, 7) = TextBox6.Value
Cells(lastRow, 8) = TextBox7.Value
Cells(lastRow, 9) = TextBox8.Value
Cells(lastRow, 10) = TextBox9.Value
Cells(lastRow, 11) = TextBox10.Value
Cells(lastRow, 12) = TextBox11.Value
Cells(lastRow, 13) = TextBox12.Value
Cells(lastRow, 14) = TextBox13.Value
Cells(lastRow, 15) = TextBox14.Value

TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
TextBox9.Value = ""
TextBox10.Value = ""
TextBox11.Value = ""
TextBox12.Value = ""
TextBox13.Value = ""
TextBox14.Value = ""


End Sub

Code: Select all

'...Other code
lastRow = Cells(Rows.Count, 2).End(xlUp).Row + 1
Cells(lastRow, 1) = lastRow - 5
Cells(lastRow, 1).Activate
'...Other code