(تمت الاجابة) مسح العملاء التي رصيدها صفر

[محمد رسلان]

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

اعزائى اعضاء المنتدى الاحباء

مطلوب عمل ماكرو في ورقة الترحيل وذلك لكي نمسح العملاء في ورقة تحليل العملاء في العمود AC الذين رصيدهم صفر في العمود AD مع ملاحظة وجود ارصدة بالسالب ( دائنة ) فلا نمسحها ، بعد اجراء المسح يتم ترتيب العملاء تحت بعضها وشكرا

تصفية العملاء.rar

[أبو أنس حاجب]

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

أخي الفاضل جرب المرفق على حسب استطاعتي عله المطلوب

أبو أنس

تصفية العملاء.rar

[محمد رسلان]

تسلم ايدك هو نفس المطلوب ولكن معذرة اريد منك ان تضع فقط ذر الماكرو في صفحة الترحيل

[طارق محمود]

السلام عليكم

أخي العزيز

بعد إذن أخي الحبيب / أبو أنس

ولتعدد الحلول

قللت شوية من حجم الملف الغير طبيعي

وأضفت الزر

تفضل المرفق

تصفية العملاء2.rar

[محمد رسلان]

معذرة استاذ طارق ولكن الكود لا يعمل

[طارق محمود]

السلام عليكم

معذرة أخي

فالكود به جزئية لايتم التعرف عليها بالأكسيل 2003

استبدله بهذا الكود

Sub y()

'TAREQ

Sheets("تحليل العملاء").Activate

    [AC8:AD58].Select

    [AD8].Activate

    Selection.Sort Key1:=[AD8], Order1:=xlDescending


    For Each ce In [AD9:AD58]

        If ce.Value = 0 Then ce.Offset(0, -1).ClearContents

    Next ce

Sheets("ترحيل").Activate


End Sub

[طارق محمود]

عفوا

Sub y()

'TAREQ

Sheets("تحليل العملاء").Activate

    For Each ce In [AD9:AD58]

        If ce.Value = 0 Then ce.Offset(0, -1).ClearContents

    Next ce


    [AC8:AD58].Select

    Selection.Sort Key1:=[AC8]

    [AC8].Select


Sheets("ترحيل").Activate


End Sub

[الشيباني1]

الاخ محمد رسلان تحية طيبه ارجو المساعده بطريقة عمل البحث الظاهر في ورقة ( تحليل العملاء )( الخليه A2 ) كونه يخدمني في برنامجي الذي اعمل عليه مع تقديري

[الشيباني1]

اخي العزيز وجدتها مع الامتنان

[محمد رسلان]

شكرا جزيلا استاذ طارق على هذا المجهود وتم التعديل واصبح الكود يعمل تمام

تم تعديل مايو 22, 2012 بواسطه محمد رسلان