ขอสูตร VBA Sorting หน่อยครับ

[prawitj]

อยากได้สูตร VBA ในการ Sorting Sales ที่ลาออกไปแล้วให้มา กองรวมกันอยู่ท้ายสุด
โดยในขั้นต้นผมจะ Sorting ตาม สถานะ Sales โดยให้ Sales ที่คงอยู่อยู่ข้างบน ตามด้วย Sorting ตามชื่อ ตามด้วยนามสกุล

โดยผมจะให้คนที่รับผิดชอบมา Update Sales list ใครลาออกก้ไป เปลี่ยนสถานะให้เป็นลาออก หรือหากเพิ่ม Sales เข้าใหม่พอเพิ่มเสร็จให้จัดเรียงตามเงื่อนไขที่กล่าวมา โดยมีปุ่ม Sorting ให้กด แต่มไม่ค่อยรู้ Code VBA อาจารย์ช่วยทีครับ

[snasui]

หากต้องการใช้ Code ให้เขียนมาเองก่อนครับ ติดตรงไหนก็มาถามกัน

กรณีนี้ลองบันทึก Macro ดูก็ได้ครับ หากยังไม่ได้ตามต้องการค่อยส่ง Code มาในฟอรัมเพื่อช่วยกันดูต่อครับ

[prawitj]

นี่ครับผมลองเขียนตามหนังสือแต่มัน ฟ้อง Debug ครับ

[snasui]

ผมบันทึก Macro และปรับ Code มาให้เป็นตัวอย่างตามด้านล่างครับ

Code: Select all

Sub SortData()
Dim r As Range
With Sheets("Sales")
    Set r = .Range("A1", .Range("K" & Rows.Count).End(xlUp))
End With
    r.Sort Key1:=Range("K2"), Order1:=xlAscending, Key2:=Range _
        ("C2"), Order2:=xlAscending, Key3:=Range("D2"), Order3:=xlAscending, _
        Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
        xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
        DataOption3:=xlSortNormal
End Sub

[prawitj]

ได้แล้วครับ ขอบคุณคร๊าบบบบบบบบบบบบบบ