rammez قام بنشر أغسطس 28, 2021 مشاركة قام بنشر أغسطس 28, 2021 السلام عليكم ورحمة الله وبركاته اريد ان احذف السطر عند وجود قيمة سالبة في عمود... ارجو المساعدة رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر أغسطس 28, 2021 أفضل إجابة مشاركة قام بنشر أغسطس 28, 2021 على افتراض أن العمود الذي به القيم السالبة هو 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" بالتوفيق رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر أغسطس 28, 2021 مشاركة قام بنشر أغسطس 28, 2021 Sub Test() With Range("H1", Range("H" & Rows.Count).End(xlUp)) .AutoFilter 1, "<0" .Offset(1).EntireRow.Delete .AutoFilter End With End Sub رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.