Snasui Excel Forum

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

นี่ครับ

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

ติดปัญหา ผิดพลาดตรงไหน ช่วยหน่อยครับ

Private Sub CommandButton2_Click()
Dim last_Row As Long
last_Row = Application.WorksheetFunction.CountA(Sh.Range("A:A"))
FA = CountA(FormA)
For Y1 = 5 To FA
ER = CountA(Gravure)
Worksheet(Gravure).Cells(ER, x) = Worksheet(FormA).Cells(Y1, x)
Next Y1
MsgBox ("บ ...