Sắp xếp dữ liệu sau khi tìm kiếm

[Phamanh1998]

Em chào anh/chị. Em hiện nay có một vấn đề mong được anh chị hỗ trợ ạ.
Trong file dữ liệu bên dưới em mong muốn săp xếp thông tin 1 trong 2 trường dữ liệu:
+/ Nếu lấy trường dữ liệu tên sản phẩm sắp xếp thì sẽ sắp xếp theo thứ tự vần A B C
+/ Nếu lấy trường dữ liệu số phiếu thì sẽ xắp xếp theo thứ tự số phiếu tăng dần
Em mong anh chị hỗ trợ em code VBA để giải quyết bài toán ạ vì hiện nay em dùng Filter thì tốn thời gian sắp xếp từng khách hàng và quan trọng hơn nữa là dùng filter thì đang báo lỗi ạ.
Em chân thành cảm ơn anh chị ạ.

 

[Maika8008]

Không biết thế này có đúng không? (Bạn đặt công thức lũy kế không tổng quát nên khi sắp xếp sẽ bị lỗi)

Sub SapXep_SP()
    With Sheet1
        .Range("A6:I" & .Range("A65536").End(xlUp).Row).Sort Key1:=.Range("B6"), Order1:=xlAscending, Header:=xlNo
    End With
End Sub

Sub SapXep_Phieu()
    With Sheet1
        .Range("A6:I" & .Range("A65536").End(xlUp).Row).Sort Key1:=.Range("C6"), Order1:=xlAscending, Header:=xlNo
    End With
End Sub

 

[Phamanh1998]

Không biết thế này có đúng không? (Bạn đặt công thức lũy kế không tổng quát nên khi sắp xếp sẽ bị lỗi)

Sub SapXep_SP()
    With Sheet1
        .Range("A6:I" & .Range("A65536").End(xlUp).Row).Sort Key1:=.Range("B6"), Order1:=xlAscending, Header:=xlNo
    End With
End Sub

Sub SapXep_Phieu()
    With Sheet1
        .Range("A6:I" & .Range("A65536").End(xlUp).Row).Sort Key1:=.Range("C6"), Order1:=xlAscending, Header:=xlNo
    End With
End Sub

Em cảm ơn chị ạ. Như chị nói ở trên thì chị có thể cho em xin ý kiến của mình về công thức tính lũy kế tổng quát được không ạ để em có thể cải thiện file của em. Em cảm ơn chị ạ

 

[Maika8008]

Em cảm ơn chị ạ. Như chị nói ở trên thì chị có thể cho em xin ý kiến của mình về công thức tính lũy kế tổng quát được không ạ để em có thể cải thiện file của em. Em cảm ơn chị ạ

Tại H6 =SUMIF($B$6:B6;B6;$G$6:G6). Copy xuống. Tuy nhiên bạn cần kiểm tra lại, so sánh kết quả công thức của bạn với công thức của tôi có lệch ở 1 số dòng. Có thể bạn nhầm khi gõ công thức 1 cách thủ công trong trường hợp SP bị cách 1 số dòng.

 

[Phamanh1998]

Tại H6 =SUMIF($B$6:B6;B6;$G$6:G6). Copy xuống. Tuy nhiên bạn cần kiểm tra lại, so sánh kết quả công thức của bạn với công thức của tôi có lệch ở 1 số dòng. Có thể bạn nhầm khi gõ công thức 1 cách thủ công trong trường hợp SP bị cách 1 số dòng.

Dạ, Em đã sửa lại công thức và nhập code chị chị và file đã chạy theo ý muốn của em. Em cảm ơn chị nhiều ạ

 

[Maika8008]

Dạ, Em đã sửa lại công thức và nhập code chị chị và file đã chạy theo ý muốn của em. Em cảm ơn chị nhiều ạ

Anh chứ hổng phải chị bạn à!

 

[Phamanh1998]

Anh chứ hổng phải chị bạn à!

Vâng anh, tại thấy tên Maika em cứ tưởng là chị ạ. Em cảm ơn anh nhiều ạ

 

[Hoàng Tuấn 868]

Đã sửa lại công thức và nhập code, file đã chạy theo ý muốn của em.

Khi sắp xếp theo phiếu thì tại cột A (cột Sản phẩm) bớt đi Bánh cu đơ "ô A8" và thay vào đó là Bánh quy. như vậy là hai ô Bánh quy "A6 và A8". Do đó việc tìm duy nhất tại cột A không còn tác dụng. (có thể mình nhầm).