كيفية كتابة الإسم فى الخلية على زر الشيت بالأسفل تلقائياً

[بكار للأبد]

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

 

أريد عندما أكتب إسم فى الخلية أن يكتب نفس الإسم تلقائيا فى زر الشيت بالأسفل تلقائياً حتى يكون إسم لهذا الشيت مثلاً عندا أكتب إسم معين فى الخلية يسمى الشيت بالأسفل بنفس الإسم الذى أكتبه بدلاً من (Sheet 1) وإن غيرت الإسم يتغير اسم الشيت تلقائياً

 

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

 

[بكار للأبد]

للرفع

[اسلام سيد]

السلام عليكم

 

الاخ الكريم / بكار

راجع هذا الموضوع فبه طلبك وزياده

 

1- عند كتابة اسم فى خليه =اسم الشيت

2- وبه عند كتابة اسم مكان اسم الشيت يسمع/ =اسم خليه معين

 

http://www.officena.net/ib/index.php?showtopic=51210&hl=

[بكار للأبد]

السلام عليكم

 

معلش يا جماعة أنا مش عارف أحط الكود فين ، لذلك فقد أرفقت لكم الملف ، وأرجو وضع الكود لى بحيث عندما أكتب الإسم فى الخلية (d7 ) يسمى الشيت بنفس الإسم الذى وضعته فى الخلية

11.rar

[اسلام سيد]

السلام عليكم

الاستاذ / بكار

    

 1- اضغط كليك يمين على اسم الشيت

 

 2-ثم اختار view code

 

 3-خذ الكود التالى ، كوبى وضعه بست فى الصفحه المذكوره view code

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

لا تنسى كتابة اسم الخلية التى تريد ان تغير اسم الشيت من خلالها ( وهى ذات اللون الاخضر )

 

وإليك الشيت المرفق

 

اسم الشيت = اسم الخلية.rar

تم تعديل مارس 19, 2014 بواسطه إسلام الشيمي

[بكار للأبد]

لقد وضعت الكود كما تكرمت سيدى ووضحت وبالفعل تم التكرار بنجاح ولكن لأول مرة فقط ولم يفعل مرة أخرى عندما غيرت الإسم فلم يتغير إسم الشيت أى انه فعلها مرة واحدة فقط

مرفق الملف

 

11.rar

[اسلام سيد]

السلام عليكم

 

لابد من حفظ الملف بصيغه الماكرو Excel macro_Enableed workbook

ويصبح الملف باللون الاصفر

 

ولو طلب تفعيل الماكرو عند فتح الشيت ( مستطيل اصفر اعلى الشيت)

تقوم بالضغط عليا ليفعل

 

اى استفسار انا تحت امرك

[بكار للأبد]

جزاك الله كل خير على جميل صبرك وجام كرمك وواسع صدرك

[اسلام سيد]

جزاك الله كل خير على جميل صبرك وجام كرمك وواسع صدرك

 

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

 

الحمد لله الذى بنعمته تتم الصالحات

 

لا تنسانا من صالح دعائك بظهر الغيب