Sắp xếp dữ liệu có phụ thuộc vào điều kiện

[ducvietgdtc]

Hỏi: Tôi muốn sắp xếp dữ liệu trong danh sách nhưng phụ thuộc vào ô M7 (ô M7 đếm số dòng có dữ liệu, nếu thêm dòng thì cũng thay đổi)
Cao nhân nào sửa lại code dùm để thỏa mãn điều kiện trên.
vùng hiện tại là A11:K20 nhưng thêm dòng thì K lại thay đổi. xin cảm ơn

 

[Phuocam]

Hỏi: Tôi muốn sắp xếp dữ liệu trong danh sách nhưng phụ thuộc vào ô M7 (ô M7 đếm số dòng có dữ liệu, nếu thêm dòng thì cũng thay đổi)
Cao nhân nào sửa lại code dùm để thỏa mãn điều kiện trên.
vùng hiện tại là A11:K20 nhưng thêm dòng thì K lại thay đổi. xin cảm ơn

Trong code có sử dụng biến lastRow để tìm dòng cuối nên không cần ô M7.

Sub SapXepTheoTen()
Dim lastRow As Long
With Sheets("DANH_SACH")
    lastRow = .Range("B" & .Rows.Count).End(xlUp).Row' Giống kết quả của M7
    .Range("A11:K" & lastRow).Sort Key1:=.Range("D11"), Order1:=xlAscending, _
    Key2:=.Range("E11"), Order2:=xlAscending, Header:=xlNo
End With
End Sub

 

[Ba Tê]

Hỏi: Tôi muốn sắp xếp dữ liệu trong danh sách nhưng phụ thuộc vào ô M7 (ô M7 đếm số dòng có dữ liệu, nếu thêm dòng thì cũng thay đổi)
Cao nhân nào sửa lại code dùm để thỏa mãn điều kiện trên.
vùng hiện tại là A11:K20 nhưng thêm dòng thì K lại thay đổi. xin cảm ơn

Không phải "Cao nhân" thì không được giúp?

Public Sub GPE()
Dim R As Long
    R = Range("M7").Value
    Range("B11:K11").Resize(R).Sort _
    Key1:=Range("K11"), Order1:=xlAscending, _
    Key2:=Range("D11"), Order2:=xlAscending
End Sub

3 cột C, D, K sao không dùng VBA luôn?

 

[ducvietgdtc]

Trong code có sử dụng biến lastRow để tìm dòng cuối nên không cần ô M7.

Sub SapXepTheoTen ()
Dim lastRow As Long
Với Trang tính ("DANH_SACH")
    lastRow = .Range("B" & .Rows.Count).End(xlUp).Row' Giống kết quả của M7
    .Range ("A11: K" & lastRow) .Sort Key1: =. Range ("D11"), Order1: = xlAscending, _
    Key2: =. Range ("E11"), Order2: = xlAscending, Header: = xlNo
Kết thúc với
Kết thúc Sub

cảm ơn bạn đã giúp đỡ,

Bài đã được tự động gộp: 9/2/21

Không phải "Cao nhân" thì không được giúp?
[CODE = php] GPE phụ công khai ()
Dim R As Long
R = Phạm vi ("M7"). Giá trị
Phạm vi ("B11: K11"). Thay đổi kích thước (R). Sắp xếp _
Key1: = Range ("K11"), Order1: = xlAscending, _
Key2: = Range ("D11"), Order2: = xlAscending
Kết thúc Sub [/ CODE]
3 cột C, D, K sao không dùng VBA luôn?

cảm ơn bạn đã giúp đỡ, mình làm code nhưng mò mẫn nên chưa viết được code cột C, D, K bạn ạ. nếu có thể bạn viết giúp mình tham khảo, thanks!

 

[ducvietgdtc]

Câu 1 : mình ẩn dòng trống khi không có dữ liệu thì nó mất luôn, lỗi là do đâu bạn các bạn có thể giải thích dùm
Câu 2 : Mình muốn kẻ bảng cho danh sách và cách sheets khác nhưng bỏ trống đường giữa cột C và D (họ và tên) thì điều chình code như thế nào cho phù hợp
Học, học nữa, học mãi!