طريقة تصدير الشيتات من مصنف إلى آخر وحفظهم بشكل مستقل

[Salem2020]

السلام عليكم

المصنف المرفق يحتوي على 9 شيتات مرقمة من 2 إلى 10

قمت بعمل زر في الشيت الأول والذي يحمل الرقم 2 بحيث يقوم بتصدير جميع الشيتات الملونة بالأحمر وفتحهم في نافذة جديدة بعيدا عن بقية الشيتات تمهيدا لحفظهم بشكل مستقل ولكن المشكلة أن هذا الزر يقوم فقط بتصدير الشيت الحالي وأنا ارغب بأن أصدر جميع الشيتات باللون الأحمر ( 2 – 4 – 6 – 8 – 10 ) بحيث تفتح جميعها في ملف واحد

هل يستطيع أحد إفادتنا عن الاكواد المطلوب إضافتها للزر لعمل المطلوب

ولكم خالص الود والتقدير

School.xlsm

[محمد يوسف ابو يوسف]

اخي Salem2020

بما انك لم تستخدم اله البحث في المنتدي

تفضل

 

طلبك هنا  نموذج كنترول (1).xlsm718.6 kB · 7 downloads

[a.kawkab]

وعليكم السلام 

تفضل اخى الكود .... مرفق الملف

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

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

@a.kawkab

هل  من سبب  انك  لا  تشير  الى  صاحب  الجهد  لهذا  الكود  الذي  اخذته  من  هذا  الموضوع  المشابه وقمت  بتعديل  اسماء  الشيتات 

https://www.officena.net/ib/topic/113326-تسمية-الملف-بإسم-الأسبوع-والسنة-تلقائيا-عند-الحفظ/ 🤔

 

 

[محمد هشام.]

هذا الكود تم وضعه قبل يومين من طرف أستاذنا الفاضل عبد الفتاح كود رائع وشغال 100% 

 

[محمد هشام.]

ياريت لو في استطاعت أحد من الأستاذة الأفاضل التعديل على الكود . حيث نستطيع تسمية  الشيتات المستخرجة بإسم آخر غير الأصلي 

يعني لو في المصنف الأول كان  اسم الشيت 

sheets 1 وبعد النسخ في مصنف آخر عاوز يكون اسمه مثلا مبيعات1 وهكذا مع جميع الشيتات المنسوخة

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

@Hicham1470

هذا  الموضوع  تم  حله  قم  باصدار  منشور  جديد  لتجد  تفاعل  اكثر  من  باقي  الاعضاء 😉

[محمد هشام.]

شوف ده ممكن يساعدك

copy Sheets.xlsm

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

@Hicham1470

الم تقرأ منشوري  الاخير 😡