الجزيرة

أخي العزيز / بن عليه بارك الله فيك وفي ذريتك :) سبحان الله كان بالإمكان تعديل المعادلة ولكن شاء الله أن تنورنا ويكون الحل على يدك المباركة

أخي العزيز / العيدروس شرح جميل ومفيد :)

كم أفختر بأن المنتدى يوجد به شخص كريم معطاء كالاستاذ / خبور :) كود مختصر ورائع

أخي العزيز / ذيب اليمن شكراً للمعلومة :) أرجوا مشاهدة الملف وتعديل المعادلة إن أمكن ذلك

ولو معادلات صفيف

أخي الحبيب / عماد الحسامي سعدت جداً لتواجدك في موضوعي ، وحل أكثر من رائع ولكن أسماء الموظفين تكون ثابته والمتغير هو المجاميع ( لعل شرحي كان غير واضح فعذراً ) مع العلم بأن البيانات في الملف الأصلي كثيرة والمعادلات تزيد من بطء الملف ، بمعنى أن الكود يكون أفضل :) ---------------------------- أخي العزيز / ذيب اليمن الحل أكثر من رائع بالفعل ولكن عند كتابة حرف A ويعني غياب في المدى D9:G15 ، فإن المعادلة تعطي ناتج خطأ ( فهل من حل لذلك ) وماذا يعني 1* في المعادلة =SUMPRODUCT((ورقة1!$D$6:$G$15*1)*(ورقة1!$C$6:$C$15=D$7)*(ورقة1!$A$6:$A$15=A8)) شاهد المرفق :) جلب بيانات.rar

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

مبدع أخي عبد الله كعادتك دائماً :)

أخي الحبيب / أبو عبد الله قبل مشاهدة الملف ، متأكد من الروائع الموجودة فيه :)

أخي أبو الحسن دمج اكثر من رائع :)

تم التصويت ، مع خالص الشكر لك :)

أخي الحبيب أبو أحمد شرح رائع ، وفقك الله :)

بارك الله فيكم جميعاً وشكراً للمساعدة الغير مستغربه :)

أخي الكريم العيدروس ، حياك الله في الموضوع ---------- أخي الكريم أبو عبد الله هذا الملف مجرد عينه ، لكن الملف الفعلي توجد معادلة IF فلا أريد حذف المعادلة الموجودة بالخلية الصفراء .

أخي الكريم / أبو عبد الله :) فضلاً وليس أمراً ، شاهد المطلوب 2 خصمات.rar

الله ينوّر :) كذا ميه ميه شكراً من القلب

أخي الحبيب أبو عبد الله تمام ، ولكن أود ظهور ما يكتب في التيكست بوكس في الخلية الصفراء الخطأ مني فأعذرني لأني لم أوضح ذلك :)

تفضل أخي الحبيب أبو عبد الله الشرح في الملف المرفق :) خصمات.rar

ما قصرت أخي معتصم ، بارك الله فيك بإنتظار أحد الأخوان :)

الآن أصبح ممتاز هل ممكن وضعه في تيكست بوكس بدلاً من زر الأمر أثقلت عليك أخي معتصم ، فأرجوا المعذرة :)

أشكرك أخي معتصم على الكود الجميل Sub FormatInsideCell() Dim StartChar As Integer, NumChar As Integer, CellLen As Integer Dim FormatThis As String FormatThis = "ÎÕã" NumChar = Len(FormatThis) CellLen = Len(ActiveCell) StartChar = InStr(1, ActiveCell.Value, FormatThis, vbTextCompare) If StartChar > 0 Then With Selection.Characters(StartChar, NumChar).Font .FontStyle = "Bold" End With End If End Sub ولكن لو امكن اختصاره ، كذلك تحديد الخلية H14 بدلاً من الخلية النشطه

السلام عليكم ورحمة الله وبركاته مثال : سداد باقي الحساب مع خصم مبلغ 200 ريال بحيث تكون كلمة خصم غامقة اللون B ، مع خالص الشكر سلفاً :)

أحسنت أخي / أحمد ( ولد طيبه ) كذا تمام التمام :)

الأخوة / كيماس و الحسامي دائماً تبدعون :) رائع أخي الحبيب / أحمد زمان بإنتظار ميزة البحث بين تاريخين :)

حياك الله أخي الكريم / عبد الله نورت المنتدى بوجودك ولكن لنا رجاء ، بأن لا تغيب مره أخرى وإن كان ولا بد فيا حبذا لو تطمئنا عن حالك من وقت لآخر :) من ناحية الملف فهو بدون شك قمة من القمم أخوك / أبو عبد الله