Nhờ giúp đỡ tạo VBA tự động ẩn các dòng bằng 0

[Đoàn Zự]

Nhờ Anh/Chị giúp đỡ dùm e.
E muốn tạo VBA tự động ẩn các dòng từ a1;a66 trong Sheet Bảng Chi Tiết khi các ô này bằng 0,
Các ô này thay đổi khi e thay đổi tham chiếu c3
Thanks A/chị

 

[huuthang_bd]

Nhờ Anh/Chị giúp đỡ dùm e.
E muốn tạo VBA tự động ẩn các dòng từ a1;a66 trong Sheet Bảng Chi Tiết khi các ô này bằng 0,
Các ô này thay đổi khi e thay đổi tham chiếu c3
Cảm ơn A/chị

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("C1")) Is Nothing Then
    Me.Range("$A$5:$U$68").AutoFilter Field:=1, Criteria1:="<>0"
End If
End Sub

 

[Đoàn Zự]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("C1")) Is Nothing Then
    Me.Range("$A$5:$U$68").AutoFilter Field:=1, Criteria1:="<>0"
End If
End Sub

Ok A, Cảm ơn a!