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

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


إذهب إلى أفضل إجابة Solved by حسين مامون,

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

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

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

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

وتعديل عليها

 

فاتورة.xlsm

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

عليكم السلام

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

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

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

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

 

 

back.rar

image.png

تم تعديل بواسطه حسين مامون
  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

 

Capture.PNG

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

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

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

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

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

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

انسخ المجلد الى 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

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

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

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

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

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

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

image.png.7fddf8a86dfc97425b80248d423f0419.png

 

image.png.515008433e94310d237ea1d599623ed9.png

 

image.png.2464014187e1baf253aee439a0846efd.png

تم تعديل بواسطه حسين مامون
  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

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

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

تحياتي

تم تعديل بواسطه حسين مامون
  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information