الجزيرة

أخي العزيز / بن عليه

بارك الله فيك وفي ذريتك :)

سبحان الله كان بالإمكان تعديل المعادلة ولكن شاء الله أن تنورنا ويكون الحل على يدك المباركة

أخي العزيز / العيدروس

شرح جميل ومفيد :)

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

كود مختصر ورائع

أخي العزيز / ذيب اليمن

شكراً للمعلومة :)

أرجوا مشاهدة الملف وتعديل المعادلة إن أمكن ذلك

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

أخي الحبيب / عماد الحسامي

سعدت جداً لتواجدك في موضوعي ، وحل أكثر من رائع ولكن أسماء الموظفين تكون ثابته والمتغير هو المجاميع ( لعل شرحي كان غير واضح فعذراً )

مع العلم بأن البيانات في الملف الأصلي كثيرة والمعادلات تزيد من بطء الملف ، بمعنى أن الكود يكون أفضل :)

----------------------------

أخي العزيز / ذيب اليمن

الحل أكثر من رائع بالفعل ولكن عند كتابة حرف 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 ، مع خالص الشكر سلفاً :)

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

كذا تمام التمام :)

الأخوة / كيماس و الحسامي

دائماً تبدعون :)

سوف اقوم باضافة اخرى للملف غدا ان شاء الله بحيث يتم البحث خلال فترة محددة من تاريخ الى تاريخ

رائع أخي الحبيب / أحمد زمان

بإنتظار ميزة البحث بين تاريخين :)

حياك الله أخي الكريم / عبد الله

نورت المنتدى بوجودك

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

من ناحية الملف فهو بدون شك قمة من القمم

أخوك / أبو عبد الله