رجب جاويش

السلام عليكم بعد اذن أخى الحبيب / محمود تفضل أخى ما تريد ولكن عذرا ان كان الكود طويل شوية kmaal.rar

جرب هذا الرابط http://www.officena.net/ib/index.php?showtopic=42180

أخى ابراهيم يعتبر هو نفس الكود تقريبا

أخى ابراهيم لا شكر على واجب

مرحبا بك أخى الفاضل بين إخوانك

أخى ضع ملف مرفق ليتم العمل والتوضيح عليه

أخى الفاضل جرب المرفق عدد الأسماء.rar

بعد اذن أخى / عبد الله هذا كود آخر لإثراء الموضوع ترحيل.rar

أخى الحبيب / عبد الله المجرب بسم الله ما شاء الله زادت الله علما وابداعا :fff: :fff: :fff: :fff:

لا شكر على واجب أخى الفاضل فنحن إخوة

أخى الفاضل / محمد صالح بارك الله فيك على هذه المعلومات القيمة من كنز معلوماتك الوفيرة أخى الفاضل / محمود بارك الله فيك وزادك الله من العلم النافع

أخى الفاضل يتبقى شرط وهو إذا كان C6 يساوى 5 فما المطلوب فى هذه الحالة

أخى ابراهيم جرب المرفق لعله يكون أسرع من السابق SEC1.rar

ألف مليون سلامة أخى الحبيب سلمك الله من كل سوء

أخى الحبيب / الشهابى شكرا جزيلا على هذا المرور العطر وجزاك الله كل خير

أخى الحبيب / أبو حنين والله هذا يدل على الألفة والمودة بيننا ربنا يديم المحبة لوجهه تعالى أخوك / رجب جاويش

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

أخى الفاضل جرب هذا الكود show_calc.rar

أخى الفاضل عمرو ما رأيك فى هذه الفكرة وهى مستوحاه من أعمال المبدع الكبير الأستاذ / عبد الله باقشير Sub اصناف() On Error Resume Next Dim XX As Shape Set XX = ActiveSheet.Shapes("الاصناف") With XX.TextFrame.Characters If .Text = "اصناف لا تساوى صفر" Then ragab1 .Text = "كل الاصناف" Else ragab2 .Text = "اصناف لا تساوى صفر" End If End With On Error GoTo 0 End Sub Sub ragab1() Range("A5:B35").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Range("H1:H2"), Unique:=False End Sub Sub ragab2() ActiveSheet.ShowAllData End Sub ماكرو.rar

تفضل أخى هذا هو طلبك وهو اجابة السؤال الذى تم وضعة فى الموضوع الجديد والذى يعتبر مكرر مثال 1.rar

أخى الفاضل/ office 2003 جزاك الله كل خير أخى الفاضل/ مهند 2002 مرحبا بك أخا كريما فى هذا المنتدى الرائع بين أحبابك وجزاك الله كل خير على كلماتك الرقيقة

الأخ الحبيب / عباس السماوى جزاك الله كل خير الأخ الحبيب / عبد الله المجرب تسلم ايديك وتسلم أفكارك

جزاك الله كل خير أخى الحبيب / أبو ردينة

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

أخى الفاضل / ابو سلام جزاك الله كل خير أخى الفاضل / gfranses جزاك الله كل خير بالنسبة للطلب الأول أرجو إرفاق ملف حتى يتم توضيح المطلوب أكثر ليتم العمل عليه بالنسبة للطلب الثانى الخاص بشرح الدالتين math & index هذا الرابط يحتوى على شرح الدالة index http://www.officena....showtopic=37497 وفى هذا الرابط سوف تجد كتاب رائع لشرح جميع دوال الاكسل http://www.officena....ds&showfile=133 من اعداد الرائعين الاستاذ / محمد يحياوى والاستاذ / عيد مصطفى