اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

هل يوجد كود لتعديل اسم ورقة العمل حسب خلية معينة او العكس


الردود الموصى بها

الاخوة خبراء الاكواد

السلام عليكم

(بصراحة ... مللت من كثر ما شكرتكم واثنيت على اعمالكم القيمة بالمنتدى)

لي طلب

عندي سبع ملفات بكل منها حوالي 100 ورقة عمل لكل عميل ورقة منفصلة

السؤال هو

هل يوجد كود معين يغير اسم ورقة العمل حسب خلية معينة (وليكن A1)

او العكس

هل يوجد كود معين يغير بيانات خلية معينة حسب اسم ورقة العمل

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

رابط هذا التعليق
شارك

أخي أبو عمار

هذا الكود يقوم بتغيير اسماء جميع الصفحات حسب قيمة الخلية A1

ارجو ان يكون هو المطلوب

Sub MyTest()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Name = ws.Range("a1").Value
Next ws
End Sub

و دمتم في حفظ الله و رعايته

رابط هذا التعليق
شارك

الاخ / ابواسامة العتيبي

الأخ / عادل حنفي

الأخ / Justice

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

قبل ان اجرب الحلول

لكم مني خالص الشكر والتحية

ودمتم بخير

رابط هذا التعليق
شارك

السلام عليكم

اخي BU3MMAR

جائتني فكرة احضار الاسماء الشيتات من ملف اخي ابو اسامه لاني لم افهم كامل طلبك في بداية طلبك

وتم لعمل ذلك زر اسمه احضار اسماء الشيتات

و ما عليك الا ان تكتب امام الشيت في الخلية التي تقابله في العمود B الاسم الذي تريد التغيير اليه

و الضغط علي الزر الاخر ليتم التغيير

ارجو التجربة و اخباري النتيجة

BU3MMAR2.rar

تم تعديل بواسطه aah_aah2008
رابط هذا التعليق
شارك

سامحني يا اخ عادل

معرفتي بالاكواد تساوي معرفتي باللغة الصينية

الملف اعطاني خطا

لكن الفكرة اللي كنت اقصدها انت كنت نفذتها في ملف العملاء خاصتك وكنت اريد ان اعرف كيفية تحديد المدى الذي سياخذ منه اسماء الشيتات

جزاك الله خيرا وبارك فيك

رابط هذا التعليق
شارك

السلام عليكم

اخي BU3MMAR

لكن الفكرة اللي كنت اقصدها انت كنت نفذتها في ملف العملاء خاصتك وكنت اريد ان اعرف

كيفية تحديد المدى الذي سياخذ منه اسماء الشيتات

اخي هذه هي بالفعل نفس الفكرة

فالزر الاول ياخذ اسماء الشيتات و يضعها في العمود الاول A

و الزر الثاني اذا وجد اسم او رقم في الخلية الموجودة في العمود الثاني و المقابله لاسم الشيت

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

انك تريد اعادة تسمية هذا الشيت

بالذي موجود في هذه الخلية و ان تركت فارغة لن يغير اسم الشيت

ارفقت لك ملف فيديو بشرح العمل مع الملف مرة اخري مع اضافة on error resume next للتماشي مع اي خطأ

مع انني قمت بتجربة الملف اكثر من مره و ليس هناك اي خطأ يذكر

تحياتي

BU3MMAR2.rar

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information