Fakat içinde formül olanda var, formül olmayanda var. Formül olan hücreler sonucu 0 (sıfır) yada "" verince satır gizlenmiyor. Dolu olarak algılıyor.
Ayrıca hücrelerde formül olduğu için hücre değeri değişince yani <>"" or >0 otomatik satırı göstermesi gerekiyor.
Bu duruma göre nasıl bir düzenleme yapmalıyız.
- Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160913
Dim xRg As Range
Application.ScreenUpdating = False
For Each xRg In Range("A1:A20")
If xRg.Value = "" Then
xRg.EntireRow.Hidden = True
Else
xRg.EntireRow.Hidden = False
End If
Next xRg
Application.ScreenUpdating = True
End Sub