Snasui Excel Forum

กานต์ลอง ปรับใหม่แล้วค่ะ

การcopy template รันได้แล้ว
ดังนี้ค่ะ
Sub CommandButton1_Click()

Dim AA As String
Dim a As String
Dim wb As Workbook
Dim wk As Workbook


Set wb = ActiveWorkbook
Set wk = Workbooks.Add


With wb

a = .Sheets(1).Cells(1, 13).Value

Range("A2").Value = a ...

ขอบคุณมากค่ะอาจารย์ แล้วก็ขอบคุณสำหรับคำแนะนำนะคะ

แล้วถ้าจะเอาTemplateมาด้วย และตั้งชื่อ worksheet ใหม่นี้ให้ตรงกับตัวเลข cell "A2" ทำไงคะลองเขียนหลายแบบแล้วไม่ได้สักทีค่ะ

พอดีเพิ่งเริ่มฝึกเขียน VBA ค่ะ คือจะเขียนสั่งโปรแกรมทำงาน
โดย เมื่อกดปุ่ม A แล้ว ให้เอา range M1 มาใส่ที่ A2 ในเวิร์กชีต Test.xlsm แล้ว นั้นเปิด workbookใหม่ copy Range("A1:H18") โดยให้ค่าในตารางที่copy มานั้น เป็น value แต่ตารางเป็นแบบเดิม ใส่ใน workbookใหม่ และทำการ save โดยชื่อ workbook name ตาม ...