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

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

اريد عمل

نسخة احتباطية الفاتورة  في (D) وبعدالحفظ

اريد ان تحفظ باسم المشتري وتاريخ الفاتورة

وان تبقى الفاتورة دون مسح للطباعة

MAYAM.rar

تم تعديل ديسمبر 24, 2014 بواسطه طارق محمود

[طارق محمود]

السلام عليكم

تفضل أخي المرفق

وهذا هو الكود

Sub Macro1()
nm = [G3] & "_" & Day([E3]) & "_" & Month([E3]) & "_" & Year([E3])
ActiveSheet.Copy
    ChDir "D:\"
    ActiveWorkbook.SaveAs Filename:="D:\" & nm & ".xlsx"
    ActiveSheet.Shapes.Range(Array("مربع نص 1")).Delete
    ActiveSheet.Shapes.Range(Array("Rounded Rectangle 2")).Delete
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub

MAYAM.rar

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

بعد إذن أخي الحبيب وأستاذي الكبير الباشمهندس طارق محمود .. هذا تعديل بسيط (وليس لمثلي أن يعدل على مثلك) ولكن لضبط الكود قليلا فقط

Bill Backup.rar

تم تعديل ديسمبر 24, 2014 بواسطه YasserKhalil

[زكرياء]

  ارجوان يتم تطبيق هاد  كود لعمل نسخه احتياطيه وان يتم الحفظ في مجلد  محداد في D

Invoice-.rar

تم تعديل ديسمبر 24, 2014 بواسطه زكرياء

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

براك الله فيكم الاح طارق والاخ YasserKhalil لي المساعدة كيف تغير اريد ان  يتم الحفظ في مجلد

 

[طارق محمود]

السلام عليكم

أخي الحبيب / ياسر
أنت مسموح لك التعديل والتغيير كما تحب ، فمؤكد أنك تعرف غلاوتك عندي

 

أخي الفاضل abdalwahd
أولا يلزمك تحسين اللغة العربية فكتابتك بها أخطاء إملائية لاتليق بمكانتك 

ثانيا

للتعديل علي الكود

في هذا الجزء

ChDir "D:\"
    On Error GoTo 1
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="D:\" & nm & ".xlsx"

إستبدل الجزء الصغير الدال علي مكان التخزين وهو

D:\

بما تحب 

مثلا إن كنت تريد حفظ الملف علي 

D:\Folder1\Folder1_1\Backup

فماعليك إلا تغيير ذلك الــ  

D:\

إلي

D:\Folder1\Folder1_1\Backup

في الموضوعين المذكور بهما بالكود

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

ارجو منك تطبق الاامر اخي طارق محمود براك االه فيك

[طارق محمود]

إعطيني إسم ومسار المجلد الذي تريد الحفظ فيه

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

إسم ومسار ( D:\abdalwahd)

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

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

Bill Backup.rar

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

براك الله فيكم أخى

لا يوجد عندى غير الشكر مع أنه لا يكفى ولكن يكفى تواجدكم لقضاء حوائج من ضاقت به السبل

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

الف شكر أستاذنا الفاضل

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

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

جزيتم خيراً إخواني على تشجيعكم المستمر لنا جميعاً..

فبدونكم نحن لا شيء

تقبلوا تحياتي

الحمد لله الذي بنعمته تتم الصالحات

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

 وريد عدم طباعة الصفوف الفارغة  اطهارالصفوف الممتلئة فقط دونا نقص حجم الفاتورة عند طباعة بل اخفاؤها