حذف سطر عند وجود قيمة سالبة في العمود

[rammez]

السلام عليكم ورحمة الله وبركاته 

اريد ان احذف السطر عند وجود قيمة سالبة في عمود... ارجو المساعدة

 

[أ / محمد صالح]

على افتراض أن العمود الذي به القيم السالبة هو A

يمكنك استعمال هذا الكود

For n = 2 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(n, "A").Value < 0 Then
Rows(n).Delete
n = n - 1
End If
Next n
MsgBox "Done by mr-mas.com"

بالتوفيق

[lionheart]

Sub Test()
    With Range("H1", Range("H" & Rows.Count).End(xlUp))
        .AutoFilter 1, "<0"
        .Offset(1).EntireRow.Delete
        .AutoFilter
    End With
End Sub