مجموع عمود يتحول حسب تاريخ البحث

[Zakariadz Bms]

السلام عليكم ورحمة الله وبركاته

إخواني الكرام اطلب منكم مساعدة بحيث مجموع العمود F يكون متحرك حسب تاريخ البحث

بارك الله فيكم الملف مرفق

OFFICENA 2024.xlsm

[AbuuAhmed]

خطوة أولى ، افحص الملق وارجع لي بملاحظاتك.
المجموع نتيجة البحث حسب تاريخ النهاية وتجاهل تاريخ البداية.
وضعت لك الإجراء عن طريق زر البحث.

OFFICENA 2024_02.xlsm

[بن علية حاجي]

السلام عليكم ورحمة الله

جرب المرفق لعلك تجد مطلوبك...

OFFICENA 2024_03.xlsm

[AbuuAhmed]

وعليكم السلام ورحمة الله

شاركت كمجيب والآن أشارك كسائل 🙂 

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

    a = [Total]
    Range("G" & [Lr_1] + [Lr_2] - 1) = "المجموع"
    Range("G" & [Lr_1] + [Lr_2]) = a

 

[AbuuAhmed]

وجدتها بعد جهد جهيد ، هي في الـ Name Manager ، للتو تعرفت عليها وسأحاول فهما ، مع أني "قد" لا أحتاجها.

[Zakariadz Bms]

السلام عليكم ورحمة الله وبركاته

طلب مساعدة اخواني الكرام هو مجموع جدول يتحول حسب البحث بحيث لا يكون فراغ بين نتيجة البحث والمجموع 

الملف مرفق وجزاكم الله خيرا

OFFICENA 2024.xlsm

بارك الله فيكم

[محمد هشام.]

اخي لقد تمت الاجابة عن طلبك من قبل الاساتدة 

اليك حل اخر ربما هدا طلبك 

Dim Last As Long
Last = Worksheets(Mydate).UsedRange.Rows.Count
Worksheets(Mydate).Range("A1:f" & Last).AdvancedFilter xlFilterCopy _
, Worksheets(MyFind).Range("K2:L3"), Worksheets(MyFind).Range("A5:f5"), False
Dim lr1 As Long
lr1 = Sheet2.Range("G" & Rows.Count).End(xlUp).Row + 1
Range("G6:G" & lr1).Clear
lr2 = Cells(Rows.Count, "E").End(xlUp).Row + 1
For i = 6 To lr2
If Cells(i, "F") = "" Then
Cells(i, "F").Offset(-1, 1).Select
ActiveCell = Evaluate("SUM(d6:d" & lr2 & "*E6:E" & lr2 & ")")
Exit For
End If
Next
End Sub

 

OFFICENA 2024.xlsm

[Zakariadz Bms]

بارك الله فيك أستاذ وجزاك الله خيرا

مشكور

أستاذ من فضلك تنسيق خلية الجمع يكون بهذه الصيغة رقمين وراء الفاصلة مثلا هكذا 1200.00 أو    6513.23

وجزاك الله خيرا

[بن علية حاجي]

أبدل الجزئية التالية في كود أخي الكريم Mohamed Hicham:

ActiveCell = Evaluate("SUM(d6:d" & lr2 & "*E6:E" & lr2 & ")")

بالجزئية :

ActiveCell = Format(Evaluate("SUM(d6:d" & lr2 & "*E6:E" & lr2 & ")"), "# ##0.00")

 

[Zakariadz Bms]

أستاذ بارك الله فيك والاجابة كانت حسب الطلب أشكرك جزيل الشكر أستاذ

ولكن أريد الجمع يقف حسب تاريخ البحث وتبقى الخلايا ما بعد الجمع فارغة وشكرا

OFFICENA 2024_55.xlsm

[بن علية حاجي]

السلام عليكم ورحمة الله

تم التعديل على الكود ليخفي كل الصفوف التي بها بيانات ولا يعنيها المجموع (البحث)...

ملاحظة: تم حذف الموضوع الآخر لنفس الطلب الذي رابطه  "طلب مساعدة دالة أو معادلة تقوم بجمع عمود يتحول حسب تاريخ البحث"

OFFICENA 2024_04.xlsm

[Zakariadz Bms]

جزاك الله خيرا

مشكور أستاذ