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

[primeval]

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 12 times

[snasui]

ตัวอย่างการปรับ 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 ไปทดสอบครับ

[primeval]

ขแบคุณครับ