Snasui Excel Forum

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

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 ("บันทึกข้อมูลเรียบร้อย")
End Sub

กรุณาแนบไฟล์ตัวอย่างที่เขียน Code นี้เอาไว้แล้วมาด้วย

สำหรับการแนบไฟล์และโพสต์ Code อ่านได้จากกฎการใช้บอร์ดข้อ 4 และ 5 ด้านบนครับ

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

ตัดมาเฉพาะที่พอเป็นตัวอย่างได้ สามารถ Copy ไฟล์เดิม เปลี่ยนข้อมูลสำคัญไปเป็นอย่างอื่น ลบข้อมูลที่ไม่เกี่ยวข้องกับปัญหาทิ้งไปเสียก่อนครับ

นี่ครับ

จาก Statement นี้ Sheets("Gravure").Cells(last_Row, 1) = Sheets("FormA").TextBox1.Value เกิด Error เนื่องจากไม่มี TextBox1 ครับ

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

จากที่ผมเขียนแจ้งไปทำให้ครบถ้วนเสียก่อน ไม่ทราบว่า Code นี้เขียนเองหรือไม่ หากเขียนเองจะต้องทราบได้ว่า TextBox1 คืออะไร และเพิ่มเข้ามาได้อย่างไร หากไม่ได้เขียนเองกรุณาให้ผู้ที่เขียนมาถามเองโดยตรงครับ