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

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

 

السلام عليكم و حمة الله و بركاته

اخواني الكرام

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

تعديل نسخة احتياطية.zip

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

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

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

أخي الكريم محمد

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

Sub Auto_Save()
    Dim saveDate As Date
    Dim saveTime As Variant
    Dim formatTime As String
    Dim formatDate As String
    Dim backupFolder As String

    saveDate = Date
    saveTime = Time

    formatTime = Format(saveTime, "hh.MM.ss")
    formatDate = Format(saveDate, "DD - MM - YYYY")

    Application.DisplayAlerts = False
        backupFolder = ThisWorkbook.Path & "\"
        ActiveWorkbook.SaveCopyAs Filename:=backupFolder & Replace(ActiveWorkbook.Name, ".xlsm", "") & " " & formatDate & " " & formatTime & ".xlsm"
    Application.DisplayAlerts = True

    MsgBox "Backup Successfully In The Path " & backupFolder
End Sub

تقبل تحياتي

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

بارك الله فيك خي  ياسر خليل أبو البراء وجزاك الله عنا كل خير

لكن اريد عمل نسخة احتياطية في مجلد في ديسك  d

  باسم العامل  الخانة  E5 وتاريخ اليوم هل من طريقة اخي وجزاك الله

 

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

بالنسبة للمجلد في الديسك D قم بتغيير المسار في السطر التالي

backupFolder = ThisWorkbook.Path & "\"

إلى المسار الذي تريده ...

وبالنسبة لاسم العامل في الخلية E5 يمكن إضافة القيمة للخلية في السطر الخاص بأخذ نسخة احتياطية والتاريخ موجود بالفعل

وأوصي بإضافة الوقت حتى لا يتم الكتابة على الملفات التي تم أخذ نسخة احتياطية لها

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

خي  ياسر   كيفية يتم إضافة هد السطر في الكود

بارك الله فيك

backupFolder = ThisWorkbook.Path & "\"

 

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

استبدل السطر بالسطر التالي

backupFolder = "D:\محمد عبدالسلام\"

المسار مأخوذ من الكود الأول في مشاركتك الأصلية (أول مشاركة)

 

لابد أن تتعلم كيفية التعديل بنفسك على الأكواد .. حاول وتعلم (وحتى ولو فشلت آلاف المرات .. لا تيأس)

 

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

اخي ياسروارجو المعذرة هل من طريقة ليتم عمل نسخة احتياطية باسم العامل وتاريخ اليوم لي اناني يوجد لدي اكثرمن 30 عامل اريد عمل نسخة لكل  فاتورة مبيعات

 

 

تم تعديل أغسطس 18, 2016 بواسطه محمد عبدالسلام

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

للإشارة إلى قيمة خلية محددة يمكنك استخدام السطر التالي

Range("E4").Value

واستخدام القيمة داخل السطر الذي يتم فيه أخذ نسخة احتياطية أي وضع السطر السابق داخل السطر التالي

ActiveWorkbook.SaveCopyAs Filename:=backupFolder & Replace(ActiveWorkbook.Name, ".xlsm", "") & " " & formatDate & " " & formatTime & ".xlsm"

 

إذا لم تستطع التعديل وضح بالتفصيل شكل اسم الملف المرغوب بالضبط ..

اسم المصنف يليه مسافة ثم قيمة الخلية كذا ثم تاريخ اليوم ؟؟!!!! بالتفصيل لكي أقوم أنا أو غيري بالتعديل لك (وإن كنت أحبذ أن تقوم بإجراء بعض المحاولات)

 

لاحظ علامة & في السطر الأخير تستخدم للربط ..فمثلاً شرح للسطر الأخير ..يتم أخذ نسخة من المصنف الحالي إلى المسار المحدد من قبل ..

ويكون اسم الملف يلية مسافه ثم التاريخ الحالي ثم مسافة ثم  الوقت الحالي  وأخيراً امتداد المصنف وهو xlsm

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

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

 

 اسم المصنف  فاتورة  يلية مسافه ثم  اسم العامل الخلية E5 تم يلية مسافه  تم التاريخ الحالي الخلية E3 ثم مسافة ثم  الوقت الحالي  وأخيراً إلى المسار " d  "فاتورة" folder 

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

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

جرب الكود النهائي بهذا الشكل

Sub Auto_Save()
    Dim saveDate As Date
    Dim saveTime As Variant
    Dim formatTime As String
    Dim formatDate As String
    Dim backupFolder As String

    saveDate = CDate(Range("E3").Value)
    saveTime = Time

    formatTime = Format(saveTime, "hh.MM.ss")
    formatDate = Format(saveDate, "DD - MM - YYYY")

    Application.DisplayAlerts = False
        backupFolder = "D\فاتورة\"
        ActiveWorkbook.SaveCopyAs Filename:=backupFolder & "فاتورة " & Range("E5").Value & " " & formatDate & " " & formatTime & ".xlsm"
    Application.DisplayAlerts = True

    MsgBox "Backup Successfully In The Path " & backupFolder
End Sub

 

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

جزاك الله خير اخي ياسر خليل أبو البراء  وبارك الله فيك واثابك الله الجنه ان شاء الله

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

وحزيت خيراً بمثل ما دعوت لي أخي العزيز محمد عبد السلام

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

عموماً إن شاء الله في تقدم إلى الأمام

تقبل تحياتي

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

اخي ياسر واجهتني مشكلة هناك خطأ تظهر هذه الرسالة

 

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

قد تكون قد نفذت الكود في نفس اللحظة مرتين مما أدى إلى وجود نفس اسم المصنف .. مجرد احتمال !!

تأكد من المسار الصحيح لمسار الحفظ للنسخ الاحتياطي على الديسك D

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

 اخي ياسر المسار الصحيح % في %

 

 

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

ممكن ترفق آخر ملف بعد التعديل للإطلاع عليه ...

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

جزاك الله خير على تعبك معي اخي ياسر

 

 

فاتورة.zip

تم تعديل أغسطس 19, 2016 بواسطه محمد عبدالسلام

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

سبحان الله الخطأ لم ألحظه إلا بعد تحميل الملف ..

الخطأ بسيط جداً لكنه قاتل .. ضع بعد حرف الديسك D نقطتين بهذا الشكل 

:

ليصبح المسار بهذا الشكل

backupFolder = "D:\فاتورة\"

انتهت المشكلة بإذن الله

 

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

 اخي ياسر أحسن الله إليك على ماقدمت من عمل رائع تستحق الشكر والثناء  بارك الله فيك وجزاك الله عنا كل خير

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

وجزيت خيراً أخي العزيز محمد عبد السلام بمثل ما دعوت لي

الحمد لله أن تم المطلوب على خير