مساعدة في ايجاد ناتج جمع خلية في عدة صفحات بواسطة vba

[hayyan alaa]

اسعد الله اوقاتكم اساتذتنا الافاضل

ارغب في مساعدتكم في ايجاد كود لجمع خلية من عدة شيتات بواسطة vba

لقد قمت بتحديد اربع خلايا اثنتان منها تدل على اسماء الصفحات المراد الجمع منها و خلية لتحديد الخلية الهدف و خلية لاظهار الناتج

بحيث اتمكن من تحديد مجال الصفحات (من اي صفحة الى اي صفحة) كما ارغب

و ارفق ملف عله يوضح المطلوب

دمتم بخير

جمع.xlsm

[سليم حاصبيا]

جرب هذا الماكرو

Option Explicit

Sub my_sum_By_Chosen_Sheets()
    Dim s#, k%, t1%, t2%
    On Error GoTo Leave_me_Out

t1 = Sheets(Sheets("mn").Range("a15").Value).Index
t2 = Sheets(Sheets("mn").Range("b15").Value).Index
  For k = Application.Min(t1, t2) _
          To Application.Max(t1, t2)
    s = s + IIf(IsNumeric(Sheets(k).Range(Sheets("mn").Range("C15"))), _
    Sheets(k).Range(Sheets("mn").Range("C15")), 0)
  Next
    Sheets("mn").Range("d15") = s
    Exit Sub
Leave_me_Out:
   MsgBox "Check Please the Addrees And The Sheet's Names" & Chr(10) & _
   "In The Range(A15:C15)"
End Sub

الملف للمعاينة مرفق

 

 

sum_from_multy_sheet.xlsm

[hayyan alaa]

استاذ سليم صار لازم نقلك بروفيسور انت رائع و  شكرا كتير كتير

كنت متخيل ان الموضوع ابسط من هيك "طبعا هوي بسيط بالنسبة لك ولكن بالنسبة الي شي كبير" لهيك 

بطمع كمان بشرح الكود منك اذا امكن وكان وقتك بيسمح وخاصة فرض المتغيرات

يا راااائع انت

[سليم حاصبيا]

اعتذر عن شرح الكود لضيق الوقت حصراً

لكن لعل احد من الأعضاء الناشطين (الاستاذ علي مثلاً) يتولى هذه المهمة

[hayyan alaa]

ما في مشكلة استاذ سليم

عكل حال مشكوووور جدااا

وانا مقدر ضيق وقتك و حجم عملك

[سليم حاصبيا]

اقترح ان تدرج شرح هذا الكود في مشاركة مستقلة كي يطلع عليه الأعضاء ويقوم احدهم بشرحه