satır silme hakkında

[zamenya]

Sayın hocalırım Öncelikle İyi kaşamlar ,A1 hücresine belirlediğim tutar ile C7 den başlayan c stünündeki tutarları kontrol edip A1 hücresine yazdığım tutarın altındaki satırları makro ile nasıl sildire bilirim
Yardımlarınız için şimdiden teşekkürler

 

[Necdet]

Merhaba,

Sub SatirSil()
Dim i As Long
Application.ScreenUpdating = False
For i = 7 To [C65536].End(3).Row
    If Cells(i, "C") < [A1] Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub

 

[zamenya]

Sayın Necdet Bey yardımınız için çok teşekkürler