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

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

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

ارجوا المساعدة من الاساتذة الافاضل

 لكود للاستاذ حسين مامون

في هذا الملف كود يقوم  بنسخ تاريخ الفاتورة واسم العامل في شيت1 وايضاً يقوم بعمل نسخة احتياطية في الفولدر d

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

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

 

back.rar

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

[حسين مامون]

قم بتعديل الكود او انسخ الجزء بين السطرين فقط واضفه للكود عندك 

 

Private Sub CommandButton1_Click()
' saveas_facture()
Dim wx As Workbook
Set wx = Workbooks("ÝÇÊæÑÉ")

Dim ws As Worksheet
Set ws = wx.Sheets("invoice")
Dim wss As Worksheet
Set wss = wx.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"
                          Nam = .Range("e5") & " " & Format(Now(), "dd mm yyyy  hh mm ss")
                               ThisWorkbook.SaveCopyAs Filename:="D:\back\Backup\" & Nam & ".xlsm"
'                        ActiveWorkbook.SaveAs Nam, FileFormat:=xlOpenXMLWorkbook
 '=========================================
                    If ws.[f5].Text = "اجل" Then
                    wss.Range("a" & lr).Value = Nam
                    wss.Range("a" & lr).Font.Color = 255
                   Else: wss.Range("a" & lr).Value = Nam
                    End If
   '========================================
'                 ActiveWorkbook.Close False
              End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.EnableEvents = True
                                        MsgBox "Êã ÍÝÙ äÓÎÉ ÈÇÓã " & DT & " ", vbInformation
End Sub

 

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

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

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

[حسين مامون]

وجزيت خيرا اخي

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

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

ارجوا المعدرة على طلباتي الكثيرة عندي

طلب اخر

هل من طريقة لما يتم استدعاء  الفاتورة من نسخ الحتياطية بزر لستعلام من فورم ولما يتم تغير الخانة f5 من اجل الى نقد يتم تغير اسم العاميل وتاريخ في الملف الرئيسي تلقائيا من لون احمر الى اسود

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

[حسين مامون]

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

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

اما كما قلت لا يمكن لان التغيير سيكون في الملف المستعلم عنه  وليس الرئيسي

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

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

ممكن عند كتابة اسم العاميل في تكست بوكس وعند الفلترة تظهار اخر فاتورة للعاميل في سطر الاول في ليست بوكس كمثلا : سعيد لديه عشرة نسخ احتياطية تكون اخر فاتورة لديه في سطر الاول وليس في اخر سطر

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

[حسين مامون]

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

 

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

احي حسين مامون

جزاك الله خير وأحسن إليك فيما قدمت دمت برضى الله وإحسانه وفضله تسلم على المساعذة جزاك الله خيرا

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

 

 

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

 

طريقة لي اظهار الاسماء بألوان كما في شيت

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

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

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

[حسين مامون]

اخي الكريم حسب علمي تنوع الالوان في صفوف الليست من المستحيل 

حتى وان كانت هناك تقنية ستكون صعبة وستزيد ثقل عمل الكود