Ẩn các dòng rỗng bằng Code (1 người xem)

[truckhoa2006]

Em có 1 file làm báo cáo sản phầm hoàn thành. Em cần ẩn các dòng có giá trị rỗng, như file kèm theo.
Khi em nhấn vào ô J2 tự động các dòng có dữ liệu rỗng sẽ ẩn đi. bắt đầu từ dòng số thứ tự 4 đến 21.

Mong các anh chị giúp đỡ cho em.
Em xin chân thành cám ơn

 

[phulien1902]

Em có 1 file làm báo cáo sản phầm hoàn thành. Em cần ẩn các dòng có giá trị rỗng, như file kèm theo.
Khi em nhấn vào ô J2 tự động các dòng có dữ liệu rỗng sẽ ẩn đi. bắt đầu từ dòng số thứ tự 4 đến 21.

Mong các anh chị giúp đỡ cho em.
Em xin chân thành cám ơn

Bạn tham khảo

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$J$2" Then
        If Range("J2") <> Empty Then Call ABC
        If Range("J2") = Empty Then Call xyz
    End If
End Sub

Sub ABC()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = 25 To 6 Step -1
        If Len(Range("B" & i)) = 0 Then
            Rows(i).EntireRow.Hidden = True
        End If
    Next i
    Application.ScreenUpdating = True
End Sub
Sub xyz()
    Rows("4:27").EntireRow.Hidden = False
End Sub

 

[quanluu]

Em có 1 file làm báo cáo sản phầm hoàn thành. Em cần ẩn các dòng có giá trị rỗng, như file kèm theo.
Khi em nhấn vào ô J2 tự động các dòng có dữ liệu rỗng sẽ ẩn đi. bắt đầu từ dòng số thứ tự 4 đến 21.

Mong các anh chị giúp đỡ cho em.
Em xin chân thành cám ơn

Bạn dùng autofilter là đc mà.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$J$2" Then Range("$A$3:$H$25").AutoFilter Field:=3, Criteria1:="<>"
End Sub

 

[truckhoa2006]

Cám ơn anh đã giúp em, đã đúng ý em 1/2 rồi. Mong anh xem lại giúp em 1 lần nữa khi nhấn vào J2 thì nó ẩn luôn cả dòng tổng cộng.
Hihi , ẩn luôn em in báo cáo ra mà không có dòng đó là chít em. Làm sao chỉ ẩn từ Số thứ tự 4 đến trên dòng tổng cộng.
Có lẽ em nói còn thiếu mong anh thông cảm .

 

[truckhoa2006]

Em biết dùng auto filter cũng được nhưng đểgiảm bớt thao tác nên em muốn gán cái auto filter cho thằng J2 để giảm đi thao tác thôi.
Em cám ơn anh đã quan tâm.
Đoạn code của anh em không biết copy vào đâu. Mong anh bỏ chút thời gian chỉ thêm ạ.

 

[truckhoa2006]

Bạn tham khảo

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$J$2" Then
        If Range("J2") <> Empty Then Call ABC
        If Range("J2") = Empty Then Call xyz
    End If
End Sub

Sub ABC()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = 25 To 6 Step -1
        If Len(Range("B" & i)) = 0 Then
            Rows(i).EntireRow.Hidden = True
        End If
    Next i
    Application.ScreenUpdating = True
End Sub
Sub xyz()
    Rows("4:27").EntireRow.Hidden = False
End Sub

Cám ơn anh đã giúp em, đã đúng ý em 1/2 rồi. Mong anh xem lại giúp em 1 lần nữa khi nhấn vào J2 thì nó ẩn luôn cả dòng tổng cộng.
Hihi , ẩn luôn em in báo cáo ra mà không có dòng đó là chít em. Làm sao chỉ ẩn từ Số thứ tự 4 đến trên dòng tổng cộng.
Có lẽ em nói còn thiếu mong anh thông cảm .

 

[quanluu]

Em biết dùng auto filter cũng được nhưng đểgiảm bớt thao tác nên em muốn gán cái auto filter cho thằng J2 để giảm đi thao tác thôi.
Em cám ơn anh đã quan tâm.
Đoạn code của anh em không biết copy vào đâu. Mong anh bỏ chút thời gian chỉ thêm ạ.

Chắc bạn ko rành VBA rùi, bạn Alt + F11 rùi click sheet1 rùi paste code. Để ẩn cả dòng tổng cộng thì thay số 3 = số 2

 

[Lê Duy Thương]

Cám ơn anh đã giúp em, đã đúng ý em 1/2 rồi. Mong anh xem lại giúp em 1 lần nữa khi nhấn vào J2 thì nó ẩn luôn cả dòng tổng cộng.
Hihi , ẩn luôn em in báo cáo ra mà không có dòng đó là chít em. Làm sao chỉ ẩn từ Số thứ tự 4 đến trên dòng tổng cộng.
Có lẽ em nói còn thiếu mong anh thông cảm .

thì sửa cái dòng này
If Len(Range("B" & i)) = 0 Then
thành
If Len(Range("c" & i)) = 0 Then

 

[truckhoa2006]

Chắc bạn ko rành VBA rùi, bạn Alt + F11 rùi click sheet1 rùi paste code. Để ẩn cả dòng tổng cộng thì thay số 3 = số 2

Dạ anh nói rất chính xác, em biết sơ sơ, học chưa đến nơi đến chốn. Vì ở Phan Thiết chẳng có nơi nào dạy VBA cho excel. Em rất cảm ơn anh .

 

[truckhoa2006]

thì sửa cái dòng này
If Len(Range("B" & i)) = 0 Then
thành
If Len(Range("c" & i)) = 0 Then

Dạ em cám ơn anh nhiều nhiều, để thử lại