اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

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

رابط هذا التعليق
شارك

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

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

أبو أنس

تصفية العملاء.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

رابط هذا التعليق
شارك

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

تم تعديل بواسطه محمد رسلان
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information