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
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
Mã:
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