Negatif değerlerin olduğu satırları silme makrosu

[hopeful]

Merhaba,
A:V kolonları arasında satır sayısı dinamik olarak değişen veri listesi bulunuyor.
"U" kolonunda negatif bir değer varsa, "U" kolonundaki tüm negatif değerleri içeren ilgili satırların komple silinmesine yönelik makroyu yazar mısınız

iyi çalışmalar,

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub sil()
For i = Cells(Rows.Count, "U").End(3).Row To 1 Step -1
    If Cells(i, "U") < 0 Then Rows(i).Delete
Next
End Sub

 

[hopeful]

Aşağıdaki makroyu deneyiniz:

Sub sil()
For i = Cells(Rows.Count, "U").End(3).Row To 1 Step -1
    If Cells(i, "U") < 0 Then Rows(i).Delete
Next
End Sub

teşekkürler