عبدالله المجرب

اخي الفاضل لا يمكن التعديل بسهولة وعلى ما اذكر باني تحدثت مع الاستاذ خبور بهذا الخصوص وابلغني بصعوبة اضافة فورمات لمربعات النص وذلك لانها تضاف بعد التغيير في مربع البحث وليست من اصل الفورم ويمكنك مشاهدة ذلك لو فتحت محرر الاكواد وفي وضع التصميم للفورم ستجد بانها خالية من مربعات النص والله اعلم

السلام عليكم اخي سامر جرب الملف بعد التعديل (واعذرني فليس لدي طابعة في المنزل ولا ادري ماهي النتائج) ستختار المادة ثم تضغط زر الطباعة (في حال عدم كتابة مادة في مربع النص سيتم تنبيهك الى ذلك) جرب واعلمني بالنتيجة ابواحمد asam.rar

الاستاذ الوقور نارت الاستاذ نادر شكراً جزيلاً لتشجيعك ابواحمد

شكراً لمرورك ابا ادم واعذروني نسيت ان اوجه الشكر لمن قام بعمل البرنامج (الاخ فاضل الحمود) ابو احمد

http://sh.shadipal.com/v.php?id=3920 هذا رابط لتحميل برنامج صيدلية رائع قمت بتجربته فوجدته رائع واضعه هنا للفائدة للعلم منقول من إيميلي وحجم الملف 12 ميجا بايت ابواحمد

جعلنا الله من المتحابين فيه كلام من ذهب كمعدنك الاصيل استاذ نارت بارك الله فيك ابا ادم عبدالله المجرب

لا نقول الا كما قال استاذنا محمد طاهر ونزيد ابدعت في نظم الحروف فسطرت رواع يتلذذ الواحد بقراءتها عدة مرات فلا يشبع بارك الله في علمك استاذ نارت بواحمد

اخي الفاضل هكذا سيصبح الكود Sub missing() Application.ScreenUpdating = False LR = Sheets("Sheet2").Range("f" & Rows.Count).End(xlUp).Row + 1 Range("f2:f" & LR).ClearContents For i = 2 To 12 x = Application.WorksheetFunction.CountIf(Range("d2:d12"), Sheets("Sheet3").Cells(i, 1)) If x = 0 Then LR1 = Sheets("Sheet2").Range("f" & Rows.Count).End(xlUp).Row + 1 Sheets("Sheet3").Cells(i, 1).Copy Range("f" & LR1) End If Next i Application.ScreenUpdating = True End Sub قم باستبدال هذا الكود بالسابق لا تغير مكان زر امر استدعاء الكود ابواحمد

الدالة دالة صفيف عند التعديل لا بد من الضغط على Ctrl + Shift + Enter جرب وشوف ابواحمد

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

الخطاء ليس في المعادلة ولكن المعادلة ليست بالفاصلة المنقوطة جرب هذه نفس المعادلة ولكن بالفاصلة المنقوطة =$C2*A2+DATEDIF($H$2;TODAY();"ym")*$A2 اما بخصوص "ym" فهس لحساب الفرق بين تاريخين بالاشهر والله اعلم

تفضل المرفق تم استخدام التصفية المتقدمة في استخلاص نتائج البحث جرب المرفق ابواحمد لستة عملاء.rar

اخوي الكريمين: الاستاذ الفاضل ياسر الحافظ ابو الحارث (تم تغيير العنوان للفائدة اثناء البحث) الاستاذ الفاضل سعد عابد ابو العبد (من عندي) كلامكم يحملني مسئولية ارى نفسي غير قادر على حملها شكراً على هذا التشجيع والمجاملة ابواحمد

اخي وهذه المعادلة =SUMIF('الصنف المطبوخ'!$M$3:$M$9;L4;'الصنف المطبوخ'!$J$3:$J$9) اذا اردت النتائح تكون مرتبطة بالكود قم بإضافة كود الصنف في ورقة الصنف المطبوخ وضع هذه المعادلة في الخلية I4 في ورقة الصنف المخزني والله اعلم ابواحمد

السلام عليكم جرب المرفق هام.rar

اخي ياسر تم عمل المطلوب الثاني جرب (هناك في العمود AX معادلة لاستخلاص البيانات دون تكرار وقد سحبت المعادلة لعدة خلايا للاسفل لتضاف الارقام الجديدة الى القائمة تلقائياً ) للعلم المعادلة ابداع حقيقي للاستاذ بن عليه (الفارس الهادئ) حفظه الله ورعاه ابواحمد تلوين خلية + التحقق من الصحة.rar

السلام عليكم اخي جلال تم تعديل العنوان للدلالة ونرجو الالتزام في المستقبل بالعنواين الدالة على مضمون الطلب يمكن جكع اكثر من معادلة في خلية واحدة ويمكن اختيار تلوين الخلية تلقائياً حسب ناتج المعادلة ارفق ملف للعمل عليه وستجد الكثير فأنت في منتدى أوفيسنا ابواحمد

ابو ادم خاطره تجول في فكر كل من استفاد من هذا الصرح ا اللهم آمين ابواحمد

اخي ليتم المطلوب وان يتم الترحيل الى هذا الملف من اي ملف اخر يمكنك نسخ الكود ولصقه في اي ملف تريد الترحيل منه الى ملف Acual. والشرط الوحيد ان يكون اسم ورقة العمل في هذا الملف هو Sheet1 كما يشترط ان تكون الملفات مفتوحه جرب وشوف

اخي الشهابي تم إنشاء موضوع جديد للفائدة ممكن ذلك تفضل المرفق (تم عمل قائمة منسدلة متجدد ومهما اضفت من أوراق عمل ستجدها تلقائياً في القائمة المنسدلة) جرب واعلمني بالنتيجة ابواحمد ترحيل الى اوراق مختارة.rar

اولاً: شكراً للاستاذ الفاضل جمال على رده ثانياً: اخي netcom199 انت لم تطلب التعلم لنمنعك عنه وانت تعرف ان الاخوة في المتتدى يبذلون اقصى جهد في المساعدة في حدودد سياسات المنتدى اخي الفاضل صاحب العمل لم يقم بقفل محرر الاكواد الا حفاظاً على حقه ونحن هنا لا نستطيع انتهاك هذا الحق (قد تستطيع كسر كلمة المرور بواسطة البرامج المعدة لذلك) ولكن الا تعتبر هذا انتهاك لحق صاحب العمل ؟؟؟؟ ، وتاكد ان البرنامج لو لم يكن هناك فيه طلب لمراسلة صاحبه لوجدت الحلول تنهمر عليك. ثالثاً: اخي الفاضل نرجو منك ان لا تاخذ في خاطرك شيء فكما قلت انت المنتدى للتعلم وهدفه نشر المعرفة ونحن جميعاً في خدمتك للحصول على المعرفة التي تنشد ما استطعنا الى ذلك سبيل. رابعاً: نحن في انتظارك لتفيد وتستفيد اخ عزيز بين عائلة أوفيسنا ابو احمد

اخي واستاذي الفاضل عبدالفتاح "ابا عمر " شكراً لمرورك الاستاذ العزيز نارت " ابا ادم " شكراً لك وملاحظة جيدة (انتباهك للتغيير في الشكل) كما قال الاستاذ محمد جرب تغيير الترميز لان عرض النشرةيعمل جيداً عندي والله اعلم