Snasui Excel Forum

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