تغيير اسم sheet

[ابو العلاء]

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

[الحسامي]

السلام عليكم

اخي العزيز استخدم الكود التالي وضعه في حدث الصفحة Change

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("a1")) Is Nothing Then

ActiveSheet.Name = Target

End If

End Sub

وهنا مرفق مثال

تغيير اسم الصفحات.rar

[ابو العلاء]

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

[عبد الفتاح كيرة]

جزاك الله خيرا على الكود

ماذا لو كانت الخلية A1 فارغة؟

أضفت السطر التالى للكود

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("a1")) Is Nothing Then '-------------------------------

On Error GoTo 1

ActiveSheet.Name = Target

1 End If

End Sub

و من علمكم نستزيد

بارك الله فيك

[الحسامي]

السلام عليكم

نعم اخي كيماس كلامك صحيح ويمكنك كذلك تعديل هذه الجزئية من الكود فقط

If Not Intersect(Target, Range("a1")) Is Nothing Then

الى الكود التالي

If Not Intersect(Target, Range("a1")) Is Nothing And Target <> "" Then