Snasui Excel Forum

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

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

:lol: ดูเหมือนโปรแกรมจะไม่รู้จัก Object :lol: ลองปรับ Code เป็นตามด้านล่างครับ
[code]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
[/code]

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

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

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


Private Sub CommandButton1_Click()
Sheets("ดึงข้อมูล").Select
Range("SentDATA").Select
Selection.Copy
ActiveWorkbook.Worksheets("ปรับข้อมูล").Select
[color=#FF4000]Range("A2").Select Error ตรงนี้ครับ[/color]
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