อยากสอบถามเกี่ยวกับการโยกย้ายพนักงานอีกชีทไปอีกชีท โดยตัดข้อมูลชีทหลักออกทันที

[Supakit31]

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

[puriwutpokin]

การทำเช่นนั้น ต้องใช้ VBA ครับ เขียนหรือค้นหามาเองก่อนครับ ตามกฏข้อ5 ของบอร์ดครับแล้วติดตรงไหนมาถามในนี้ต่อครับ

[Supakit31]

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

[Supakit31]

ได้แล้วครับ แต่เป็นเฉพาะการบันทึกข้อมูลเข้าแต่การลบข้อมูลออกแล้วไปอยู่อีกชีทมันยังทำไม่ได้ครับ รบกวนแนะนำได้ไหมครับ

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

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


ปุ่มลบเพื่อให้รายชื่อออกไปอยู่อีกชีทและปุ่มแก้ไขผมไม่มีสูตรแล้วครับรบกวนแนะนำหน่อยนะครับ
ขอบคุณครับ

[snasui]

Code สำหรับลบข้อมูลคืออะไรช่วยโพสต์แจ้งมาด้วยครับ

สำหรับการโพสต์ Code กรุณาอ่านกฎการใช้บอร์ดข้อ 5 ด้านบนประกอบครับ