elabassy قام بنشر يوليو 13, 2014 مشاركة قام بنشر يوليو 13, 2014 اريد طريقة تسمية الشيت بدلالة خلية معينة بشرط تحديث اسماء الشيتات اذا تغيرت الخلية في الشيت الاول مثال : اسم الشيت الاول من الخليه A1 1-7 إذن الشيت الثاني 2-7 واذا تغير الشيت الاول مثلا الى 4-7 يصبح الشيت الثاني اتوماتيكيا 5-7 ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يوليو 13, 2014 مشاركة قام بنشر يوليو 13, 2014 السلام عليكم جرب الكود التالي 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 2 رابط هذا التعليق شارك More sharing options...
elabassy قام بنشر يوليو 14, 2014 الكاتب مشاركة قام بنشر يوليو 14, 2014 اخي الفاضل اولا اشكرك على سرعة ردك ولكن عندما قمت بتغيير القيمة في الشيت الاول من الملف المرفق لم يتغير اسم الشيت ولا الشيت التالي انا اريد عند تغيير قيمة الخلية يتغير اسم الشيت الحالي والشيتات التالية ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يوليو 14, 2014 مشاركة قام بنشر يوليو 14, 2014 الملف يعمل ....هل اشتغلت من قبل بملفات فيها اكواد اذا كانت الاجابة لا ...فعل الماكرو في ملفك او ابحث عن مواضيع تفعيل الماكرو في المنتدى رابط هذا التعليق شارك More sharing options...
elabassy قام بنشر يوليو 14, 2014 الكاتب مشاركة قام بنشر يوليو 14, 2014 اسف اخي الفاضل الملف يعمل بالفعل ولك جزيل الشكر والتقدير رابط هذا التعليق شارك More sharing options...
محسن أبومحمد قام بنشر نوفمبر 20, 2014 مشاركة قام بنشر نوفمبر 20, 2014 جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
أحمد مرجان قام بنشر نوفمبر 21, 2014 مشاركة قام بنشر نوفمبر 21, 2014 رائعة يا أستاذ عبد الله بارك الله فيك ويعطيك العافية رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.