satır gizlemede yaşadığım sorun

[abcd_efe]

Arkadaşlar bir excel sayfasında satır gizlemek için kullandığım buton kodu aşağıdaki gibidir:
Sub Gizle_Boslar_P()
For Each t In Range("A6:A20").Cells
If t.Value = 1 Then
t.EntireRow.Hidden = True
End If
Next t
End Sub
Belirtilen aralıktaki hücreler boş olduğunda gizleme oluyor ancak hücrelerde #YOK hatası olduğunda gizlenmiyor. #YOK hatası varken gizlenmesini nasıl sağlayabilirim?

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Sub Gizle_Boslar_P()
For Each t In Range("A6:A20").Cells
    If IsError(t.Value) = True Then
        t.EntireRow.Hidden = True
    ElseIf t.Value = "" Then
        t.EntireRow.Hidden = True
    Else
        t.EntireRow.Hidden = False
    End If
Next t
End Sub

 

[abcd_efe]

Teşekkür ederim Hocam.