Koşula göre hücre değerini silme

[yakup70]

Ekteki doyada AF VE AH sütunlarında 0 ve altındaki hücre değerlerini makro ile silebilirmiyiz?

 

[mancubus]

Sub sil_0_neg()

Dim cll As Range
Dim LR As Long

LR = Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row

For Each cll In Range("AF4:AF" & LR)
    If Not cll.HasFormula Then
        If cll.Value <= 0 Then
            cll.ClearContents
        End If
    End If
Next

For Each cll In Range("AH4:AH" & LR)
    If Not cll.HasFormula Then
        If cll.Value <= 0 Then
            cll.ClearContents
        End If
    End If
Next

End Sub

 

[yakup70]

Elinize sağlık.Teşekkür ederim