การบันทึกข้อมูล VBA

[liveday]

คือผมติดปัญหาตรงที่ไม่สามารถ Copy ข้อมูลมาได้ทั้งหมด
ความต้องการคือต้องการสูตร VBA โดยคำนวนช่อง NO.(B2:B11). ถ้ามีรายการในช่อง NO.(B2:B11) ให้ Copy ไปไว้ใน Database ทั้งหมด ตั้งแต่ช่องเซลล์ (B:M)
เเละในส่วน การลบข้อมูล ไม่สามารถนำมาใส่ใน Texbox ClearFrom ได้
รบกวนอาจารย์ด้วยนะครับ

[tupthai]

เปลี่ยนจาก

Code: Select all

Set rs = Worksheets("Default").Range("A2:M2")

เป็น

Code: Select all

Set rs = Worksheets("Default").Range("A2:M" & Range("B65536").End(xlUp).Row())

ส่วน Clearข้อมูล
ให้ insert command buttonจาก Active X controls แทน button จาก form controls
แล้วเปลี่ยนชื่อเป็น cmdCLEAR

หรือถ้าจะใช้ button จาก form controls ให้copy code ไปไว้ใน Module

[liveday]

ได้อย่างที่ต้องการเเล้ว
ขอบคุณมากครับ