حفظ الملف و التصدير

[Adnan2022]

السلام عليكم و رحمه الله و بركاته ..ارجو المساعدة بماكرو لملف يحتوي على ٤ صفحات sheet 

اريد ماكرو يقوم بتصدير صفحتين شيت محددات  و يقوم بحفظهما بملف لوحده دون معادلات ؟ 

ملاحظة الصفحات تحفظ بملف واحد  ...اتمنى انه الشرح واضح  ..و شكرا لكم 

 

 

[محمد هشام.]

لنفترض انه لدينا ملف يحتوي على ثلاثة أوراق عمل 

shets1_shets2_shets3

يقوم هذا الكود بنسخ وتصدير  شيت 2و3 على سطح المكتب 

Sub export_sheets()
Dim Fname As String, ws As Worksheet
Application.DisplayAlerts = False
Sheets(Array("Shets2", "Shets3")).Copy
For Each ws In ActiveWorkbook.Sheets
ws.UsedRange = ws.UsedRange.Value
Next ws
ActiveWorkbook.SaveAs Filename:= _ "C:\Users\PC Hicham\Desktop\" & "إسم الملف المستخرج" & ".xlsx", FileFormat:=51
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub

لاتنسى تغيير مسار حفظ الملف على حسب الموجود عندك 

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

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

تفضل هذا الملف لأحد الاساتذة .... اتمني ان يلبي طلبك

 

الملف حفظ عدد من الاوراق.xlsm

[Adnan2022]

السلام عليكم و رحمه الله و بركاته 

الاخ @Hicham1470 و الاخ @محمد يوسف ابو يوسف جزاكم الله كل خير 

في ميزان حسناتكم 

الكود يعمل بشكل جيد سلمت يمناكم