عند الاستعلام عن اسم تظهر معه خلاصة المبالغ

[ابو عبدالرحمن البغدادي]

السلام عليكم 

سلمكم الله من كل سوء

عملت ماكرو للاستعلام عن اسم

ممكن عند الاستعلام تظهر مجاميع المبالغ

وكما مبين بالملف المرفق

الاستعلام عن اسم وظهور مجموع المبالغ.rar

[الصـقر]

تفضل اخى الكريم

اضف هذه الاسطر قبل نهاية الكود

        lr = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row
        Cells(lr + 1, 7).FormulaR1C1 = "=SUM(R11C7:R[-1]C)"
        Cells(lr + 1, 8).FormulaR1C1 = "=SUM(R11C8:R[-1]C)"
        Cells(lr + 1, 9).FormulaR1C1 = "=SUM(R11C9:R[-1]C)"
       

تقبل تحياتى

[ابو عبدالرحمن البغدادي]

السلام عليكم - سلمك الله وحفظك أخي الصقر على الرد السريع

ظهرت الرسالة التالية المبينة بالصورة

[الصـقر]

تفضل اخى الكريم

المرفق به التطبيق

تقبل تحياتى

الاستعلام عن اسم وظهور مجموع المبالغ.zip

[ابو عبدالرحمن البغدادي]

السلام عليكم

هو المطلوب

جزيت خيرا

مشكور استاذ