تعديل على ماكرو الحذف

[ahmed25]

السلام عليكم

لقد ارفقت ملف اكسيل به ماكرو عند الضغط على زر حذف في صفحة TOTAL يقوم بحذف البيانات من صفحة Project1 & project2 حيث انهمها صفحات ادخال بيانات فقط وترحل لصفحة TOTAL وعلى هذا الوضع يعمل الماكرو وليس به مشكلة لكن المشكلة في حالة تغيير اسم الصفحة فان الماكرو لا يعمل.

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

ولكم جزيل الشكر والاحترام

Ahmed 251.rar

[احمدزمان]

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

اخي احمد

في المرفق يظهر لك مسجبوكس تكتب فيه اسم المشروع المراد مسح بياناته ثم موفق

يتم المسح

اتمنى ان يفي بالغرض

Ahmed 251.rar

[ahmed25]

السلام عليكم

استاذ (احمد زمان) اولا اشكرك على هذا المجهود الرائع.

لكن لو ينفع يكون مسح جميع الصفحات بضغطة زر يكون افضل. يعني ممكن المسح يكون بدلاله اسم الصفحة حتى لو تغير اسمها؟

وشكرا جزيلا

[الحسامي]

السلام عليكم

اخي الكريم هناك اسمان للصفحات

الاسم الاول وهو الظاهر في الشيت نفسها مثلا Project1

الاسم الثاني وهو الاسم الموجود في محرر الفيجول وهو هناSheet2

ويتم تعريف الاسم الاول في الكود كالتالي

Sheets("Project1").Activate

اما الاسم الثاني فيتم تعريفه كالتالي

Sheet2.Activate

وعند استخدام التعريف الثاني وقمت بتغير اسم الصفحة فان ذلك لا يؤثر على عمل الكود وبالتالي يصبح الكود كالتالي

    Sheets(Array(2, 3)).Select

    Sheet2.Activate

    Range("D5:H23").Select

    Selection.ClearContents

    Sheet2.Select

    Range("D5").Select

    Sheet3.Select

    Range("D5").Select

    Sheet1.Select

    Range("D1").Select

اخي احمد زمان بارك الله فيك وجزاك الله خيرا

[ahmed25]

السلام عليكم أخي الكريم ( الحسامي )

اولا لك كل الشكر على هذا المجهود وهذا الحل الجميل.

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

Sheets(Array(2, 3)).Select ولو يوجد اي كتاب او رابط يعلمني الاكواد اكون شاكر جدا