Soru Hücreye Girilen Tutarın Altındaki Satırları Silmek

[bulentkars]

Merhaba Arkadaşlar

Ekteki tabloda örnek olarak gösterdim.
A2:F sutunlarında verilerim var, "J1" hücresine 10 tl yazdığımda E sutununda 10 tl ve altındaki satırları silmek istiyorum. Yardımcı olabilirseniz sevinirim. şimdiden teşekkürler

 

[Ömer]

Merhaba,

Deneyiniz.

Sub test()
    
    Dim i As Long
    
    Application.ScreenUpdating = False
    
    If Application.Min([E:E]) > [J1] Then Exit Sub
        
    For i = Cells(Rows.Count, "E").End(xlUp).Row To 2 Step -1
        If Cells(i, "E") <= Range("J1") Then
            Cells(i, "A").Resize(1, 6).Delete Shift:=xlUp
        End If
    Next i
    
    Application.ScreenUpdating = True
    
End Sub

 

[bulentkars]

Ömer Bey,
Çok Çok teşekkür ederim. Emeğinize sağlık