اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by a.kawkab,

الردود الموصى بها

السلام عليكم

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

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

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

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

School.xlsm

رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

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

  • Like 1
رابط هذا التعليق
شارك

@a.kawkab

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

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

 

 

  • Like 3
رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information