Snasui Excel Forum

Posted: **Tue Oct 25, 2011 3:30 pm**

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

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

Posted: **Tue Oct 25, 2011 4:18 pm**

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

Code: Select all

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

Posted: **Tue Oct 25, 2011 11:17 pm**

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

Snasui Excel Forum

ถามครับ ผมจะต้องแก้ code vba อย่างไรครับ แนบ code มาให้อาจา

ถามครับ ผมจะต้องแก้ code vba อย่างไรครับ แนบ code มาให้อาจา

Re: ถามครับ ผมจะต้องแก้ code vba อย่างไรครับ แนบ code มาให้

Re: ถามครับ ผมจะต้องแก้ code vba อย่างไรครับ แนบ code มาให้