كيفية حذف صفوف معينة من جدول بيانات بدلالة مبالغ محددة

[عبد الله السعيد]

السلام عليكم
لدي جدول به بيانات عملاء به الالاف الصفوف اريد بإختصار ان احذف كل الصفوف التي يكون فيها عمود الصافي 1 وعمود الصافي 2  يساوي 0.00 لأنها تعني لي ان العميل ليس لديه اي مديونية لدي

كيف يكون ذلك بالشرح مرفق مثال مبسط جدا لذلك

وكذلك لو اردت ان احدد مبالغ معينة كأن مثلا اريد ان احذف كل المبالغ التي تحت الصفر او فوق الصفر ؟؟

Test.rar

تم تعديل أبريل 4, 2016 بواسطه عبد الله السعيد

[ياسر خليل أبو البراء]

أخي الكريم عبد الله

يبدو أنك نسيت إرفاق الملف ...

تقبل تحياتي

[عبد الله السعيد]

اعتذر اخي الغالي  ، تم التعديل

[سليم حاصبيا]

جرب هذا الماكرو

Sub del_empty_rows()
Dim My_Rg_Del As Range
Dim lr, i As Integer
Dim my_sheet As Worksheet
Set my_sheet = Sheets("ورقة1")

lr = my_sheet.Cells(Rows.Count, 1).End(3).Row
 For i = 2 To lr
  If Cells(i, "p") = 0 And Cells(i, "q") = 0 Then
      If My_Rg_Del Is Nothing Then
        Set My_Rg_Del = Range("p" & i)
      Else
        Set My_Rg_Del = Union(Cells(i, "p"), My_Rg_Del)
      End If

     End If
  Next
   My_Rg_Del.EntireRow.Delete
End Sub

 

تم تعديل أبريل 4, 2016 بواسطه سليم حاصبيا

[عبد الله السعيد]

مشكور استاذنا الغالي على الماكرو الرائع  ،، ولكن اذا اردت اطبقه على ملف اكبر والأعمدة تختلف  عن عمود P وعمود Q

وهل هناك طريقه اخرى معادلات او من قوائم الإكسل

[سليم حاصبيا]

لا يوجد اي معادلة تقوم بحذف او اخفاء صفوف او اعمدة (والله أعلم)

فقط يدوياً او بواسطة الكود

يمكنك تعديل لكود الى اي عامود تريد فقط بتغيير الحرف P ,Q 

تم تعديل أبريل 4, 2016 بواسطه سليم حاصبيا

[عبد الله السعيد]

بارك الله فيك

طبقت الماكرو على عمودين  AC  و AD   ولكن ظهرت لي رسالة كما في المرفق


وهناك نقطة اريد تعديل عليها في الماكرو انه عندما تكون هناك في الصفوف لكلا العمودين خلايا فارغه يقوم الماكرو بحذفها ايضاً  وراجع الملف المرفق ،، انا اريد ان تترك كما هي فارغه

ولو فرضنا اخي الغالي لدي عدة صفحات وليس صفحة واحدة هل اضع الماكرو لكل صفحة على حدة

وماذا لو اردت ان احدد مبالغ معينة كأن مثلا اريد ان احذف كل المبالغ التي تحت الصفر او فوق الصفر ؟؟

 

تم تعديل أبريل 4, 2016 بواسطه عبد الله السعيد

[أبو حنــــين]

السلام عليكم

جرب هذه الخربشة ربما تفيدك

تحياتي

Test2.rar

[عبد الله السعيد]

لا يعمل معي اخي الغالي في الله  هو عمل رائع ولكن لا يكمل معي

وفي انتظار باق الإجوبة من باق المشرفين الأعزاء

 

[عبد الله السعيد]

في انتظار باق الإجوبة من باق المشرفين الأعزاء