كود لعمل نسخة احتياطية

[ابا اسماعيل]

ارجو المساعدة في تعديل هاد الكود شرح في المرفيق

2015..zip

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

أخي الكريم أبا اسماعيل

إذا أردت أن يشارك إخوانك في الموضوع فكن عملي ... ذكرت أن هناك كود يحتاج لتعديل وعندما فتحت الملف وجدت أكواد لا حصر لها ..

عند إرفاق ملف يرجى عدم إرفاق كل الاكواد بل الكود المراد التعديل عليه فقط .. هذه نقطة

 

نقطة أخرى يرجى توضيح المطلوب بشكل أكثر تفصيلاً حتى يتمكن الأخوة الأعضاء من تقديم المساعدة ..

الرجاء التوضيح ثم التفصيل ثم الملف المرفق معبر عن المطلوب تماماً ..

لا أحب حلول التخمين .............. .............. تقبل تحياتي

[ابا اسماعيل]

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

 

 

 

Microsoft Excel.zip

[اسلام رجب]

فيديو بسيط 

[ابا اسماعيل]

بارك الله فيك اخي الكريم islamragab

 

اريد كود عمل نسخة احتياطية

 

بي اسم المشتاري

 

وبي التاريخ

 

في دسك D

عندا الحفظ يكون الملف متل هكذاشكل

 

محمد  12,7,2015

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

أخي الكريم أبا إسماعيل ..

هل اطلعت على الفيديو الرائع للأخ المتميز إسلام رجب

قمت بتنفيذ الكود الموجود في الفيديو مع الإضافات البسيطة اللازمة لتوافق طلبك

جرب الكود بهذا الشكل

Sub CreateBackup()
    ThisWorkbook.SaveCopyAs Filename:="D:\" & Range("E5").Value & "_" & Replace(Range("E3"), "/", "_") & ".xlsm"
End Sub

[ابا اسماعيل]

بارك الله فيك اخي ياسر لمساعدتك كود رائع اخي الكريم لكن يوجد خطاء هد الرسلة في الكود

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

لا أدري ما سبب الخطأ قد يكون السبب في اختلاف إصدار الأوفيس ..

أنا أعمل على أوفيس 2013 والكود يعمل بشكل ممتاز ..

ننتظر تجربة الأعضاء للكود فلربما تكون المشكلة في الملف الأصلي لديك

[ابا اسماعيل]

انا اعمل على اوفيس 2010

هل من حل اخي ياسر انا احتاج لي هد الكود في عمالي ماالحل اخي الكريم جزاك الله خير

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

ها هي المشكلة التي وضعت يدي عليها ...

الملف المرفق في المشاركة رقم 3 غير معبر عن الملف الأصلي ..

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

عموماً جرب الكود بهذا الشكل وإن شاء الله تنحل مشكلتك

Sub CreateBackup()
    ThisWorkbook.SaveCopyAs Filename:="D:\" & Range("E5").Value & "_" & Replace(Format(Range("E3"), "yyyy/mm/dd"), "/", "_") & ".xlsm"
End Sub

[ابا اسماعيل]

اخي ياسربارك الله فيك وجعله في ميزان حسناتك اسأل الله العظيم ان يسعدك في دنيا وآخره وان يحقق لك كل شي تتمنوه وييسر لك كل صعب هذامستطيع ان اكفيك به الى هذا دعاء اخي الكريم