هل يمكن انشاء كود جلب اسم الشيت بهذا الشكل

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخوة الكرام والاساتذه العظام

هل يوجد كود بيحث يقوم عند انشاء اى صفحه جديده فى الملف

بكتابه اسم الشيت فى الخليه F1 فور انشاء الصفحه الجديده

 

...

هل يوجد طريقة يتم بها وضع كود تلقائى فى حدث الشيتات التى سيتم انشائا جديد ؟؟؟

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

[إبراهيم ابوليله]

اخى ابوحنين

ضع هذا الكود

Private Sub Workbook_NewSheet(ByVal sh As Object)
Range("F1") = ActiveSheet.Name
End Sub

فى حدث

ThisWorkbook

تقبل تحياتى

[ياسر خليل أبو البراء]

تسلم يا أخي إبراهيم

سطر بسيط وروعة..أنا دائما أعشق البساطة ..

[۩◊۩ أبو حنين ۩◊۩]

الاخ الكريم ابو ليلة

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

الكود يعمل بصوره جيده

انى الان غفلت عن ذكر الاتى

بتم انشاء الشيت عن طريق كود 

يقوم بنسخ اخر شيت ويقوم بتغير اسمه حسب المعطى

وعند وضع الكود الذى ارسلتة لى

واحداث شيت جديد لا يظهر اسم الشيت فى الخليه المراده

[۩◊۩ أبو حنين ۩◊۩]

الاخ الكريم ابراهيم ابو ليلة

وجت كود من عملك ايضا

وقام بالمهمة المرجوة

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

 

()Private Sub Worksheet_Activate
Range("A4") = ActiveSheet.Name
End Sub

[إبراهيم ابوليله]

اخى ياسر

اشكرك على الكمات الجميله

تقبل تحياتى

[إبراهيم ابوليله]

اخى ابو حنين

اتمنى لك التوفيق

تقبل تحياتى