belli değer göre satırlarlme

[stres]

Arkadaşlar ekteki dosyamda N sutununda bulunan sarı boyalı rakamların altında sıfır gördüğünde o satırı ve tüm sıfır olan satırları tamamen nasıl silerim.Eğer altında sıfırdan başka bir değer varsa hem o değer hemde altındaki değerler olan satırlar silinmesin. Ve makro ile Münkünmü teşekkürler

 

[hamitcan]

Aşağıdaki kodu dener misiniz ?

Sub sil()
For i = [n65536].End(3).Row To 1 Step -1
    If WorksheetFunction.IsNumber(Cells(i, "n")) Then
        If Cells(i - 1, "n") <> 0 And Cells(i, "n") <> 0 Then
        Else
            Rows(i).Delete
        End If
    End If
    Next
End Sub

 

[stres]

Aşağıdaki kodu dener misiniz ?

Sub sil()
For i = [n65536].End(3).Row To 1 Step -1
    If WorksheetFunction.IsNumber(Cells(i, "n")) Then
        If Cells(i - 1, "n") <> 0 And Cells(i, "n") <> 0 Then
        Else
            Rows(i).Delete
        End If
    End If
    Next
End Sub

Hocam biraz geç bakabildim kusura bakma eline emeğine sağlık teşekkür ederim