ต้องการ copy data โดยการเลือก sheet

[foxthai]

ขอความช่วยเหลือด้วยครับ
ต้องการคัดลอกข้อมูลจาก sheet(AA).A1:b8 โดยให้แสดง inputbox เลือก sheet ที่จะวางครับ พอสั่ง run แล้ว error ครับ

Sub xcopysheet()
Dim xsheet As Integer

Sheets("AA").Range("A1:B8").Copy
xsheet = Application.InputBox("put sheet name", "Sheet Name Select", , , , , , 2)
With ThisWorkbook.Worksheets(xsheet)
.Select
.Activate
Worksheets.Range("A1").PasteSpecial Paste:=xlPasteValues

End With

End Sub

[snasui]

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

Code: Select all

Sub xcopysheet()
    Dim xsheet As Integer
    xsheet = Application.InputBox("put sheet name", "Sheet Name Select", , , , , , 2)
    Sheets("AA").Range("A1:B8").Copy
    With ThisWorkbook.Worksheets(xsheet)
        .Range("A1").PasteSpecial Paste:=xlPasteValues
    End With
    Application.CutCopyMode = False
End Sub

การวาง Code ให้สะดวกต่อการอ่านให้ดูตามกฎข้อ 5 ด้านบน ซึ่งจะต้องมีลักษณะเหมือนที่ผมโพสต์มาด้านบนนี้ สำหรับ Code แบบ Inline ที่โพสต์มาในความเห็น #1 ใช้เพื่อประกอบการอธิบายเป็นราย Statement เท่านั้นครับ

[foxthai]

ขอบคุณมากครับ คราวหน้าจะแก้ไขครับ

[foxthai]

สอบถามอีกรอบครับ อาจารย์ ถ้าต้องการเลือกเป็นชื่อ sheet อย่าง sheet ("1") ไม่ใช่ sheet1 ต้องแก้ code ตรงใหนครับ

[snasui]

อ่านแล้วไม่เข้าใจครับ

กรุณาแจ้งว่าเลือกชื่อชีตนั้น ๆ แล้วมีปัญหาใด ต้องการจะให้เป็นเช่นใด ฯลฯ ครับ

[foxthai]

จาก code ที่นำไปใช้ เมื่อจะ copy ข้อมูลไปที่ sheet 1 ต้องพิมพ์ 2 ที่ inputbox .
สิ่งที่ต้องการ เมื่อจะ copy ข้อมูลไปที่ sheet 1 ให้พิมพ์เลข 1 ครับ

[snasui]

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

Code: Select all

Dim xsheet As String

[foxthai]

ได้แล้วครับ ขอบคุณครับมากครับอาจารย์