حذف صفوف معينة

[nash60]

بسم الله الرحمن الرحيم

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

اخواني الافاضل :

لو سمحتم المطلوب كود لحذف صفوف بشرط ان تكون الخلية في العمود G صفر

مثلا : Sheets1 البيانات فيها من A2 الى R1000

اي خلية في العمود G = صقر حذف الصف كامل

وشكرا لكم

[عبدالله المجرب]

جرب هذ الكود

Sub Abu_Ahmed()

For i = 1 To 1000

If Cells(i, 7) = 0 Then Cells(i, 7).EntireRow.Delete

Next

End Sub

[nash60]

الاخ عبد الله المحترم :

اولا اشكرك على ردك

وثانيا جربت الكود ولكنه للاسف لم يعمل وانا اطمع من حضرتك ان تضع مثالا بسيطا لحذف صفوف معبنة ( شرطين ) من جدول بيانات

الشرط الاول ان بكون خلية في العمود ( اختر اي عمود ) = 0 والشرط الثاني ان يكون اي خلية في العمود ( ايضا اختر اي عمود ) خالية

وفى حال توفر الشرطين او احدهما يتم حذف الصف من الجدول

ولك جزيل الشكر والامتنان

[طارق محمود]

السلام عليكم

أخي العزيز

بعد تعديل طفيف علي كود أخونا الغالي أبوأحمد

جرب المرفق

حذف أسطر فارغة.rar

[nash60]

اشكركم جميعا وبارك الله فيكم