كود إنشاء ملف جديد من ملف موجود

[nisshaheen]

السلام عليكم أساتذي الكرام 

بفضل من الله وبالمثابرة توصلت إلى ملفي الذي كان لكم الفضل من بعد الله في نجاحه وخروجه بهذه الصورة ولا يخلو الامر من بعد النواقص

كل ملف ينشئ صفحات تلقائية بتاريخ اليوم الحالي والشكر موصول للأستاذ Ali Mohamed Ali  في مساعدتي بعمل الكود وتلوين تبويب الصفحات على حسب اختيار من القائمة المنسدلة وقمت بإنشاء كود ليتم ترحيل بيانات كل يوم إلى الصفحة الرئيسية (Main of Month) وعند الوصول إلى نهاية الشهر قمت بوضع دالة التاريخ الحالي وتم ربطها بكود مع اسم تبويب الصفحة وإذا وصلنا إلى نهاية الشهر لا يسمح لي بإضافة صفحات جديدة إلى ملف العمل ويبقوم بإنشاء ملف جديد باسم معين بالإضافة إلى الشهر الحالي وإلى هذا الحد يعمل بدون مشاكل والحمد لله.

المشكلة الوحيدة هي الملف الجديد يأخذ كل بينانات وتنسيق الملف القديم ولكن للأسف بدون الماكرو الموجود في الملف القديم وهناك بعض المعادلات التي تم تعريفها مني أنا لم ينسخها ويظهر في مكانها #Name?

قمت بالبحث ووجدت كود يعمل على نسخ جميع أكواد الماكرو الموجودة في ملف إلى ملف آخر وقمت ببعض التعديل عليه لكن واجهتني مشكلة عند تنفيذه بأنه لم يعمل على نسخ الماكرو.

فلجأت من بعد الله إليكم بعد ما عجزت

وشكرا

‫Accountent test date.xlsm

[أحمد يوسف]

ما تطلبه ليس هيناً ولكنه من الصعب عمله

[nisshaheen]

شكرا استاذ احمد لردك باذن الله لن يصعب الأمر عليكم عباقرة هذا المنتدى وسنحاول ان شاء الله إيجاد الحل

[nisshaheen]

أخي الفاضل الأستاذ أحمد

لقد وجدت الحل بعد البحث الطويل والكثير من الجهد والتعب لكن الأمر ليس بالهين كما أشرت حضرتك ولا يخلو الأمر من الصعاب والمشاكل وأنا الآن أواجه أهمها :

لقد تم بفضل الله نسخ جميع الأكواد بما فيها الموجودة في (this workbook) لكن لم يأخذ نسخة من ملفي وتنسيقي بل قام بإنشاء ملف جديد فارع تماما وأعلم أن في الكود سطر يطلب إنشاء مصنف  وليس نسخ من مصنف موجود حاولت في هذه النقطة لكن دون جدوى والآن أضع الملف والأكواد بين أيديكم لمساعدتي في حل المشكلة ولتعم الفائدة للجميع

وهناك مشكلة أخرى قمت بعمل حساب عدد التبويبات الملونة لكل ورقة عمل على حسب اللون ونجحت والحمد لله بعمل العداد وإرجاع كل لون بجانب العدد وتنسيق شرطي وما المقصود من كل لون وتم التنفيذ بنجاح طبعا الكود أشرت فيه إلى الصفحة الرئيسية Main of Month تفاجأت أنه على حسب النطاق المشار إليه في الصفحة الرئيسية يكرر كود الألوان بالرغم أني حددت له النطاق ضمن الورقة المشار إليها

أرجو الرد والتعديل على الكود لإنجاز المطلوب وشكرا

‫Accountent test date.xlsm

[nisshaheen]

للرفع