Snasui Excel Forum

Posted: **Tue Aug 30, 2016 12:35 pm**

Sub Button1_Click()
'
' Button1_Click Macro
'

'
Range("A1:N38").Copy
Sheets("¢éÍÁÙÅ").Select
Sheets.Add After:=ActiveSheet
ActiveSheet.Name = Range("B6").Name
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B5").Select
Application.CutCopyMode = False
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
Application.CutCopyMode = False

End Sub

จาก Code ยังติด Error ครับ ยังไม่ค่อยเก่ง VBA ครับ
จากตาราง สรุปวิทยากรตามหลักสูตร Code ด้านบน สามารถ Copy พร้อมเพิ่มตารางได้แล้ว แต่อยากให้ Copy ชื่อวิทยากรที่อยู่ในช่อง B5 ไปตั้งชื่อ Sheet ใหม่ รบกวนด้วยครับขอบคุณครับ

ตารางสถิติความพึงพอใจวิทยากร.xlsm: (68.53 KiB) Downloaded 15 times

Posted: **Tue Aug 30, 2016 7:17 pm**

ตัวอย่างการปรับ Code ครับ

Code: Select all

Sub Button1_Click()
'
' Button1_Click Macro
'

'
    Range("A1:N38").Copy
    Sheets("¢éÍÁÙÅ").Select
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Name = Sheets("¢éÍÁÙÅ").Range("B6").Value
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

สำหรับการวาง Code ในการตั้งคำถามให้แสดงเป็น Code สามารถอ่านได้จากกฎการใช้บอร์ดข้อ 5 ด้านบน จะได้สะดวกในการอ่านและ Copy ไปทดสอบครับ

Posted: **Tue Aug 30, 2016 11:32 pm**

ขแบคุณครับ

Snasui Excel Forum

รบกวนขอวิธีการ Copy ข้อมูลด้วย VBA

รบกวนขอวิธีการ Copy ข้อมูลด้วย VBA

Re: รบกวนขอวิธีการ Copy ข้อมูลด้วย VBA

Re: รบกวนขอวิธีการ Copy ข้อมูลด้วย VBA