طريقة استدعاء الفاتورة من النسخ الإحتياطية في فولدار داخل بارتشن D

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

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

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

ولدي عداد كثير من النسخ الاحتياطية لي العملاء اريد طريقة  ليتما  استدعاء بيها فاتورة العميل من النسخ الإحتياطية في فولدار داخل بارتشنD

وتعديل عليها

 

فاتورة.xlsm

تم تعديل أكتوبر 7, 2019 بواسطه محمد عبدالسلام

[حسين مامون]

عليكم السلام

الاخ محمد عبدالسلام 

1 - المرفق عبارة عن تجربة وضعت مجلد باسم back وبداخله ملف فاتورة وكذلك مجلد backup .

2 - المجلد backup مخصص لتخزين النسخ كما قلت في مشاركتك ولكن ستنقله الى مجلد back وكذلك الملف الرئيسي فاتورة

3- في الملف فاتورة اضفت صفحة  وفي العمود "A" انسخ اسماء الملفات المخزنة في المجلد backup  كما يمكنك التعديل على كود النسخ لديك لكي يضيف اسماء السخة الاحتياطية في العمود "A" sheet1"

 

 

back.rar

تم تعديل أكتوبر 7, 2019 بواسطه حسين مامون

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

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

عمل رئع جزاك الله خيراً اخي حسين على اهتمامك بالموضوع

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

النسخ الإحتياطية في فولدار داخل بارتشن D كما في صورة الاسماء متكرره يختلفان الى في تاريخ هل يجد حل جزاكم الله خير

 

تم تعديل أكتوبر 7, 2019 بواسطه محمد عبدالسلام

[حسين مامون]

اخي الكريم 

ضع اسماؤها في العمود A كما هي  

 

 

 

back.rar

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

جزاك الله خيراً اخي حسين

هل من طريقة عند عمل نسخة احتياطية لي العميل يتم تلقائيًا نسخ اسم العمل وتاريخ في العمود A

 وهل انيتم  عمل نسخة احتياطية الملف لجميع القيام والمعدلة

تم تعديل أكتوبر 7, 2019 بواسطه محمد عبدالسلام

[حسين مامون]

اخي الكريم  وجزيت خيرا 

انسخ المجلد الى D: وجرب 

Private Sub CommandButton1_Click()
' saveas_facture()

Dim ws As Worksheet
Set ws = Sheets("invoice")
Dim wss As Worksheet
Set wss = Sheets("sheet1")
Dim DT
Dim Nam
Dim lr As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
             lr = wss.Range("a" & Rows.Count).End(xlUp).Row + 1
             DT = ws.Range("e5") & Format(Now(), "dd-mm-yyyy hh mm ss")
             With ws
                .Copy
                .UsedRange = .UsedRange.Value
                    Application.DisplayAlerts = False
                        Nam = "d:\back\backup\فاتورة" & DT & ".xlsx"
                        ActiveWorkbook.SaveAs Nam, FileFormat:=xlOpenXMLWorkbook
                    wss.Range("a" & lr).Value = ActiveWorkbook.Name
                 ActiveWorkbook.Close False
              End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.EnableEvents = True
                                        MsgBox "تم حفظ نسخة باسم " & DT & " ", vbInformation
End Sub

 

back.rar

تم تعديل أكتوبر 9, 2019 بواسطه حسين مامون

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

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

[حسين مامون]

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

هل من طريقة عندما يتم ضغط على زر الحفظ يتم نسخ  اسم العمل  في الفاتورة الا شيت 1  في عمود a

تم تعديل أكتوبر 9, 2019 بواسطه محمد عبدالسلام

[حسين مامون]

اضغط زر حفظ نسخة وانظر شيت 1 

كانت فاتورة سعيد 

واضفنا عبد السلام

ثم قمنا بحفظ نسخة

وفي شيت1 تم ترحيل اسم الفاتورة ايضا

 

 

تم تعديل أكتوبر 9, 2019 بواسطه حسين مامون

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

احسنت اخي عمل رائع جزاك الله خيراً

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

اريد بمجرد كتابة اول حرف ComboBox1 وتظهار نتائج البحث من اسم العمل

[حسين مامون]

اخي الكريم اظن ان من الاحسن  وضع هذا السؤال في موضوع جديد وانا  ساعمل على هذا مع اساتذة المنتدى 

والى هنا انتهينا 

تحياتي

تم تعديل أكتوبر 9, 2019 بواسطه حسين مامون

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

 سوف اقوم بذلك

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

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