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

Salem2020 · مارس 1, 2022

السلام عليكم

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

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

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

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

School.xlsm

محمد يوسف ابو يوسف · مارس 1, 2022

اخي Salem2020

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

تفضل

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

a.kawkab · مارس 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