Trợ giúp Code VBA_Lọc theo điều kiện giữ nguyên tiêu đề của nhóm công việc

[quyenpv]

Em có Sheet dữ liệu được giao công việc qua các tháng, trưởng phòng em muốn lọc dữ liệu giao được nhìn và biết nhóm mảng công việc sau Filter

Dữ liệu ban đầu cho công việc các tháng

Dữ liệu lọc các công việc trong tháng 3 với cột B và các công việc quá hạn cột L

Khi Áp dụng Filter 2 cột B và cột L theo điều kiện trên sẽ ra được kết quả nhưng mất toàn bộ các dòng tiêu đề nhóm công việc, mong các anh hỗ trợ giúp làm sao lọc có thể giữa nguyên được tiêu đề A, B, C của các dong
Em cám ơn

 

[Maika8008]

Không có sự kiện Filter nên Excel không tự động thực hiện lọc theo yêu cầu. Bởi vậy, sau khi lọc xong, phải bấm vào 1 nút thì yêu cầu của bạn mới được thực hiện.

 

[CHAOQUAY]

Em có Sheet dữ liệu được giao công việc qua các tháng, trưởng phòng em muốn lọc dữ liệu giao được nhìn và biết nhóm mảng công việc sau Filter

Dữ liệu ban đầu cho công việc các tháng

Dữ liệu lọc các công việc trong tháng 3 với cột B và các công việc quá hạn cột L

Khi Áp dụng Filter 2 cột B và cột L theo điều kiện trên sẽ ra được kết quả nhưng mất toàn bộ các dòng tiêu đề nhóm công việc, mong các anh hỗ trợ giúp làm sao lọc có thể giữa nguyên được tiêu đề A, B, C của các dong
Em cám ơn

File này chèn thêm cột phụ được chứ bạn

 

[quyenpv]

File này chèn thêm cột phụ được chứ bạn

Dạ được anh anh ạ, anh giúp em với

 

[Nhattanktnn]

Không có sự kiện Filter nên Excel không tự động thực hiện lọc theo yêu cầu. Bởi vậy, sau khi lọc xong, phải bấm vào 1 nút thì yêu cầu của bạn mới được thực hiện.

Sự kiện cho filter thì vẫn chế cháo được bác, nhưng add thêm cho filter thì em chưa làm mà lười mò quá, bác làm khúc đó đi rồi em làm sự kiện filter

 

[Maika8008]

Dạ được anh anh ạ, anh giúp em với

Xem file. Lọc xong, bấm nút Lọc để hiện các dòng tiêu đề

Bài đã được tự động gộp: 10/5/22

Sự kiện cho filter thì vẫn chế cháo được bác, nhưng add thêm cho filter thì em chưa làm mà lười mò quá, bác làm khúc đó đi rồi em làm sự kiện filter

Thế à. Bạn chế giúp theo file này để tôi học với.

 

[Nhattanktnn]

Thế à. Bạn chế giúp theo file này để tôi học với.

Gọi đúng là hàng "chế" thật đó nha bác (Em chỉ chế cái sự kiện thôi, còn lại bác làm gì làm)

 

[quyenpv]

Xem file. Lọc xong, bấm nút Lọc để hiện các dòng tiêu đề

Bài đã được tự động gộp: 10/5/22

Thế à. Bạn chế giúp theo file này để tôi học với.

Dạ em lọc xong, bấm nút lọc nhưng không hiện tiêu đề ạ

 

[bebo021999]

Tại ô L3 bạn nhập điều kiện lọc "Đã quá hạn" vào. Có thể tạo Dropdown tại ô này để thay đổi điều kiện lọc.
Nhấn nút FILTER hay nút REMOVE FILTER nhé

Option Explicit
Sub Loc()
Dim lr&, KQ As String
ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = False
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    KQ = Range("L3").Text ' Dung o L3 de luu dieu kien loc. Vi tieng Viet co dau khong dua vao trong code duoc.
    Range("A4:O" & lr).AutoFilter 12, KQ, xlOr, ""
Application.ScreenUpdating = true
End Sub
'---------------
Sub BoLoc()
ActiveSheet.AutoFilterMode = False
End Sub

 

[hiv174]

Dạ em lọc xong, bấm nút lọc nhưng không hiện tiêu đề ạ
View attachment 275696

tôi thấy tiêu đề được gán chung dòng với cột mô tả có dữ liệu, nếu dùng cột mô tả để lọc thì có mâu thuẫn không ?

 

[quyenpv]

Tại ô L3 bạn nhập điều kiện lọc "Đã quá hạn" vào. Có thể tạo Dropdown tại ô này để thay đổi điều kiện lọc.
Nhấn nút FILTER hay nút REMOVE FILTER nhé

Option Explicit
Sub Loc()
Dim lr&, KQ As String
ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = False
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    KQ = Range("L3").Text ' Dung o L3 de luu dieu kien loc. Vi tieng Viet co dau khong dua vao trong code duoc.
    Range("A4:O" & lr).AutoFilter 12, KQ, xlOr, ""
Application.ScreenUpdating = true
End Sub
'---------------
Sub BoLoc()
ActiveSheet.AutoFilterMode = False
End Sub

Anh bổ sung điều kiện lọc cột B nữa anh

 

[befaint]

ActiveSheet.AutoFilterMode = False
Không tạo và bỏ lọc nhiều lần, như thế rất mệt nhọc.
Mà người ta dùng ShowAllData.

Lọc cột nào thì chỉ tạo 'Filter' ở cột đó thôi, ôm hết các cột nặng lắm.

 

[quyenpv]

ActiveSheet.AutoFilterMode = False
Không tạo và bỏ lọc nhiều lần, như thế rất mệt nhọc.
Mà người ta dùng ShowAllData.

Lọc cột nào thì chỉ tạo 'Filter' ở cột đó thôi, ôm hết các cột nặng lắm.

Dạ anh, nếu lọc theo điều kiện thời gian và kết quả thì Record Marco em làm được ạ. Nhưng yêu cầu lấy tiêu đề từng mục A, B, C thì khó quá ạ

 

[BuiQuangThuan]

Khi Áp dụng Filter 2 cột B và cột L theo điều kiện trên sẽ ra được kết quả nhưng mất toàn bộ các dòng tiêu đề nhóm công việc, mong các anh hỗ trợ giúp làm sao lọ

Thử dùng cột phụ. Lọc theo cột phụ nữa coi

 

[bebo021999]

Bổ sung thêm điều kiện tháng.
Dùng cột phụ ở cuối bảng.

 

[Maika8008]

Dạ em lọc xong, bấm nút lọc nhưng không hiện tiêu đề ạ
View attachment 275696

Bây giờ kết hợp sự kiện chế ở bài #7, thử xem file có đáp ứng được yêu cầu không? (Lưu ý: không xóa công thức ở B3)

 

[quyenpv]

Bây giờ kết hợp sự kiện chế ở bài #7, thử xem file có đáp ứng được yêu cầu không? (Lưu ý: không xóa công thức ở B3)

Trường hợp em muốn lọc ngày tháng tại cột B bị mất luôn tiêu đề anh ạ

 

[goodlife1605]

Trường hợp em muốn lọc ngày tháng tại cột B bị mất luôn tiêu đề anh ạ

Chào bạn,

Bạn xem file này đã đúng ý bạn chưa? Mình dùng cột phụ.

 

[quyenpv]

Dạ vẫn không được ạ

 

[Maika8008]

Trường hợp em muốn lọc ngày tháng tại cột B bị mất luôn tiêu đề anh ạ

Đang dùng cột B làm điều kiện chạy sự kiện filter và đồng thời cột B lọc ngày tháng nên rối rắm lung tung