أبومروان

ممكن تستخدم ...وهكذا Application.wait(now+time ("00.35"))

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

Private Sub UserForm_Initialize() With Application .WindowState = xlMaximized Zoom = Int(.Width / Me.Width * 80) Width = .Width: Height = .Height Left = 0: Top = 0 End With End Sub ادخل علي هذا الموضوع

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

الساده الافاضل تحياتي ارجو من سيادتكم المساعد عاهتم اريد نقل البيانات من شيت التجهيز من الرنج (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 من الخبراء زاي حضرتك وكل يوم بتعمل من حضرتك معلومه جديده وبتطبقها في شغلي ولك مني وللمتندي العظيم فائق الاحترام والتقدير .😍😍

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

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