ورقة العمل اسمها (صفحة) احتاج نسخها لاكثر من 400 نسخة وفي كل نسخة يجب ادخال بيانات جديدة تختلف عن الاخرى ثم ترحيل البيانات الموجودة فيها كما موضح الى شيت 2 وان تكون اسفل البيانات القديمة التي تم ترحيلها سابقا لكن عند نسخ الصفحة بالضغط على زر اضافة صفحة جديدة لا يقوم الكود بالترحيل من الصفحة الجديدة لان اسم الشيت بعد نسخ الصفحة قد تغير الرجاء المساعدة لحل هذا الاشكال وجزاكم الله خيرا
السلام عليكم
الحل فى الكود ان يتم تغيير الجمله
الى
Set ws = Sheets(ActiveSheet.Name)
سيتم استعمال الشيت الحالى ايا كان اسمه فى تحديث البيانات
تحميل محتوى الموضوع
عرض نسخة صالحة للطباعة
أرسل هذا الموضوع إلى صديق
