Salem2020 قام بنشر مارس 1, 2022 مشاركة قام بنشر مارس 1, 2022 السلام عليكم المصنف المرفق يحتوي على 9 شيتات مرقمة من 2 إلى 10 قمت بعمل زر في الشيت الأول والذي يحمل الرقم 2 بحيث يقوم بتصدير جميع الشيتات الملونة بالأحمر وفتحهم في نافذة جديدة بعيدا عن بقية الشيتات تمهيدا لحفظهم بشكل مستقل ولكن المشكلة أن هذا الزر يقوم فقط بتصدير الشيت الحالي وأنا ارغب بأن أصدر جميع الشيتات باللون الأحمر ( 2 – 4 – 6 – 8 – 10 ) بحيث تفتح جميعها في ملف واحد هل يستطيع أحد إفادتنا عن الاكواد المطلوب إضافتها للزر لعمل المطلوب ولكم خالص الود والتقدير School.xlsm رابط هذا التعليق شارك More sharing options...
محمد يوسف ابو يوسف قام بنشر مارس 1, 2022 مشاركة قام بنشر مارس 1, 2022 اخي Salem2020 بما انك لم تستخدم اله البحث في المنتدي تفضل طلبك هنا نموذج كنترول (1).xlsm718.6 kB · 7 downloads 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة a.kawkab قام بنشر مارس 1, 2022 أفضل إجابة مشاركة قام بنشر مارس 1, 2022 وعليكم السلام تفضل اخى الكود .... مرفق الملف Sub export_sheets() Dim Fname As String, ws As Worksheet Application.DisplayAlerts = False Sheets(Array("2", "4", "6", "8", "10")).Copy For Each ws In ActiveWorkbook.Sheets ws.UsedRange = ws.UsedRange.Value Next ws ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "schoolclass " & NM, FileFormat:=51 ActiveWorkbook.Close Application.DisplayAlerts = True MsgBox "Done...", 64 End Sub School.xlsm 1 رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر مارس 1, 2022 مشاركة قام بنشر مارس 1, 2022 @a.kawkab هل من سبب انك لا تشير الى صاحب الجهد لهذا الكود الذي اخذته من هذا الموضوع المشابه وقمت بتعديل اسماء الشيتات https://www.officena.net/ib/topic/113326-تسمية-الملف-بإسم-الأسبوع-والسنة-تلقائيا-عند-الحفظ/ 🤔 3 رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر مارس 1, 2022 مشاركة قام بنشر مارس 1, 2022 هذا الكود تم وضعه قبل يومين من طرف أستاذنا الفاضل عبد الفتاح كود رائع وشغال 100% رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر مارس 1, 2022 مشاركة قام بنشر مارس 1, 2022 ياريت لو في استطاعت أحد من الأستاذة الأفاضل التعديل على الكود . حيث نستطيع تسمية الشيتات المستخرجة بإسم آخر غير الأصلي يعني لو في المصنف الأول كان اسم الشيت sheets 1 وبعد النسخ في مصنف آخر عاوز يكون اسمه مثلا مبيعات1 وهكذا مع جميع الشيتات المنسوخة رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر مارس 1, 2022 مشاركة قام بنشر مارس 1, 2022 @Hicham1470 هذا الموضوع تم حله قم باصدار منشور جديد لتجد تفاعل اكثر من باقي الاعضاء 😉 1 رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر مارس 2, 2022 مشاركة قام بنشر مارس 2, 2022 شوف ده ممكن يساعدك copy Sheets.xlsm رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر مارس 2, 2022 مشاركة قام بنشر مارس 2, 2022 @Hicham1470 الم تقرأ منشوري الاخير 😡 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان