Ẩn dòng khi không có giá trị.

[hmnx]

Khi mình dùng Code VBA ẩn dòng thì không có giá trị thì mới ẩn còn khi có công thức là nó không chịu ẩn dòng đó đi
ACE nào biết sửa cái code dưới khi công thức không cho kết quả thì cũng ẩn dòng đi giúp mình với.
Tks ACE

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160913
    Dim xRg As Range
    Application.ScreenUpdating = False
        For Each xRg In Range("b16:b32")
            If xRg.Value = "" Then
                xRg.EntireRow.Hidden = True
        
            Else
                xRg.EntireRow.Hidden = False
            End If
        Next xRg
    Application.ScreenUpdating = True
End Sub

 

[ThangCuAnh]

Bạn up file lên đi bạn, người ta mới có cái để test, fix bug chứ

 

[kh0jy3n]

Khi mình dùng Code VBA ẩn dòng thì không có giá trị thì mới ẩn còn khi có công thức là nó không chịu ẩn dòng đó đi
ACE nào biết sửa cái code dưới khi công thức không cho kết quả thì cũng ẩn dòng đi giúp mình với.
Tks ACE

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160913
[CODE]
Sub HideColumns()
    Dim Rng As Range, Cll As Range, i As Long
    For Each Cll In Sheet1.Range("B3:ACP3")
        If Cll.Value = 0 Or Len(Cll.Value) = 0 Then
            i = i + 1
            If i = 1 Then
                Set Rng = Cll
            Else
                Set Rng = Union(Rng, Cll)
            End If
        End If
    Next Cll
Rng.EntireColumn.Hidden = True
End Sub

Sub ShowColumns()
    Sheet1.Range("B3:ACP3").EntireColumn.Hidden = False
End Sub

Dim xRg As Range
Application.ScreenUpdating = False
For Each xRg In Range("b16:b32")
If xRg.Value = "" Then
xRg.EntireRow.Hidden = True

Else
xRg.EntireRow.Hidden = False
End If
Next xRg
Application.ScreenUpdating = True
End Sub
[/CODE]

 

[hmnx]

Tks ae mình đã làm được rồi.

 

[tvt232]

Tks ae mình đã làm được rồi.

Làm đc cũng up code lên cho mọi ng tham khảo chứ nhỉ...

 

[thanhphuongvip]

Up code lên cho mọi người tham khảo đi bạn ơi!

 

[SA_DQ]

Up code lên cho mọi người tham khảo đi bạn ơi!

Chắc không có gởi lên DĐ đâu, người ý biến rồi!

Nếu muốn biết bạn đó làm thế nào, thì cần biết trong vùng đang xét đó có công thức gì?