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

بسم الله الرحمن الرحيم اترككم مع احدى الحكم التي اعجبتني يقول الحكيم الصيني كونفوشيوس: (( ثقوم الحكومة الصالحة على ثلاثة اركان: طعام يسد حاجة الشعب. وجيش يذود حياض الوطن. وثقة تعتمد عليها ﺍﻟﺤﻜﻭﻤﺔ ﻤﻥ ﺍﻟﺸﻌﺏ. ﻭﺇﺫﺍ ﻟﻡ ﻴﻜﻥ ﺒﺩُ ﻤﻥ ﺍﻻﺴﺘﻐﻨﺎﺀ ﻋﻥ ﺃﺤﺩ ﺍﻷﺭﻜﺎﻥ ﺍﻟﺜﻼﺜﺔ، ﻓﻠﻴﻜﻥ ﺍﻟﺠﻴﺵ. ﺜﻡ ﺇﺫﺍ ﺍﻀﻁﺭﺭﻨﺎ ﺇﻟﻰ ﺘﺨﻴﺭ ﺃﺤﺩ ﺍﻟﺭﻜﻨﻴﻥ ﺍﻵﺨﺭﻴﻥ، ﺍﻟﻁﻌﺎﻡ ﻭﺍﻟﺜﻘﺔ، ﻓﺈﻨﻨﻲ ﺃﻭﺜﺭ ﺃﻥ ﻨﺴﺘﺒﻘﻲ ﺍﻟﺜﻘﺔ. ﺫﻟﻙ ﻷﻥ ﺍﻟﺠﻭﻉ ﻴﻤﻴﺕ ﺃﻓﺭﺍﺩﺍ ﻤﻥ ﺍﻷﻤﺔ، ﺃﻤﺎ ﻓﻘﺩ ﺍﻟﺜﻘﺔ ﻓﺈنه يميت الامة كلها)) واترك التعليق لكم ......... ابواحمد

لو استطعنا التغيير لستطعنا عمل اي فورمات للتاريخ نريد انا عن نفسي حاولت ولكن لم استطع فك شفرة الكود والله الموفق ابواحمد

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

السلام عليكم اخي سامر جرب الملف بعد التعديل (واعذرني فليس لدي طابعة في المنزل ولا ادري ماهي النتائج) ستختار المادة ثم تضغط زر الطباعة (في حال عدم كتابة مادة في مربع النص سيتم تنبيهك الى ذلك) جرب واعلمني بالنتيجة ابواحمد 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