Snasui Excel Forum

:mrgreen: ขอบคุณครับอาจารย์
:mrgreen:

Sub sheet2_2_Click()
    Dim IntRows As Long
    Dim n As Range
    IntRows = Rows.Count
    With Sheets("Sheet1")
        Set n = .Range("A" & IntRows).End(xlUp).Offset(1, 0)
    End With
    With Sheets("Sheet2-2")
        .Range("A4").Copy: n.PasteSpecial xlPasteValues
        .Range("A8").Copy: n.Offset(0, 1).PasteSpecial xlPasteValues
        .Range("B8").Copy: n.Offset(0, 2).PasteSpecial xlPasteValues
        .Range("A12").Copy: n.Offset(0, 3).PasteSpecial xlPasteValues
    End With
    Application.CutCopyMode = False
End Sub

:D สามารถเขียน Code เป็นตามด้านล่างครับ

[code]Sub sheet2_2_Click()
Dim IntRows As Long
Dim n As Range
IntRows = Rows.Count
With Sheets("Sheet1")
Set n = .Range("A" & IntRows).End(xlUp).Offset(1, 0)
End With
With Sheets("Sheet2-2")
.Range("A4").Copy: n.PasteSpecial xlPasteValues
.Range("A8").Copy: n.Offset(0, 1).PasteSpecial xlPasteValues
.Range("B8").Copy: n.Offset(0, 2).PasteSpecial xlPasteValues
.Range("A12").Copy: n.Offset(0, 3).PasteSpecial xlPasteValues
End With
Application.CutCopyMode = False
End Sub[/code]

ไฟล์ที่ผมแนบมา เดิม sheet1---->เอาไว้เก็บข้อมูลลูกค้า
sheet2-1---> คีย์ข้อมูลลงหน้านี้แล้วกดปุ่มมาโคร จะส่งข้อมูลไปเก็บที่ sheet1ครับ
sheet3-----> เอาไว้ใส่รหัสลูกค้า แล้วตรวจดูว่ามีข้อมูลอะไรบ้าง หรือรหัสลูกค้าใดเปลี่่ยนสัญญาทำให้มีรหัสลูกค้าเดิมแต่มีชื่อลูกค้า2คน


[color=#FF0000]คำถาม[/color]ในsheet2_2--->ถ้าผมจะเรียงรูปแบบนี้
ผมต้องแก้code ในปุ่มมาโคร(จากตัวอย่างsheet2_1)อย่างไรดีครับ ผมกำลังงงๆว่าจะแก้ยังไงให้ รับข้อมุล A8(ชื่อ)B8(สกุล) A12(ยี่ห้อรถ) ส่งไปเรียงให้เหมือนเดิมที่sheet1น่ะครับ :mrgreen: