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

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


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

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

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

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

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

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

بعد

 Workbooks.Add

 

 

 

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

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

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

 

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

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

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

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

 

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

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

تفضل 

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

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

 

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

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

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

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

الله بحفضكم ويرزقكم بما يرضاه ويطيب قلوبكم

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

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

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

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

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

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

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

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

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

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

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

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

2022-02-26 (1).png

2022-02-26.png

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

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

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

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

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

 

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

تم تعديل بواسطه محمد يوسف ابو يوسف
رابط هذا التعليق
شارك

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

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

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

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

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

@محمد بن صالح

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

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

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

 

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

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

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



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

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

Important Information