اسم الشيت يساوي خليه في الشيت نفسه وتتغير مع تغيير الخلية

[عبد الرحمن شفيق]

السلام عليكم

الاساتذة الكرام

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

مثلا الخلية A1 كما في الملف المرفق

جزاكم الله خيرا

 

 

 

تغيير اسم الشيت.rar

[حمادة عمر]

السلام عليكم

الاخ الكريم / عبد الرحمن شفيق

بارك الله فيك

يمكنك اخي الكريم تنفيذ ذلك من خلال الكود التالي

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then ActiveSheet.Name = Target.Text
End Sub

جزاك الله خيرا

[عبد الرحمن شفيق]

جزيل الشكر الكبير / استاذي الكبير / حمادة عمر

علي سرعة الرد الرااائعة

ولكن معذرة استاذي الكريم ... فاين يوضع هذا الكود

وياريت لو ارفاق ملف

[حمادة عمر]

السلام عليكم

الاخ الكريم / عبد الرحمن شفيق

بارك الله فيك

يتم وضع هذا الكود اخي الكريم في حدث الشيت نفسه  Worksheet_Change

واليك اخي الكريم ملف مرفق به الكود

تقبل خالص تحياتي

 

 

تغيير اسم الشيت+.rar

[عبد الرحمن شفيق]

بارك الله فيك

استاذنا القدير ... تقبل كل تقديري وشكري

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

اي هل من الصحيح ان أأخذ الكود واضعة في حدث كل الشيتات

هل سيعمل دون اي مشاكل ام يجب تغيير شئ ما في الكود

ومعذره لكثرة طلباتي في الموضوع

ولكني اطمع في كرمكم وعلمكم الغزيز

جزاك الله خيرا

[عبد الرحمن شفيق]

للرفع

[حمادة عمر]

بارك الله فيك

استاذنا القدير ... تقبل كل تقديري وشكري

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

اي هل من الصحيح ان أأخذ الكود واضعة في حدث كل الشيتات

هل سيعمل دون اي مشاكل ام يجب تغيير شئ ما في الكود

ومعذره لكثرة طلباتي في الموضوع

ولكني اطمع في كرمكم وعلمكم الغزيز

جزاك الله خيرا

 

نعم اخي الكريم يمكنك فعل ما تقول بدون اي مشاكل

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

وان شاء الله سيعمل معك دون اي مشاكل

[عبد الرحمن شفيق]

جزاك الله خيرا استاذي الكريم القدير الكبير

حمادة عمر

[حمادة عمر]

جزاك الله خيرا اخي الكريم

تقبل خالص تحياتي

[أبو محمد عباس]

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

اخي وحبيبي الاستاذ ابو سما جزاك الله خيرا

اعمال في قمة الابداع والروعة

جعله الله سبحانه وتعالى في ميزان حسناتك

وفقكم الله ورعاكم وحفطكم من كل سوء

تقبل فائق احترامي وتقديري

[حمادة عمر]

السلام عليكم

الاخ الحبيب / عباس السماوي

بارك الله فيك

والله اخي الحبيب ... ردودك لها وقع خاص في قلبي

وتسعدني كثيرا

تقبل خالص تحياتي

جزاك الله خيرا