Lọc ẩn dòng trống tự động bằng Autofilter + VBA

[Duong gia]

Lọc ẩn dòng trống tự động bằng Autofilter + VBA với code : Selection.AutoFilter Field:=1, Criteria1:="1" là OK, còn khi muốn bung hết ra thì làm sao mong các anh chị giúp đỡ. (Xin mở file đính kèm)

 

[ninhtom1]

Cái này em muốn trong khoảng từ "$A$8:$I$28" cứ hàng nào có bất kì một ô trống thì sẽ ẩn hàng đó thì làm thế nào ạ. Em xin cảm ơn.

 

[dongducnhiem]

Cái này em muốn ...

Ở đây có một đống bài giải, bạn không nói rõ muốn ứng dụng bài nào thì ai biết " Cái này em muốn ..." để hướng dẫn cho bạn!

 

[ninhtom1]

À em hỏi đoạn này các bác ạ

Sub Cmd_Click()
DK = Cmd.Caption = "Loc"
With Range("$A$8:$A$28")
If DK Then .AutoFilter Field:=1, Criteria1:="<>" Else .AutoFilter
End With
Cmd.Caption = IIf(DK, "Khong Loc", "Loc")
End Sub ​

 

[chantinh2th]

Xin lỗi vì đào mộ Theart cũ
Anh Nghĩa cho em hỏi, nếu dùng AutoFilter như ở #11 của anh thì đối với Sheet mà có 2 hoặc nhiều hơn 2 bảng, thì khi lọc nó sẽ bị lỗi như trong hình.
Còn nếu dùng ẩn hàng như thầy NDU ở #6 thì không bị, tuy nhiên nó ẩn xong là ẩn luôn, như anh nói ở #11 ấy.
Vậy có cách nào hài hòa tụi nó k ạ

 

[Truongan1996]

mọi người cho e hỏi. hiện trạng e đang có 1 file. phần trên la số liệu. dòng 4000 dưới được chọn làm dòng tính tổng cho các số liệu ở trện. khi e filter 1 ngày bất kỳ để lấy số liệu. thì cái cái dòng trống từ dòng cuối cùng của số liệu đến dòng trên của dòng tính tổng no bị hide lại. và dòng tổng 4000 lại nằm xác phía dưới của các dòng số liệu bển trên...giúp e với