أخي الكريم ابن الملك
إليك الكود التالي لعله لا يكون المطلوب بشكل كامل كما أردت ولكن قد يكون مفتاح للحل ..حيث أن صفحات ورقة العمل الواحدة تختلف حسب إعدادات الطابعة المنصبة لديك .. ولو غيرت الطابعة ربما تختلف إعدادات الصفحة
عموماً إليك الحل التالي يعتمد على النطاق المحدد ..أي قم بتحديد النطاق أولاً ثم تنفيذ الكود ليتم تصديره إلى مصنف جديد
Sub Copy_Selected_Range_As_New_Workbook()
Dim a As Range, rng As Range
Application.ScreenUpdating = False
Set rng = Selection
ActiveSheet.Copy
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Columns.Hidden = False
Rows.Hidden = False
Cells.ClearContents
For Each a In rng.SpecialCells(xlCellTypeVisible).Areas
Range(a.Address).Value = a.Value
Next a
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\YourFileName.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub
تقبل تحياتي
Export Selected Range To New Workbook YasserKhalil.rar