ช่วยดู Code VBA ชุดนี้หน่อยครับ เกี่ยวกับการ copy แล้วไปวาง

[akung]

มันไมไ่ด้ซับซ้อนอะไรเลยครับ แต่ทำไมมัน Error ตรง Range("A2").Select รบกวนหน่อยครับ


Private Sub CommandButton1_Click()
Sheets("ดึงข้อมูล").Select
Range("SentDATA").Select
Selection.Copy
ActiveWorkbook.Worksheets("ปรับข้อมูล").Select
Range("A2").Select Error ตรงนี้ครับ
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Rows("3:3").Select
Application.CutCopyMode = False
Selection.Copy
'Rows("4:18").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
'Range("D8").Select
End Sub

[snasui]

ลองแนบไฟล์ตัวอย่างมาด้วยครับ จะได้ทดสอบได้ครับ

[akung]

แนบไฟล์มาแล้วครับ รบกวนด้วยครับ

[snasui]

ดูเหมือนโปรแกรมจะไม่รู้จัก Object ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Private Sub CommandButton1_Click()
    Sheets("ดึงข้อมูล").Select
    Range("SentDATA").Select
    Selection.Copy
    Worksheets("ปรับข้อมูล").Select
    'Sheets("ปรับข้อมูล").Select
    Set target = Sheets("ปรับข้อมูล").Range("A2")
    target.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    'Rows("3:3").Select
    Application.CutCopyMode = False
    Selection.Copy
    'Rows("4:18").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    'Range("D8").Select
End Sub

[akung]

ขอบคุณมากครับ