خالد الرشيدى

السلام عليكم استاذى القدير / الصقـــر العفو استاذى الحبيب ...فقط احاول ان اسير على خطا ومنهج هذا المنتدى الرائع العامر باعضاء كالماس ..اسال الله ان يجمعنى وإياكم فى مستقر رحمتة .. جزاك الله خيراً اخى واستاذى على مرورك الرائع الذى اسعد النفس ... خالص حبى وتقديرى واحترامى لشخصكم المحترم السلام عليكم الاستاذ والاخ المحترم / محمد حسن المحمد العفو استاذى الحبيب .. فكلنا تلاميذ فى جامعه اوفيسنا ولحسن الحظ اننا فى جامعه طلابها هم معلموها الكل يقدم وينتهل .. اسال الله ان يجمعنا جميعاً فى مستقر رحمته والله يعجز اللسان على شكرك ....عوداً حميداً .. فقد لاحظت تغيب حضرتك عن المنتدى .. خالص حبى وتقديرى واحترامى لشخصكم المحترم

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

أساتذتى وإخوتى الكرام .. الملف التالى حول احد الدوال البحثيه .. Find.. الملف يتناول شرح وسائط الدالة .. اتمنى ان يمثل إضافه بسيطة .. المرفقـــات Find_2.rar

السلام عليكم استاذى واخى الحبيب / عبد العزيز البسكرى يعجز الكلام عن التعبير عن مدى امتنانى لحضرتك ..كلام طيب ..دعاء لوالدتى رحمها الله لا يسعنى سوى شكر الظروف التى جمعتنى بكم اخى الكريم .. جزاك الله خيراً ..وأسال الله ان يوفقنا جميعاً لما فيه الخير بالنسبه للكود .. هو يتخطى وفقط ظهور نافذه خيارات الطباعه عند الضغط على Print اثناء المعاينه Sub PrintAll() Dim iStart As Integer, iEnd As Integer, I As Integer iStart = Feuil1.Range("J7").Value iEnd = Feuil1.Range("L7").Value For I = iStart To iEnd Feuil1.Range("I3").Value = I Feuil1.PrintOut Preview:=True Next I End Sub خالص حبى وتقديرى لك اخى واستاذى الحبيب عبد العزيز ولاستاذى ابو البراء ولكل اعضاء المنتدى الماس

السلام عليكم أستاذى / ابو البراء .. فعلاً بدون مجاملة .. دائماً موضوعات حضرتك تمثل لى إضافه . جزاك الله عنا خيراً واسمح لى ان اضيف :- بدلاً من الخيار Printout ومن ثم الطباعة دون معاينه .. او الخيار Print Preview ومن ثم ظهور قائمه خيارات الطباعه فى كل مرة يتم الضغط على Print الكود التالى يجمع بينهما ... .PrintOut , , , True تقبلوا خالص احترامى وتقديرى

السلام عليكم اخى الكريم اليك المعادلة التالية كأحد الطرق .. لا يشترط ترتيب الرقم الاكبر والاصغر فى الخلايا E15:F15 .. =AND(MAX($E$15:$F$15)-C5>=0;C5-MIN($E$15:$F$15)>=0)*1 حراثي 1.rar

السلام عليكم بالفعل اخى الفاضل انت على حق على الرغم من اننى جربت مجموعه قليله من الارقام وظبطت معى .. حظ بقى .. فكرة المعادلة المقدمة هى التقريب فى عمود الاجمالى وليس الصافى وهنا يأتى دور شرح على اى اساس يتم التقريب الى 5 او 10 او 15 او 20 ... سأحاول ايجاد فكرة اخرى .. ان شاء الله .... تقبل تحياتى

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

السلام عليكم اخى الكريم الاجمالى H16 مساوى تماماً لمبلغ التوزيع L10 كلاهما .. 34000 اذن عن اى اجمالى تتحدث .. تقبل مرورى وتحياتى

اتفضل المعادلة مطبقة بالمرفق تواتي_2.rar

السلام عليكم اخى الكريم ضع المعادلة التالية بالخلية F8 =ROUNDDOWN((C8+D8)/3;2)

السلام عليكم بعد اذن اساتذتى الكرام فعلى قد فهمت المطلوب .. استبدل المعادلة الموجودة بالخليه I10 بتلك المعادلة . ثم اسحب لاسفل =IF(OR(G10=0;G10="");0;MROUND($L$10*K10/$K$50/G10;5)*G10) برنامج توزيع مبلغ بنسب (Recovered)_3.rar

السلام عليكم بعد اذن الاخوة .. جزاهم الله خيراً اخى الكريم جرب الملف التالى علة المطلوب رابط صفحات.rar

السلام عليكم اخى الكريم .. اهلاً بك بين اخوانك بالمنتدى يرجى الاطلاع على التوجيهات بالموضوعات المثبته .. للتعامل مع المنتدى بشكل افضل قم برفع الملف واشرح به المطلوب تفصيلاً وان شاء الله تجد المساعده تقبل مرورى

استاذى / ابو البراء شاكر مرور حضرتك الطيب على النفس دائماً .. خالص احترامى لشخصكم الكريم

السلام عليكم استاذى / ابو البراء .. جزاك الله خيراً .. واستأذنك استاذى فى عرض فكرة اخرى بإستخدام المعادلات بإفتراض ان مرجع القائمه المنسدلة هى الخلايا A3:A5 وان خليه القائمه هى E3 يتم وضع المعادلة التاليه فى الخليه المراد بها الرقم =SUMPRODUCT(--(E3=A3:A5);ROW(A3:A5)-2) Book1ffff.rar

السلام عليكم اهلاً بك اخى الكريم بين اخوانك بالمنتدى .. يرجى تغيير اسم الظهور الى العربيه فضلاً لا امراً .. كما يرجى الاطلاع على التوجيهات فى الموضوعات المثبته .. اخى الكريم قم بارفاق ملف مشروح فيه طلبك وان شاء الله تجد المساعده تقبل تحياتى ومرورى

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

السلام عليكم اخى الكريم .. لم يصلنى المطلوب تماما .. ومع ذلك ضع المعادلة التالية فى C2 وابدى ملاحظاتك =IF(B2="";"";B2+200)

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

السلام عليكم اخى الكريم جرب المعادلة التاليه جيداً .... -- معادلة صفيف CTRL + SHIFT + ENTER ... تم الغاء دمج الخلايا .. =INDEX(VLOOKUP(E23;$E$3:$H$6;{2;3;4};0);MATCH(0;COUNTIF($F$22:F22;VLOOKUP(E23;$E$3:$H$6;{2;3;4};0)&""))) مشكل توزيع_2.zip

اخى الكريم / محمود بك نظرت الى الموضوع اكثر من مرة .. وتابعت الردود .. ولا زلت لا افهم فكرة الملف حضرتك بتقول تجميع .. وما فهمته من الملف انك تريد الكميه بناء على التاريخ والصنف .. عموماً اليك الملف التالى عله المطلوب على قدر ما فهمت .. جربه وابدى ملاحظاتك .. وان لم يكن كذلك ارجو مزيد من التوضيح book 22.rar

السلام عليكم الاخ المحترم / سليمان جزاك الله خيراً اخى الكريم .. واهلا بك مرة اخرى فى منتدى اوفيسنا تقبل خالص تحياتى وتقديرى

الاخ الكريم / Mohamed51 شاكر مرور حضرتك الطيب بعبارته الرائعه تقبل خالص تحياتى وتقديرى

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