Delete data in cell & Save entry to form

[yukioh]

สหวัดดีครับ อาจาร
ขอรบกวน อาจารย์ เกียวกับ code ลบข้อมูนใน form
ต้องกานลบข้อมูน ใน form จะต้องใช้ code ยีงไงดีครับ
code ที่มีอยู่ มันค้อนค่างจะ fixed

[snasui]

ช่วยอธิบายมาด้วยว่าต้องการจะลบอย่างไรเพื่อไม่ให้เป็นการ Fixed ครับ

[yukioh]

ครับ
เวลาเรากดปุ่ม มันจะลบทังหมดเล่ยคับ ทังตัวข้อมูน และ ส่วนท้ายของข้อมุน ที่เขียนว้า " Received by Payee"
ต้องกานให้ลบข้อมูนที่อยู่ใน ตะลางเท่านั้น โดยไม่ให้ลบ ข้อความ " Received by Payee"

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

With Sheets("Form")
    .Range("b3", .Range("a" & Rows.Count).End(xlUp).Offset(-1, 7)).ClearContents
End With

[yukioh]

ได้ผมครับ ครับ ตรงตามที่ต้องกานเลียครับ

ขอถามต่อในส่วนของ Save entry to form (Save_to_form) ครับอาจารย์
บางที่ เรา enter ข้อมูน sheet(entry) เป็นจำนวนมาก แล้ว format ของ form มืแถวน้อย
จะทำยังไงให้ เวลาเรากดปุม save to form แล้วให้ form insert ให้ เหมาะตามจำนวนข้อมูรครับ

[snasui]

กรณี Insert ข้อมูลลง Form โดยให้ยืดหยุ่นตามปริมาณข้อมูลก็ต้องเขียน VBA เข้าไปช่วยตรับ

ก่อนวางข้อมูล ให้ลบข้อความด้านท้าย Form ทิ้งไป แล้ววางข้อมูล แล้วค่อยสร้างใหม่ข้อมูลด้านท้าย Form ใหม่หลังจากวางข้อมูลแล้ว ลองเขียนมาดูก่อนติดตรงไหนค่อยถามกันต่อครับ