Giúp giùm mình giải quyết cái vấn đề về Advance Filter (VBA code)

[Bảy Dzõ]

Mong các anh chị hướng dẫn giùm mình, mình có đọc được topic nói về vấn đề Advance Filter, mình thì tự học về VBA và đang trong giai đoạn mới tập bò nên nghĩ nát cái óc vẫn không khắc phục được. Mình có upload file mình mong nhờ các anh chị chỉ giùm như sau:
1. Mình muốn nhập một con số vào ô màu vàng (EmpID) thì excel giúp mình lọc ra những dữ liệu về nó.
2. Sau khi mình xoá dữ liệu ở ô màu vàng đi Excel sẽ trả bảng tính lại trạng thái ban đầu. Hôm nay không ngủ thức trắng đêm để mày mò mà không tìm ra. Biết rằng các anh chị đã từng nói là không có gì tự đến mà phải tự học và tìm hiểu nhưng thật sự là không biết sai ở đâu.
3. Mình sử dụng Excel 2007, mà sao máy mình ko chạy được macro nếu file ở dạng .xlsx (chỉ chạy được nếu chuyển thành .xlsm mà thôi.

(Vì diễn đàn không cho phép gửi file .xlsm nên mình phải zip lại, mong thông cảm).

Rất cảm ơn các anh chị.

 

[SA_DQ]

Không biết file nào luôn là sao các bạn?

Hay chủ topic chịu khó đưa lên 1 file E2003 giùm đi, xin cảm ơn trước!

 

[chibi]

Không có Excel > 2003 nên không làm cụ thể vào file của bạn được.
Bạn có thể dùng sự kiện Change cho sheet Master như sau

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$F$2" Then
        If Target.Value = "" Then
            [C3:C200].AutoFilter
        Else
            [C3:C200].AutoFilter field:=1, Criteria1:=Target.Value, VisibleDropDown:=False
        End If
    End If
End Sub

 

[Bảy Dzõ]

Thật cảm ơn bạn chibi và HYen17, mình upload file 2003 lên nhờ hai bạn giúp đỡ giùm... ngồi mò từ 8 giờ tối đến giờ chưa ngủ mà vẫn chưa mò ra được hic hic....

 

[SA_DQ]

Mình dùng AutoFilter

Muốn về trạng thái đầu thì chọn dòng trống trong [f2] & ~ mong bạn đạt í nguyện.

 

[Bảy Dzõ]

Cảm ơn bạn HYén7 rất nhiều nha... mò suốt một đêm mà chẳng làm được... bây giờ đã đạt được í nguyện....

 

[Bảy Dzõ]

Bạn HYen17, sẵn tiện cho mình hỏi thêm rằng trong một sheet như file mình gửi lên mình có thể set 02 vùng autofilter khác nhau được không vậy bạn? Ví dụ như: F2 là mình muốn AutoFilter cho Column C (EmpID) bây giờ mình muốn add thêm một cái như thế nhưng cho Colum F. Nếu được như thế thì mình có thể filter column này hoặc column kia. Làm phiền bạn nhiều quá nhưng thật là mình lúa và kiến thức về VBA thì mới chập chững mà thôi....