مصطفى محمود مصطفى

وعليكم السلام ارفق الملف

لكم الحسنى اخي العزيز حياكم الله

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

وعليكم السلام ورحمة الله وبركاته لاحظ المرفق ان شاء الله به ما طلبت لكم تحياتي ++كود ترحيل البيانات أوفيسنا.xlsm

رائع الاستاذ سليم حاصبيا وفقكم الله معادلة رائعة جعلها الله في ميزان حسناتكم استخدمت COUNTIF(data!E:E;1) لايقاف الواحد والبدء من ثلاثة ونفس المعادلة لايقاف الرقم 2 والبدء من ثلاثة لكم وافر احترامي وتقديري

السلام عليكم هل يمكن نعمل عمودين متسلسلات ويكون رقم 3 مشترك بين العمودين عمود به رقم 1 ورقم 3 وعمود اخر به رقم 2 وكذلك رقم 3 بدون فراغات لكم كل الاحترام والتقدير قائمة بدون فراغات بشرط.xlsm

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

السلام عليكم ورحمة الله وبركاته عندي ملف اود طباعة كل سبعة ايام او عشرة ايام في ورقة واحدة بشرط كل ورقة تكمل الورقة السابقة من حيث ينتهي التاريخ السابق وهكذا اذا جاء شهر جديد يحسب من اخر الشهر السابق على التوالي الى ان تنتهي السنة جزاكم الله خيرا البيانات.xlsm

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

السلام عليكم ورحمة الله وبركاته العمل للاستاذ سليم حاصبيا جزاه الله خيرا هل يمكن ان نضع زر لكود في ورقة وينفذ عمل الكود في ورقة اخرى لما نضغط على زر موجود في ورقة العمل الحالية يقوم هذا الكود بالتنفيذ والعمل في ورقة اخرى تحياتي لكم ووافر احترامي Fix_rand.xlsm

استاذ حسام ممكن تذكر الحل الذي وجدته كي تعم الفائدة تحياتي

يمكن استخدام دالة اخرى تقوم بما تريد COUNTIF(C2:C6;">""") تحياتي

احسنت استاذنا الفاضل بن علية حاجي

وعليكم السلام استاذ ابو بهاء حياكم الله الدالة COUNTIFS لاتعمل على اوفس 2003 ولذلك ظهر الخطا النتيجة التي ظهرت عندي 1 لاحظ التغيير بمعادلتك الغيت احتساب الغائب بدات تعمل بشكل جيد والمعادلة الثانية غيرت بالشروط وحددتها باقصى درجة واقل درجة وهي تعمل بشكل جيد لكن هل هي وفق ما تريده افحص الملف لعله ينفع او تصل الى فكرة اقرب تحياتي SUMPRODUCT++.xls

وعليكم السلام استاذ ابو بهاء حياكم الله الدالة تحسب الغياب قد حقق الشرط بالمعادلة في ملفكم لاحظ الخلية الصفراء بمعادلة اخرى النتيجة تمام تحياتي SUMPRODUCT++.xls

الاستاذ سليم حفظكم الله ورزقكم من فضله خيرا كثيرا احسنتم تعديل ممتاز جعل الله اعمالكم في ميزان حسناتكم لكم ودي واحترامي

الاستاذ سليم وفقكم الله عند نقل الكود ال الملف قام بمسح الصفوف التي بجانب عمود توليد الارقام العشوائية هل يمكن تعديل على الكود بعدم حذف البيانات التي بجانب اعمدة التوليد العشوائي للارقام وانما فقط بالعمود الذي به توليد الارقام واليكم ملف به الكود وارجو ملاحظة التغيير الذي اجريته لربما منه الخطا لكم وافر احترامي المصنف1.xlsm

وفقكم الله وحفظكم من كل سوء استاذ سليم المبدع . كود اكثر من رائع جعله الله في ميزان حسناتكم لكم وافر احترامي وتقديري

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

السلام عليكم الاساتذة الافاضل والاخوة الاعزاء جزاكم الله خير شكرا لكل من حاول من الاساتذة والاخوة الاعزاء لمساعدتي ولتعم الفائدة وجدت الكود الذي يعمل ذلك Sub most_all() For i = 1 To [F1] [G1] = i ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Next [G1] = 1 End Sub لكم وافر احترامي وتقديري طباعة جميع الصفحات.xlsm

هذا كود للاستاذ عبد الله باقشير جزاه الله خيرا ينفع حتى 15000 سطر Search new.xlsm

السلام عليكم ورحمة الله وبركاته الاساتذة الكرام وفقكم الله وحفظكم هذا كود لطباعة جميع الشهادات وضعته في شيت واحد به 8 تنسيقات ناحية الطباعة Sub Print_All() For i = 1 To [F1] [G1] = i ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True Next [G1] = 1 End Sub اي في الشيت الواحد 8 صفحات طباعة .من عرض معاينة فواصل الصفحات وحددت واحدة تعيين ناحية الطباعة واضفت الصفحة الثانية من خلال اضافة الى ناحية الطباعة وهكذا لثماني صفحات في شيت واحد وعملت الكود اعلاه لكنه يطبع الصفحة الاولى فقط ويترك الباقي هل من كود او تعديل على هذا الكود بحيث يطبع جميع صفحات الطباعة في الشيت الواحد 8 او اكثر لان البيانات تتغير بكل طباعة 8 اوراق يعني لكل ثماني صفحات بيانات تختلف احيانا خمس او اربع مرات تتغير حسب العدد في الخلية G1 لكم وافر احترامي طباعة جميع الصفحات.xlsm

شكرا لكم استاذ ايهاب معلومات قيمة ورائعة جزاكم الله خيرا لكم وافر احترامي وتقديري

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

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