جمع بين تاريخين من عدة أوراق في ملف واحد

[ريان أحمد]

السلام عليكم في البداية   نحمد الله على رجوع المنتدى بعد الصيانة الطارئة

 

 

أريد ان أجمع بين تاريخين من عدة شيتات من ملف واحد والشرح في المرفق

ع.rar

[ريان أحمد]

up

[احمد عبد الناصر]

السلام عليكم

 

جرب هذا 

 

تحياتي

ع+.rar

[احمدزمان]

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

 

بالإضافة الى المصفوفة الرائع لأخي احمد عبدالناصر

هذا حل آخر باستخدام دالة sumproduct

ع+az.rar

[ريان أحمد]

السلام عليكم

 

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

البرنامج الذي أعمل عليه فيه عدة أوراق وفي كل مرة أقوم بإضافة اوراق جديدة

 

هل يوجد كود بدل المعادلة

[عادل ابوزيد]

الاساتذه الكرام

احمد عبد الناصر

احمد زمان

ما شاء الله عليكم

ابداعات من مبدعين

[خالد القدس]

السلام عليكم<br /><br />ابداعات احمدية رائعة<br /><br />جزاكم الله خيرا

[ريان أحمد]

up

[ريان أحمد]

up

[الخالدي]

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

الكود المرفق يقوم بالجمع من كل الاوراق عدا الورقة النشطة

Sub AL_KHALEDI()
For Each sh In Worksheets
If sh.Name <> ActiveSheet.Name Then
With Range(sh.Cells(2, 3), sh.Cells(Rows.Count, 3).End(xlUp))
S = S + Application.SumIf(.Cells, ">=" & [C2], .Cells(1, 2))
S = S - Application.SumIf(.Cells, ">" & [B2], .Cells(1, 2))
End With
End If
Next
[B5] = S
End Sub

ارجو ان يكون المطلوب
في أمان الله

جمع بين تاريخين من عدة اوراق.rar

[ريان أحمد]

شكر أستاذي الخالدي

 

ولكن   الكود يجمع الأعمدة في جميع الوراق حتى ولو لم تكن معنية في الجمع وهذا غير مطلوب