طريقة لجمع خلية معينة لكل الصفحات بما فيها الجديدة

[mujeer]

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

أرجو المساعدة لبيان طريقة جمع خلية معينة ثابتة مثلاً (A3) لكل الصفحات بمافيها الصفحات الجديدة ليكون المجموع بصفحة واحدة مع العلم بأن الصفحات كثيرة ولا أريد الطريقة العادية حسب معادلة الجمع بل أريد اذا فتحت صفحة جديدة ان يتم جمع الخلية ذاتها للصفحة الجديدة .

والله في عون العبد ما دام العبد في عون أخيه .

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم




الحل بالملف المرفق



السلام عليكم

Add_Cells.rar

[أبوعبد الله]

اخي الحبيب واستاذي هادي سالم

بارك الله فيك وجزاك خير الجزاء ونفع بعلمك وأثابك . اللهم آمين .

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

[ابو اسامة العينبوسي]

السلام عليكم

خير الكلام ما قل و دل

و خير الاكواد كذلك

مشكور جدا

[mujeer]

السلام عليكم ,

الله يريح بالك ويوسع من رزقك.

هذا هو المطلوب بالضبط يا أخ هادي

[asmo200666]

كود اكثر من رائع فى عمل بسيط ورائع

من راجل رائع

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

[ايوب صابر]

السلام عليكم

استاذ هادي جزاك الله الف خير ونفع الله بك وبعلمك

استفسار بسيط لو تكرمت

اذا كان المراد جمع اكثر من خلية

مثال :

العمل عبارة عن جداول

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

[E6] ,[K6]

[E10] ,[K10]

ايضاً الخلايا

[b18:K18]

هل يوجد كود واضح ومختصر

ولك جزيل الشكر استاذي الفاضل

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

اخى أيوب

الكود التالى يؤدى الغرض

Sub sAdd()
    Range("A3:A5").ClearContents
    For i = 2 To Sheets.Count
        [A3] = [A3] + Sheets(i).Cells(6, "K") + Sheets(i).Cells(6, "E")
        [A4] = [A4] + Sheets(i).Cells(10, "K") + Sheets(i).Cells(10, "E")
        [A5] = [A5] + Application.WorksheetFunction.Sum(Sheets(i).Range("B18:K18"))
    Next
End Sub

مرفق ملف

السلام عليكم

Add_Cells_01.rar