محمد رسلان قام بنشر مايو 21, 2012 مشاركة قام بنشر مايو 21, 2012 السلام عليكم ورحمة الله وبركاته اعزائى اعضاء المنتدى الاحباء مطلوب عمل ماكرو في ورقة الترحيل وذلك لكي نمسح العملاء في ورقة تحليل العملاء في العمود AC الذين رصيدهم صفر في العمود AD مع ملاحظة وجود ارصدة بالسالب ( دائنة ) فلا نمسحها ، بعد اجراء المسح يتم ترتيب العملاء تحت بعضها وشكرا تصفية العملاء.rar رابط هذا التعليق شارك More sharing options...
أبو أنس حاجب قام بنشر مايو 21, 2012 مشاركة قام بنشر مايو 21, 2012 السلام عليكم ورحمة الله وبركاته أخي الفاضل جرب المرفق على حسب استطاعتي عله المطلوب أبو أنس تصفية العملاء.rar رابط هذا التعليق شارك More sharing options...
محمد رسلان قام بنشر مايو 21, 2012 الكاتب مشاركة قام بنشر مايو 21, 2012 تسلم ايدك هو نفس المطلوب ولكن معذرة اريد منك ان تضع فقط ذر الماكرو في صفحة الترحيل رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مايو 21, 2012 مشاركة قام بنشر مايو 21, 2012 السلام عليكم أخي العزيز بعد إذن أخي الحبيب / أبو أنس ولتعدد الحلول قللت شوية من حجم الملف الغير طبيعي وأضفت الزر تفضل المرفق تصفية العملاء2.rar رابط هذا التعليق شارك More sharing options...
محمد رسلان قام بنشر مايو 21, 2012 الكاتب مشاركة قام بنشر مايو 21, 2012 معذرة استاذ طارق ولكن الكود لا يعمل رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مايو 21, 2012 مشاركة قام بنشر مايو 21, 2012 السلام عليكم معذرة أخي فالكود به جزئية لايتم التعرف عليها بالأكسيل 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 رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مايو 21, 2012 مشاركة قام بنشر مايو 21, 2012 عفوا 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 رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر مايو 22, 2012 مشاركة قام بنشر مايو 22, 2012 الاخ محمد رسلان تحية طيبه ارجو المساعده بطريقة عمل البحث الظاهر في ورقة ( تحليل العملاء )( الخليه A2 ) كونه يخدمني في برنامجي الذي اعمل عليه مع تقديري رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر مايو 22, 2012 مشاركة قام بنشر مايو 22, 2012 اخي العزيز وجدتها مع الامتنان رابط هذا التعليق شارك More sharing options...
محمد رسلان قام بنشر مايو 22, 2012 الكاتب مشاركة قام بنشر مايو 22, 2012 (معدل) شكرا جزيلا استاذ طارق على هذا المجهود وتم التعديل واصبح الكود يعمل تمام تم تعديل مايو 22, 2012 بواسطه محمد رسلان رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان