نسخ من ورقة لمصنف جديد بشروط

[محمد بن صالح]

السلام غليكم 
الاخوة ارجو المساعدة في اكمال الكود او تصحيحة 
بحيث ما اريدة هو ان يقطع ارتباط البيانات وان تكون بدون دوال او معادلات بعد ترحيل البيانات للمصنف الجديد وان تحفظ بصيغة xlsx 
مع جزيل الشكر والتقدير

نسخ من ورقة لمصنف جديد بشروط.xlsm

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

اخي محمد بن صالح

السلام عليم 

تفضل نسخ من ورقة لمصنف جديد بشروط (1).xlsm

[محمد بن صالح]

جيد جداً
لكن هل ممكن الاحتفاظ بتنسيق الخلايا والحدود عند التصدير
مع الشكر الجزيل اخي ابو يوسف 

[عبدالفتاح في بي اكسيل]

مجرد  اقتراح  ضع   هذا  السطر 

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

بعد

 Workbooks.Add

 

 

 

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

اخي محمد بن صالح

نعم ممكن

تفضل نسخ من ورقة لمصنف جديد بشروط.xlsm

[محمد بن صالح]

الف شكر لك اخي : محمد يوسف ابو يوسف
وشكراً لاخ  عبدالفتاح في بي اكسيل

استفسار اخير بعد اذنكم 
هل ممكن ان يتم حفظ الملف بصيغة xlsx
مع خالص التحية والتقدير
 

[عبدالفتاح في بي اكسيل]

لا تكثر  من اضافة  طلب  جديد  في  كل  مرة  سيجعل  الاعضاء  غير  متحمسين  لتقديم  المساعدة 

انظر الى  هذه  السطر  وغير  xlsm .  الى xlsx .

ActiveWorkbook.SaveAs Filename:="E:\العمل\" & "التقرير لتاريخ " & Format(Date - 1, "DD-MM-YYYY") & ".xlsm", FileFormat:= _

 

[محمد بن صالح]

جربت اعدل الصيغة لكن تطلع لي رسالة خطأ
:'Run-time error '1004

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

اخي  محمد بن صالح

تفضل 

Sub export_specificsheet()


    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:="E:\العمل\" & "التقرير لتاريخ " & Format(Date - 1, "DD-MM-YYYY") & ".xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    ActiveWindow.Close
    Range("a1").Select
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

الملف نسخ من ورقة لمصنف جديد بشروط.xlsm

اخي الملف يعمل بكفائة لدي

 

اخبرني بالنتيجة

[محمد بن صالح]

حاولت فية ايضا ولكن يبدون انة لايقبل الا xls و xlsm بدون اخطاء 
اكتفيت بما سبق ولو كنت اطمح للمزيد

شكرا لكم على تعاونكم ومساعدتي اخي
محمد يوسف ابو يوسف
عبدالفتاح في بي اكسيل
الله بحفضكم ويرزقكم بما يرضاه ويطيب قلوبكم

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

أخي محمد بن صالح

هل انت تستخدم الملف المرفك ام تقوم بنسخ الكود

ما اصدار الاوفيس لديك

اخي محمد بن صالح

اذا كنت  لا تريد شئ اخر 

1:يجب عليك انهاء الموضوع بالضغط علي افضل اجابه   :  لمن قدم اليك طلبك

جزاك الله خيراً

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

طلبك بالفعل اخي

يعمل 

[محمد بن صالح]

وعليكم السلام تم اختيار افضل اجاية من قبل 
اشكركم
نوع الاوفيس 2016 
الكود ما يعمل عندي بدون ما تنفتح الورقة  تطلع لي رسالة خطا لكن 
عادي حصل على اغلب ما طلبتة منكم 
اشكركم الشكر الجزيل على تعاونكم جميعاً

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

اخي محمد بن صالح

ممكن ترسل ليه المشكلة بتوضيح اكثر

حتي اقوم بحلها لك

[محمد بن صالح]

اخي محمد محمد يوسف ابو يوسف
بالصور المرفقة تبيان المشكلة بصيغة xlsx حيث تصدر برسالة خطأ وايضاَ تصدر الورقة باسم (المصنف) ولاتكون محفوظة بنفس المسار المحدد
مع خالص التحية والتقدير

تصدير التقرير اليومي.xlsm

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

اخي  محمد بن صالح

تم ازالة الخطأ

تفضل تصدير التقرير اليومي.xlsm

 

اخبرني بالنتيجة

تم تعديل فبراير 26, 2022 بواسطه محمد يوسف ابو يوسف

[محمد بن صالح]

اخي محمد يوسف ابو يوسف
الخلل بالكود    ActiveWorkbook.SaveAs Filename:="E:\العمل\" & "التقرير لتاريخ " & Format(Date - 1, "DD-MM-YYYY") & ".xlsx"
حيث لايتم حفظ الورقة الا بماكرو او نوع اكسل القديم xls
ولا استطيع تصديرها بصيغة xlsx 
مع جزيل الشكر والتقدير

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

اخي انت تخطأ اسناء نسخك للكود

فمن فضلك قم بتحميل الملف المرفق ثم اضغط علي الزر ثم انظر مذا يحدث لن تجد هذا الخلل

[عبدالفتاح في بي اكسيل]

@محمد بن صالح

اعتقد  انك  محق  بخصوص  الخطا  

جرب هذا  سيعمل  معك قم  بتغيير من 

ActiveWorkbook.SaveAs Filename:="E:\التقرير لتاريخ" & "\العمل " & Format(Date - 1, "DD-MM-YYYY") & ".xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

الى

ActiveWorkbook.SaveAs Filename:="E:\التقرير لتاريخ" & "\العمل " & Format(Date - 1, "DD-MM-YYYY") , _
        FileFormat:=51, CreateBackup:=False

 

[محمد بن صالح]

اخيرا نعم اخي عبدالفتاح في بي اكسيل

ضبط 

الف شكر لكم جميعاً ما قصرتوا انت والاخ محمد يوسف ابو يوسف

[عبدالفتاح في بي اكسيل]

رائع شكرا  على تفاعلك  😉