Snasui Excel Forum

อัพไฟล์ไม่ได้คับ แจ้งว่าขนาดใหญ่เกินไปคับ


Private Sub CommandButton1_Click()

Dim answer As Integer
answer = MsgBox("Are you sure you want to empty the sheet?", vbYesNo + vbQuestion, "Empty Sheet")

If answer = vbYes Then

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


Cells(emptyRow, 1 ...

ตอนนี้คือผมบันทึกข้อมูล อยู่หน้าชีท บัญชีลูกค้า แล้วต้องการ บันทึกต่อจากชีท ข้อมูล ด้วยคับ

ชีท บัญชีลูกค้า --->> ต้องลงวันต่อวัน พอวันถัดไปต้องลบออกเพื่อเริ่มวันใหม่
ชีท ข้อมูล --->> สำหรับเก็บข้อมูลใว้เดือนต่อเดือน

วิธีที่ทำตอนนี้คือ ใช้วิธีการ copy แบบคลิ๊กเมาส์ อยากให้มันบันทึกข้อมูลได้เลยคับ ...