Snasui Excel Forum

Code: Select all

lastrow = Worksheets("Sheet2").Cells(Rows.Count, 2).End(xlUp).Row
Worksheets("Sheet2").Cells(lastrow + 1, 1).Value = TextBoxs1.Text
Worksheets("Sheet2").Cells(lastrow + 1, 2).Value = TextBox2.Text
Worksheets("Sheet2").Cells(lastrow + 1, 3).Value = TextBox3.Text
Worksheets("Sheet2").Cells(lastrow + 1, 4).Value = TextBox5.Text
Worksheets("Sheet2").Cells(lastrow + 1, 5).Value = TextBox4.Text
Worksheets("Sheet2").Cells(lastrow + 1, 6).Value = TextBox5.Text
Worksheets("Sheet2").Cells(lastrow + 1, 7).Value = TextBox6.Text
Worksheets("Sheet2").Cells(lastrow + 1, 8).Value = TextBox7.Text
Worksheets("Sheet2").Cells(lastrow + 1, 9).Value = TextBox8.Text
Worksheets("Sheet2").Cells(lastrow + 1, 10).Value = TextBox9.Text
Worksheets("Sheet2").Cells(lastrow + 1, 11).Value = ComboBox1.Text
Worksheets("Sheet2").Cells(lastrow + 1, 12).Value = TextBox10.Text
Worksheets("Sheet2").Cells(lastrow + 1, 13).Value = TextBox11.Text
Worksheets("Sheet2").Cells(lastrow + 1, 14).Value = TextBox12.Text
Worksheets("Sheet2").Cells(lastrow + 1, 15).Value = TextBox13.Text
Worksheets("Sheet2").Cells(lastrow + 1, 16).Value = TextBox14.Text
Worksheets("Sheet2").Cells(lastrow + 1, 17).Value = TextBox15.Text
Worksheets("Sheet2").Cells(lastrow + 1, 18).Value = TextBox16.Text
Worksheets("Sheet2").Cells(lastrow + 1, 19).Value = TextBox17.Text
Worksheets("Sheet2").Cells(lastrow + 1, 20).Value = TextBox18.Text
Worksheets("Sheet2").Cells(lastrow + 1, 21).Value = TextBox19.Text
Worksheets("Sheet2").Cells(lastrow + 1, 22).Value = TextBox20.Text
Worksheets("Sheet2").Cells(lastrow + 1, 23).Value = TextBox21.Text
Worksheets("Sheet2").Cells(lastrow + 1, 24).Value = TextBox22.Text
Worksheets("Sheet2").Cells(lastrow + 1, 25).Value = TextBox23.Text
Worksheets("Sheet2").Cells(lastrow + 1, 26).Value = TextBox24.Text

Code: Select all

If MsgBox("คุณต้องการบันทึกข้อมูลหรือไม่", vbYesNo, "Welcome") = vbNo Then Exit Sub
lastrow = Worksheets("เก็บข้อมูลไปรษณีย์").Cells(Rows.Count, 2).End(xlUp).Row
Worksheets("เก็บข้อมูลไปรษณีย์").Cells(lastrow + 1, 1).Value = TextBox1.Text
Worksheets("เก็บข้อมูลไปรษณีย์").Cells(lastrow + 1, 2).Value = TextBox2.Text
Worksheets("เก็บข้อมูลไปรษณีย์").Cells(lastrow + 1, 3).Value = TextBox3.Text
Worksheets("เก็บข้อมูลไปรษณีย์").Cells(lastrow + 1, 4).Value = TextBox5.Text
Worksheets("เก็บข้อมูลไปรษณีย์").Cells(lastrow + 1, 5).Value = TextBox4.Text
Worksheets("เก็บข้อมูลไปรษณีย์").Cells(lastrow + 1, 6).Value = TextBox5.Text
Worksheets("เก็บข้อมูลไปรษณีย์").Cells(lastrow + 1, 7).Value = TextBox6.Text
Worksheets("เก็บข้อมูลไปรษณีย์").Cells(lastrow + 1, 8).Value = TextBox7.Text
Worksheets("เก็บข้อมูลไปรษณีย์").Cells(lastrow + 1, 9).Value = TextBox8.Text
Worksheets("เก็บข้อมูลไปรษณีย์").Cells(lastrow + 1, 10).Value = TextBox9.Text
Worksheets("เก็บข้อมูลไปรษณีย์").Cells(lastrow + 1, 11).Value = ComboBox1.Text
Worksheets("เก็บข้อมูลไปรษณีย์").Cells(lastrow + 1, 12).Value = TextBox10.Text
Worksheets("เก็บข้อมูลไปรษณีย์").Cells(lastrow + 1, 13).Value = TextBox11.Text
Worksheets("เก็บข้อมูลไปรษณีย์").Cells(lastrow + 1, 14).Value = TextBox12.Text
Worksheets("เก็บข้อมูลไปรษณีย์").Cells(lastrow + 1, 15).Value = TextBox13.Text
Worksheets("เก็บข้อมูลไปรษณีย์").Cells(lastrow + 1, 16).Value = TextBox14.Text
Worksheets("เก็บข้อมูลไปรษณีย์").Cells(lastrow + 1, 17).Value = TextBox15.Text
Worksheets("เก็บข้อมูลไปรษณีย์").Cells(lastrow + 1, 18).Value = TextBox16.Text
Worksheets("เก็บข้อมูลไปรษณีย์").Cells(lastrow + 1, 19).Value = TextBox17.Text
Worksheets("เก็บข้อมูลไปรษณีย์").Cells(lastrow + 1, 20).Value = TextBox18.Text
Worksheets("เก็บข้อมูลไปรษณีย์").Cells(lastrow + 1, 21).Value = TextBox19.Text
Worksheets("เก็บข้อมูลไปรษณีย์").Cells(lastrow + 1, 22).Value = TextBox20.Text
Worksheets("เก็บข้อมูลไปรษณีย์").Cells(lastrow + 1, 23).Value = TextBox21.Text
Worksheets("เก็บข้อมูลไปรษณีย์").Cells(lastrow + 1, 24).Value = TextBox22.Text
Worksheets("เก็บข้อมูลไปรษณีย์").Cells(lastrow + 1, 25).Value = TextBox23.Text
Worksheets("เก็บข้อมูลไปรษณีย์").Cells(lastrow + 1, 26).Value = TextBox24.Text