أبومروان

استاذي عبدالفتاح أعجز عن شكر حضرتك ومجهودك الرائع . لم اريد أخذ النطاق كله الي التحميل ولكن أريده كما في الصوره المرفقة واعذرني عن عجزي في شرح المطلوب واريد كما في الصوره المرفقه

الساده الافاضل تحياتي ارجو من سيادتكم المساعد عاهتم اريد نقل البيانات من شيت التجهيز من الرنج (f8:t1000) ومعاه كود الصنف ورقم المندوب الي شيت التحميل الي الرنج(d2:f1000) كما في المرفق مشاركة مكررة .... تــم بالفعل حذف المشاركة الأخرى تجهيز التجحميل.xlsm

جزاك الله خيرا وزادك من فضله وكرمه

عمل اكثر من رائع جزاك الله خيرا

الف مبروك ومن تقدم الى تقدم

الف مبروك ومن تقدم الى تقدم

ممكن ايضا تشاهدهذا الفيديو https://www.youtube.com/watch?v=tFVxcr7eAHI

الف مليون شكر لحضرتك تم التجربه وشغاااااال زاي الفل

تعديل.... هل يوجد كود عند الطباعه يخرج مسج بوكس بيسائل فيه كم نسخه تريد ١. او ٢. اواكتب عدد النسخ

الســاده الافاضل تحياتي...... برجاء التعديل علي هذا الكود Sub Printout() Sheets("plant").Range("a1:E20").Printout MsgBox "تم الطباعه بنجاح ....", 64 End Sub حيث عند الطباعه تظهر رساله بعددالنسخ المراد طباعتها نسخه او نسختين ولكم جزيل الشكر والتقدير

جزاك الله خيرا

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

جزاك الله خيرا الرجاء طريقه اضافه هذه الاداه علي ويندوز 10

بارك الله فيك ياااااا اسناذ / محمد علي وجزاك الله خيرا واكن ظهر لي هذا الخطا اللي في الصوره عما بان استمعمل افيس 2013 ويندوز 10

جزاك الله خيرا من ربوع زهرائنا الغالية ...نرسل أشعة من النور ، لتخترق جدار التميز والإبداع ..أشعة لامعة ، نرسلها لصاحب التميز والعطاء ...للفاضل الأستاذ( علي ) لك منا كل معاني الحب والتقدير ، والذي يساوي حجم عطاؤك اللامحدود وحضرتك المعادله اللي اعلي الصفحه باجي اعملها علي ايدي مش بتقبل وبيظهر لي خطا

للرفع

السلام عليكم الساده الافاضل تحيه طيبه وبعد.... السوال الاول : الرجاء شرح هذه المعادله IF([@Material]="";"Adjustment";IF(VALUE(RIGHT([@[Cost Center]];1))=6;"Truck Damage & Salse Return";IF(AND(VALUE(RIGHT([@[Cost Center]];3))=701;A2="0095");"Production defect Branches";IF(AND(VALUE(RIGHT([@[Cost Center]];3))=701;A2<>"0095");"Production defect Plant";IF(VALUE(RIGHT([@[Cost Center]];3))=100;"Shipment Damage";IF(VALUE(RIGHT([@[Cost Center]];3))=730;"warehouse Damage";IF(VALUE(LEFT([@[Cost Center]];3))=307;"Truck Damage & Salse Return";""))))) كما في المرفق السوال الثاني كيف عمل رسم بياني مرتبط بــــ pirut table كما في الصوره وتقبلو فائق الاحترام والتقدير اول سوال.xlsx

جزاك الله خيرا وبارك فيك

كلمة شكر ما تكفي والمعنى الذي توفيه لو بيدي العمر أعطيه لأعبر له عن مدى شكري

جزاك الله كل الخيرا علي كل ما تقدمه من مجهود واعمال ولك جزيل الشكر والتقدير . سيدي الفاضل السبب من عدم رفعي للملف هو اني محتاجه اتعمل vbn من الخبراء زاي حضرتك وكل يوم بتعمل من حضرتك معلومه جديده وبتطبقها في شغلي ولك مني وللمتندي العظيم فائق الاحترام والتقدير .😍😍

السلام عليكم الساده الافاضل تحيه طيبه وبعد.... كنت محتاج كود للحفظ والخروخ ومعاه مسج بوكس للتاكيد وتقبلو فائق الاحترام والتقدير 😍

جزاك الله خيرا من ربوع زهرائنا الغالية ...نرسل أشعة من النور ، لتخترق جدار التميز والإبداع ..أشعة لامعة ، نرسلها لصاحب التميز والعطاء ...للفاضل الأستاذ( علي ) لك منا كل معاني الحب والتقدير ، والذي يساوي حجم عطاؤك اللامحدود .

السلام عليكم ورحمه الله وبركاته الساده الافاضل تحياتي ...... اريد كود تفقيط للعمله المصريه باللغه الانجليزيه ولكم فائق الاحترام والتقدير ..

الرجاء تعديل بسيط لو امكن تتم عمليه الترحيل تمام في row7 فقط اما باقي rows لحد row18 لم يتم الترحيل قد يكون الموظف بيشتري اكثر من منتج في فاتوره واحده والرجاء قبول اعتذاري علي التقل عليكم فانتم اهل العطاء والكرم شكراً لكم من أعماق قلبي على عطائكم الدائم جزاكم الله كــــل خيراً الترحيل.xlsm

شكراً لكم من أعماق قلبي على عطائكم الدائم جزاكم الله كــــل خيراً