Snasui Excel Forum

ได้แล้วครับ แต่เป็นเฉพาะการบันทึกข้อมูลเข้าแต่การลบข้อมูลออกแล้วไปอยู่อีกชีทมันยังทำไม่ได้ครับ รบกวนแนะนำได้ไหมครับ
Private Sub CommandButton1_Click()
emptyRow = WorksheetFunction.CountA(Range("B:B")) + 1
Cells(emptyRow, 1).Value = TextBox1.Value
Cells(emptyRow, 2).Value = TextBox2.Value
Cells ...

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

โอเครครับผมได้แล้วครับ ผมพิมพ์ชื่อ
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 ...

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

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

สูตรที่ทำครับ
Private Sub CommandButton1_Click()
emptyRow = WorksheetFunction.CountA(Range("B:B")) + 1
Cells(emptyRow, 1 ...

ขอบคุณครับ เดี๋ยวผมลองทำดูก่อนนะครับ แล้วจะมาสอบถามใหม่นะครับ แต่ผมยังไม่เคยทำ VBA น่าจะเป็นเรื่องยากสำหรับผม อิอิ ยังไงจะมาขอรบกวนใหม่นะครับ

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