Làm sao để tự động lọc khi có sự thay đổi số liệu????

[minhuct]

Mọi người cho mình hỏi làm cách nào để tự động lọc khi có sự thay đổi số liệu vậy?
Mình đưa 1 file làm ví dụ để mọi người dễ hình dung nhé

 

[kilomet]

Dùng Advance filter đi bạn, Hoặc muốn tự động như bạn nói thì chắc phải viết code rồi.

 

[minhuct]

Dùng Advance khi thay đổi sl vẫn ko đc bạn ạ..Lại phải làm lại 1 lần nữa

 

[minhuct]

Tình hình là thử hết các cách rồi các bác ạ ...Có cao thủ nào giúp E với

 

[Ba Tê]

Mọi người cho mình hỏi làm cách nào để tự động lọc khi có sự thay đổi số liệu vậy?
Mình đưa 1 file làm ví dụ để mọi người dễ hình dung nhé

Auto Filter cột Giới tính, mỗi lần muốn cập nhật chỉ bấm chọn 2 lần, lần 1 "All", lần 2 "Nữ" mà cũng cho là bất tiện?
Tặng bạn code cho sheet1 nè, từ sheet1 chuyển sang sheet2 là lọc. Nhớ Enable Macros.

Private Sub Worksheet_Deactivate()
Dim Rng(), Arr(), I As Long, J As Long, K As Long
    Rng = Sheet1.[A4:A65000].Resize(, 4).Value
ReDim Arr(1 To UBound(Rng, 1), 1 To 4)
        For I = 1 To UBound(Rng, 1)
            If Rng(I, 4) <> "" Then
                If Rng(I, 4) <> "Nam" Then
                    K = K + 1
                    For J = 1 To 4
                        Arr(K, J) = Rng(I, J)
                    Next J
                End If
            End If
        Next I
    Sheet2.[A6:A65000].ClearContents
    Sheet2.[A6].Resize(K, 4).Value = Arr
End Sub

 

[minhuct]

Vì E tạo cho nó 150 mảng dữ liệu khác nhau nên phải làm vậy Bác ạ ... Đến khi thay đổi mình chỉ việc in ra thôi
Code của Bác E vẫn chưa dùng được. Nó chỉ ẩn số ở cột TT thôi

 

[Ba Tê]

Vì E tạo cho nó 150 mảng dữ liệu khác nhau nên phải làm vậy Bác ạ ... Đến khi thay đổi mình chỉ việc in ra thôi
Code của Bác E vẫn chưa dùng được. Nó chỉ ẩn số ở cột TT thôi

150 mảng dữ liệu khác nhau là sao? Sao bạn không đưa dữ liệu thật khi nhờ giúp? Bạn làm không được, kết quả không như ý sao không đưa file đó lên để người khác xem nó lỗi ở đâu?