اظهار مجموع القوائم

[الشيباني1]

اخواني الاعزاء  تحية طيبه  ارجو المساعده بكود او معادله لاظهار مجموع كل قائمه حسب المرفق  مع الشكر

مجموع القوائم.rar

[ابن الملك]

في 12/20/2015 at 09:58, الشيباني1 said:

اخواني الاعزاء  تحية طيبه  ارجو المساعده بكود او معادله لاظهار مجموع كل قائمه حسب المرفق  مع الشكر

مجموع القوائم.rar

أخى العزيز الشيبانى لعل هذا المقصود 

 

مرفق

مجموع القوائم.rar

[الشيباني1]

اشكرك اخي العزيز على المشاركه ولكن :

 1- لا ارغب بملء فراغات الوكلاء بل تبقى فارغه

 2- في حالة تكرار اسم الوكيل ستختلف النتيجه وحاول ان تضع اسم ( محمد ) في القائمه رقم ( 19 )

مع تحياتي

[ياسر خليل أبو البراء]

أخي الكريم الشيباني هل الأسماء ستكون متتالية دائماً أم أنه ربما يوجد الاسم في جزء آخر من القائمة

ما هو الشرط للجمع خلاف الاسماء ؟؟أم أنك تريد الجمع لكل نطاق صغير حسب وجود الاسم في هذا النطاق؟

[الشيباني1]

اخواني الاعزاء  تم تعديل المرفق حسب الاحتياج ارجو المساعده مع الشكر

مجموع القوائم2.rar

[ياسر خليل أبو البراء]

أخي الكريم الشيباني

جرب الكود التالي

Sub DateTotals()
    Dim I As Long, Tot As Single
    
    For I = Range("G" & Rows.Count).End(xlUp).Row To 6 Step -1
        Tot = Tot + Range("G" & I).Value
        If Range("B" & I).Value <> "" Then
            Range("H" & I).Value = Tot
            Tot = 0
        End If
    Next I
End Sub

 

 

Totals VBA YasserKhalil.rar

[الشيباني1]

استاذنا القدير  روعة وابداع اشكرك جدا وادامك الرحمن لنا منقذا

[ياسر خليل أبو البراء]

أخي الكريم الشيباني

الحمد لله الذي بنعمته تتم الصالحات ..مشكور على دعائك الطيب

وإلى لقاء في موضوع آخر

تقبل وافر تقديري واحترامي