Sửa giúp em code ẩn hiện dòng theo điều kiện

[anhtuyet_89]

em muốn là ẩn, hiện dòng. Hiện tại đang là ô có giá trị (0) cột Z giờ em muốn là ẩn dòng tất cả ô có giá trị (0) và ô không có giá trị (ô trắng) và gộp 2 nút ẩn hiện vào 1 nút ạ. em cảm ơn

 

[congnguyen88]

em muốn là ẩn, hiện dòng. Hiện tại đang là ô có giá trị (0) cột Z giờ em muốn là ẩn dòng tất cả ô có giá trị (0) và ô không có giá trị (ô trắng) và gộp 2 nút ẩn hiện vào 1 nút ạ. em cảm ơn

Code sub

Sub GIAU()
Dim irow As Long
Dim cls As Range
Application.ScreenUpdating = False
For Each cls In Range("z:z")
    If cls.Value = "0" Then
        cls.EntireRow.Hidden = True
     End If
Next
Application.ScreenUpdating = True
End Sub
Sub HIEN()
Range("a1:a65536").EntireRow.Hidden = False
End Sub

Sub HIENFORM()
UserForm1.Show
End Sub

Code form

Private Sub CommandButton1_Click()

GIAU

Unload Me

End Sub



Private Sub CommandButton2_Click()

HIEN

Unload Me

End Sub

 

[PacificPR]

Code sub

Sub GIAU()
Dim irow As Long
Dim cls As Range
Application.ScreenUpdating = False
For Each cls In Range("z:z")
    If cls.Value = "0" Then
        cls.EntireRow.Hidden = True
     End If
Next
Application.ScreenUpdating = True
End Sub
Sub HIEN()
Range("a1:a65536").EntireRow.Hidden = False
End Sub

Sub HIENFORM()
UserForm1.Show
End Sub

Code form

Private Sub CommandButton1_Click()

GIAU

Unload Me

End Sub



Private Sub CommandButton2_Click()

HIEN

Unload Me

End Sub

Của nhà họ có 172 dòng à. Sao chơi nguyên cả cột vậy. Bài bên kia có cái UNION sao không lôi ra mà dùng

 

[Ba Tê]

em muốn là ẩn, hiện dòng. Hiện tại đang là ô có giá trị (0) cột Z giờ em muốn là ẩn dòng tất cả ô có giá trị (0) và ô không có giá trị (ô trắng) và gộp 2 nút ẩn hiện vào 1 nút ạ. em cảm ơn

2 trong 1 đây.

 

[anhtuyet_89]

Em xin cảm ơn tất cả các anh chị trong diễn đàn đã giúp em ạ. Cảm ơn bác Ba Tê quá đúng ý em ạ. Xin cảm ơn và trân trọng