[Hỏi]Mở các hàng ẩn tự động sau khi lọc? (1 người xem)

[khoa289]

Chào mọi người
Mình có 1 file lọc dữ liệu , đã lọc được dữ liệu nhưng khi xóa lọc tại ô B4 thì không mở các hàng ẩn đi được (Hàng thứ 9 đến hàng 949 bị ẩn)
Mình hỏi có cách nào để khi xóa lọc tại ô B4 thì tự động mở các hàng ẩn (Hàng thứ 9 đến hàng 949 bị ẩn).
Cám ơn.

 

[giaiphap]

Chào mọi người
Mình có 1 file lọc dữ liệu , đã lọc được dữ liệu nhưng khi xóa lọc tại ô B4 thì không mở các hàng ẩn đi được (Hàng thứ 9 đến hàng 949 bị ẩn)
Mình hỏi có cách nào để khi xóa lọc tại ô B4 thì tự động mở các hàng ẩn (Hàng thứ 9 đến hàng 949 bị ẩn).
Cám ơn.

Bạn sửa code lại thế này thử xem.

Private Sub TextBox1_Change()
Application.ScreenUpdating = False
If [C4] = "" Then
    ActiveSheet.Range("bang").AutoFilter Field:=3
Else
    ActiveSheet.Range("bang").AutoFilter Field:=3, _
    Criteria1:="*" & [C4] & "*", Operator:=xlFilterValues
End If
Application.ScreenUpdating = True
End Sub

 

[khoa289]

Cảm ơn giaiphap
Nhưng khi mình copy CODE thì bị lỗi lặp lại (Như file đính kèm).
Nhờ bạn sửa lại CODE giúp nhé.

 

[giaiphap]

Cảm ơn giaiphap
Nhưng khi mình copy CODE thì bị lỗi lặp lại (Như file đính kèm).
Nhờ bạn sửa lại CODE giúp nhé.

Ủa máy mình không hề bị lỗi.

 

[khoa289]

Cám ơn giaiphap nhiều