ماكرو تعديل اسم ورقة اكسيل

[رفيق محمد]

اخواني الكرامالسلام عليكم ورحمة الله وبركاتهارجوا منكم مساعدتي في هذا الطلب الذي احتاجة بصورة ضرورية واتوقع الا يصعب على اخواني بالمنتدىمطلوب ماكرو لتعديل اسم ورقة الاكسيل لتساوي قيمة خلية معينة وليكن A1 بحيث يعمل هذا الماكرو على ملف فيه اكثر من 100 ورقة لحسابات الموردين والعملاء بحيث يتم تسمية كل ورقة باسم العميل الموجود بالخلية A1مع شرح مبسط لكيفية نقل وتفعيل الماكرو الى ملفيبارك الله فيكم وجزاكم الله خيرا

[يحيى حسين]

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

أخي ابو عمار

 

Sub SheetsName()

Dim WSh As Worksheet

On Error Resume Next

	For Each WSh In ThisWorkbook.Worksheets

    	WSh.Name = WSh.Range("a1").Value

	Next WSh

End Sub

و لكن يجب أن تكون القيمة في المدى A1 غير متشابهه

لان الاكسيل لا يقبل صفحتين بنفس الاسم

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

[رفيق محمد]

بارك الله فيك

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

تم التنفيذ وعملت بنجاااااح

الف شكر