ترحيل بيانات شيت إلي ملف آخر بشرط

[حماده سعد الله]

أحبابي في الله أريد منكم المساعدة

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

كشف اسماء طالبات الاعداديةة2016 2ج.rar

[سليم حاصبيا]

جرب هذا الملف

تم جماية المعادلات لعدم العبث بها عن طرق الحطأ

كلمة السر للتعديل 123

كشف اسماء طالبات الاعداديةة2016 2ج salim.rar

تم تعديل يناير 31, 2016 بواسطه سليم حاصبيا

[حماده سعد الله]

شكرا جزيلا الأخ الفاضل سليم علي المجهود والعمل الرائع ولكن يبدو أنني لم أوضح المطلوب جيدا 

كل ما أقصده هو نقل أو ترحيل جميع البيانات والجداول والتنسيقات من شيت إلي ملف جديد بدون ظهور المعادلات أو وجود ارتباط مع الملف الأصل 

[ياسر خليل أبو البراء]

أخي الكريم حماده سعد الله

جرب الكود التالي عله يفي بالغرض

Sub ExportActiveSheet()
    Dim WB As Workbook, WS As Worksheet
    Set WS = ActiveSheet
    
    Application.DisplayAlerts = False
        If WB Is Nothing Then
            WS.Copy
            ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
            Set WB = ActiveWorkbook
            
            If Dir(ThisWorkbook.Path & "\ExportedWB.xlsx") <> "" Then
                MsgBox "Workbook 'ExportedWB' Is Already Existing", vbCritical
                WB.Close False
            Else
                WB.SaveAs Filename:=ThisWorkbook.Path & "\ExportedWB.xlsx"
                WB.Close True
                MsgBox "Workbook Exported In The Same Path ...", 64
            End If
            
        End If
        
        Set WS = Nothing
        Set WB = Nothing
    Application.DisplayAlerts = True
End Sub

تقبل تحياتي