ช่วยด้วยครับ ผมต้องการกรอกข้อมูล พนักงานดังไฟล์แล้วบันทึกเก็บไว้ โดยใช้ VBA ครับ

[Supakit31]

สวัสดีครับอาจารน์และเพื่อนทุกท่า

พอดีผมได้ลองทำ VBA แล้วปรากฎว่าหน้าจอที่ทำการกรอกข้อมูลบันทึกไป พอกดเพิ่ม มัน Error ครับ ผมจะทำยังไงดีครับ รบกวนช่วยผมหน่อยครับ
ขอบคุณครับ

สูตรที่ทำครับ
Private Sub CommandButton1_Click()
emptyRow = WorksheetFunction.CountA(Range("B:B")) + 1
Cells(emptyRow, 1).Value = TaxtBox1.Value
Cells(emptyRow, 2).Value = TaxtBox2.Value
Cells(emptyRow, 3).Value = TaxtBox3.Value
Cells(emptyRow, 4).Value = TaxtBox4.Value
Cells(emptyRow, 5).Value = TaxtBox5.Value
Cells(emptyRow, 6).Value = TaxtBox6.Value
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
End Sub

[Supakit31]

โอเครครับผมได้แล้วครับ ผมพิมพ์ชื่อ
Cells(emptyRow, 1).Value = TaxtBox1.Value จาก Taxt เป็น Text ครับ
Cells(emptyRow, 2).Value = TaxtBox2.Value
Cells(emptyRow, 3).Value = TaxtBox3.Value
Cells(emptyRow, 4).Value = TaxtBox4.Value
Cells(emptyRow, 5).Value = TaxtBox5.Value
Cells(emptyRow, 6).Value = TaxtBox6.Value

ขอบคุณอีกครับสำหรับผู้ที่เข้ามาอ่านครับ

[puriwutpokin]

ใช่คำสั่งผิดครับ แก้จาก Taxt.Box ครับ

Code: Select all

Private Sub CommandButton1_Click()
emptyRow = WorksheetFunction.CountA(Range("B:B")) + 1
Cells(emptyRow, 1).Value = TextBox1.Value
Cells(emptyRow, 2).Value = TextBox2.Value
Cells(emptyRow, 3).Value = TextBox3.Value
Cells(emptyRow, 4).Value = TextBox4.Value
Cells(emptyRow, 5).Value = TextBox5.Value
Cells(emptyRow, 6).Value = TextBox6.Value
End Sub

[Supakit31]

ขอถามอีกครับ และถ้าเราทำปุ่ม ลบ ในกรณีที่เค้าลาออก แล้วจะนำรายชื่อไปอยู่อีก Sheet จะทำอย่างไรครับ

[logic]

สร้างปุ่มลบและเขียนโค้ดมาเบื้องต้นแล้วแนบมาให้เพื่อน ๆ ช่วยกันดูครับ