تسمية الشيت بدلالة خلية

[elabassy]

اريد طريقة تسمية الشيت بدلالة خلية معينة

بشرط تحديث اسماء الشيتات اذا تغيرت الخلية في الشيت الاول

مثال :

اسم الشيت الاول من الخليه A1

1-7 إذن الشيت الثاني 2-7

واذا تغير الشيت الاول مثلا الى 4-7 يصبح الشيت الثاني اتوماتيكيا 5-7

 

ولكم جزيل الشكر

[عبدالله باقشير]

السلام عليكم

 

جرب الكود التالي

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As Integer, t1 As Integer
Dim t2
On Error GoTo 1
If Target.Address = [c3].Address Then
    t1 = Split(CStr(Target), "-")(0)
    t2 = Split(CStr(Target), "-")(1)
    For s = 1 To Sheets.Count
        Sheets(s).Name = t1 & "-" & t2
        t1 = t1 + 1
    Next
End If
1
End Sub

المرفق 2003

 

 

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

[elabassy]

اخي الفاضل

اولا اشكرك على سرعة ردك

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

لم يتغير اسم الشيت ولا الشيت التالي

انا اريد عند تغيير قيمة الخلية يتغير اسم الشيت الحالي والشيتات التالية

ولكم جزيل الشكر

[عبدالله باقشير]

الملف يعمل ....هل اشتغلت من قبل بملفات فيها اكواد

اذا كانت الاجابة لا ...فعل الماكرو في ملفك

او ابحث عن مواضيع تفعيل الماكرو في المنتدى

[elabassy]

اسف اخي الفاضل

الملف يعمل بالفعل

ولك جزيل الشكر والتقدير

[محسن أبومحمد]

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

[أحمد مرجان]

رائعة يا أستاذ عبد الله بارك الله فيك ويعطيك العافية