adil8888

السلام عليكم ورجمة الله وبركاته السادة المحترمون لو كنت فاتح اكثر من برنامج في بيئة اكسل وحبيت اغلق واحد منهم وفق الكود ActiveWorkbook.Save Application.Quit سيقوم باغلاق جميع البرامج والشيتات الاكسل دفعة واحدة ..فهل من حل لابقاء الاخريات مفتوحة

اخوتي الاعزاء شكرا لاهتمامكم استخدمت هذا الكود وتجاوزت المعضلة Sub add_sheets() ' add_sheets macro & sheets rename Dim x As Integer Dim myR As Variant myR = ("k1:k369") 'we can chenge the range that we neded For Each myR In Range("k1:k369") For x = 1 To 369 Sheets("Sheet1").Select Sheets("Sheet1").Copy Before:=Sheets(1) Sheets("sheet1").Select myR.Select Selection.Copy Sheets("Sheet1 (2)").Name = myR(x) Next Next myR End Sub

ارجو المساعدة في كتابة كود يعمل على انشاء اوراق عمل وتغير اسمائها استنادا الى قائمة بالاسماء في sheet1 في الملف المرفق change sheets name اني اواجه مشلكة في كتابة كود اعادة التسمية ... ولكم الشكر change sheets name.xlsx