ต้องการนำค่าจาก Text Box ลง Worksheet ที่ต้องการและสถานะว่าง

[ntn819]

รบกวนพี่ๆครับ
ผมมีความต้องการนำค่าที่อยู่ใน Text Box ที่รับค่าจาก Cell อีก Sheet มาลงอีก 1 Sheet เพื่อจัดทำ Logbook โดยให้ตรวจสอบ Cell ที่ว่างด้วยว่ามีข้อมูลหรือไม่ถ้าไม่มีก็บันทึกข้อมูลลงมาเรื่อยๆ เพื่อจัดเก็บข้อมูลครับ นำข้อมูลจากSheet InPut_Data_BOQ ซึ่งผมสร้างปุ่มรับข้อมูลจาก Cell บันทึกลงใน Textbox แล้ว แต่ติดที่จะนำข้อมูลไปลงอีก Sheet(Logbook) ) รบกวนด้วยครับ

ตัวอย่างคำสั่งรับค่า Worksheet
UserForm1.TextBox1 = Sheets("InPut_Data_BOQ").Range("C13")
UserForm1.TextBox2 = Sheets("InPut_Data_BOQ").Range("C14")
UserForm1.TextBox3 = Sheets("InPut_Data_BOQ").Range("C15")
UserForm1.TextBox4 = Sheets("InPut_Data_BOQ").Range("C17")
UserForm1.TextBox5 = Sheets("InPut_Data_BOQ").Range("C18")
UserForm1.TextBox6 = Sheets("InPut_Data_BOQ").Range("C19")
UserForm1.TextBox7 = Sheets("InPut_Data_BOQ").Range("D19")
UserForm1.TextBox8 = Sheets("InPut_Data_BOQ").Range("C16")
UserForm1.TextBox9 = Sheets("InPut_Data_BOQ").Range("C20")

ตัวอย่างคำสั่งนำข้อมูล ลง WorkSheet
emptyRow = WorksheetFunction.CountA(Worksheets("LogBook_BOQ").Range("B:B") + 1)
Cells(emptyRow, 2).Value = TextBox1.Value
Cells(emptyRow, 3).Value = TextBox2.Value
Cells(emptyRow, 4).Value = TextBox3.Value
Cells(emptyRow, 5).Value = TextBox4.Value
Cells(emptyRow, 6).Value = TextBox5.Value
Cells(emptyRow, 7).Value = TextBox6.Value
Cells(emptyRow, 8).Value = TextBox7.Value
Cells(emptyRow, 9).Value = TextBox8.Value
Cells(emptyRow, 10).Value = TextBox9.Value

[ntn819]

ใช้เป็น VBA Excel นะครับ

[snasui]

การโพสต์ Code ควรโพสต์ให้เป็น Code ดูตัวอย่างได้จากกฎการใช้บอร์ดข้อ 5 ด้านบนครับ

ตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

emptyRow = WorksheetFunction.CountA(Worksheets("LogBook_BOQ").Range("B:B")) + 1

เป็นการนับเสียก่อนที่จะเอาตัวเลขไปบวกกับผลการนับ Code เดิมนำตัวเลขไปบวกกับ Range จึงทำงานผิดพลาดครับ

[ntn819]

ขอบคุณครับอาจารย์