Tự động ẩn dòng không có dữ liệu

[let'go]

Chào các bạn !
Tôi có 1 file excel phiếu xuất kho (file đính kèm dưới), tôi muốn khi tôi chọn một phiếu xuất kho bất kỳ ở ô J1 thì sẽ tự động ẩn đi những dòng trống không có dữ liệu ở trong bảng phiếu xuất kho? bạn nào chỉ tôi với. tôi xin chân thành cảm ơn !

 

[SA_DQ]

Gởi đến bạn macro sự kiện này:

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim Rws As Long:      Dim Cls As Range 

 If Not Intersect(Target, [I2]) Is Nothing Then
    Rows("6:15").Hidden = False
    For Each Cls In [B6:B16]
         If Cls.Value = "" Then
            Rows(Cls.Row + 1 & ":15").Hidden = True
            Exit Sub
        End If
    Next Cls
 End If
End Sub

 

[HUONGHCKT]

Chào các bạn !
Tôi có 1 file excel phiếu xuất kho (file đính kèm dưới), tôi muốn khi tôi chọn một phiếu xuất kho bất kỳ ở ô J1 thì sẽ tự động ẩn đi những dòng trống không có dữ liệu ở trong bảng phiếu xuất kho? bạn nào chỉ tôi với. tôi xin chân thành cảm ơn !

Trong khi chờ các giải pháp khác, hãy thử xem file

 

[ducminh.halan]

Mình dùng addin My Excel có sẵn tính năng này.