مطلوب معادلة لسحب الزبون من عدة صفحات

[الـمـاتادور]

السلام عليكم
لدي ملف فيه الصفحات كالتالي
الصفحة الاولى لجمع حسابات الزبائن
الصفحة الاخيرة ارشيف 
مابينهما يبدأ كل شهر بالصفحة 1 وهي عبارة عن اول يوم بالشهر ثم كل يوم اضيف صفحة تمثل تاريخ اليوم التالي وهكذا حتى 30 او 31 حسب الشهر
المطلوب معادلة في صفحة الحسابات تجمع لي سحب الزبون من ضفحات العمل من (1) الى الصفحة ماقبل صفحة الارشيف 
وهذا مرفق مبسط للملف
وشكرا سلفا

11111111.rar

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

ALL_data.xlsm

[الـمـاتادور]

الف شكر لك استاذ سليم ولتجاوبك السريع
لكن احتاج معادلة الماكرو ليس حلا لان الملف فيه 7 جداول اخرى غير هذا الجدول كما ان الصفحة الاولى ثابتة لان الحساب والمعادلات ستكون فيها والصفحة الاخيرة الارشيف ثابتة ايصا لان فيها بيانات الزبائن والمشلكة الاساسية اللتي توقف عندها هي ان صفحات الملف ستتزايد حتى نهاية الشهر يعني ستصل الى 30 او 31 صفحة بين صفحة الحسابات الاولى وصفحة الارشيف الاخيرة

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

مهما تزايد عد الصفحات الماكرو ياخذها كلها وأي زبون زاد او نقص في اي صفحة يتم التعديل على البيان النهائي

جرب ان تزيد ععد الصفحات وادراج زبائن جديدة او قديمة (لكن ابتداء من الخلية B3) من كل صفحة  مع الاحتفاظ بعنوان للجدول (الصف الأول) ونفذ الماكرو

بالمعادلات من سابع المستحيلات فعل ما تريد

[الـمـاتادور]

مشكلتي مع الماكرو انه في حال ادراج صفحة جديدة فلن تتحدث حسابات الزبائن الاعند تنفيذ الماكرو لذلك اسعى وراء المعادلة لانه بالمعادلة بمجرد تنزيل يوم جديد وتنزيل سحب الزبائن ساحصل على النتيجة اول باول 

ومشكلة اخرى ان الملف اعقد من ذلك بكثير انا رفعت ملف مبسط وفي حال اعتمدت الماكرو كحل سيكون من الصعب علي تطبيقه على كافة جداول الملف لان خبرتيبال vba ضئيلة جدا 
انا كنت اعمل اصلا على ملف جدول الحسابات فيه في كل صفحة من 1 الى 30 والملف اصبح مثقلا بالمعادلات واحاول الان تصيم ملف جديد تكون الحسابات فيه محصورة بصفحة واحدة على اعتبار ان جدول الحسابات يتكرر نفسه في كل صفحة وسحب الزبائن هو المتغيير من هنا جائتني هذه الفكرة لماذا ابقي على جدول الحسابات في كل صفحة 
والحقيقة انا الماكرو حل رائع لكن انا لست قادرا على تطبيقه 


 

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

في هذا الملف تتحدث البيانات كلما فتحت صفحة Archive ولا لزوم للضغط على الزر

ALL_data_auto.xlsm

[الـمـاتادور]

الف شكر يا استاذ
والله اعجز عن شكرك
سأحاول ان افهم الكود واطبقه على باقي الجداول 
ولكن سؤال اخير هل سأفقد بهذه الطريقة ميزة التراجع بالملف؟؟

 

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

اي كود في عالم  الــVBA   لايسمح بالتراجع

لكن اذا اردت التعديل على اي شيء (اضافة سجلا ت ، حذف سجلات ، اوتعديل على الاسماء او القيم ...الخ) يمكنك القيام بذلك ثم العودة  الى شيت Archive فتتعدّل النتائج تلقائياً

[الـمـاتادور]

يعني باقي الصفحات لن تفقد ميزة التراجع فقط الصفحة اللتي فيها حدث الصفحة هي اللتي ستفقد الميزة ؟؟؟