محمد عبدالسلام قام بنشر أكتوبر 15, 2019 مشاركة قام بنشر أكتوبر 15, 2019 السلام عليكم ورحمة الله وبركاته ارجوا المساعدة من الاساتذة الافاضل لكود للاستاذ حسين مامون في هذا الملف كود يقوم بنسخ تاريخ الفاتورة واسم العامل في شيت1 وايضاً يقوم بعمل نسخة احتياطية في الفولدر d اريد عندما تكون الخانة f5 اجل يقوم بنسخ اسم العامل وتاريخ بي الون الاحمر في شيت 1 وعندما تكون الخانة f5 نقدي ينسخ اسم العامل بي الون الاسود ويقوم بعمل نسخة احتياطية في فولدرd back.rar رابط هذا التعليق شارك More sharing options...
محمد عبدالسلام قام بنشر أكتوبر 15, 2019 الكاتب مشاركة قام بنشر أكتوبر 15, 2019 رابط هذا التعليق شارك More sharing options...
أفضل إجابة حسين مامون قام بنشر أكتوبر 15, 2019 أفضل إجابة مشاركة قام بنشر أكتوبر 15, 2019 (معدل) قم بتعديل الكود او انسخ الجزء بين السطرين فقط واضفه للكود عندك 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 بواسطه حسين مامون 2 رابط هذا التعليق شارك More sharing options...
محمد عبدالسلام قام بنشر أكتوبر 15, 2019 الكاتب مشاركة قام بنشر أكتوبر 15, 2019 اخي جزاك الله خيرا وبارك الله فيك أخي لمساعدتك الطيبه 1 رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر أكتوبر 15, 2019 مشاركة قام بنشر أكتوبر 15, 2019 وجزيت خيرا اخي 1 رابط هذا التعليق شارك More sharing options...
محمد عبدالسلام قام بنشر أكتوبر 16, 2019 الكاتب مشاركة قام بنشر أكتوبر 16, 2019 (معدل) السلام عليكم ورحمة الله وبركاته ارجوا المعدرة على طلباتي الكثيرة عندي طلب اخر هل من طريقة لما يتم استدعاء الفاتورة من نسخ الحتياطية بزر لستعلام من فورم ولما يتم تغير الخانة f5 من اجل الى نقد يتم تغير اسم العاميل وتاريخ في الملف الرئيسي تلقائيا من لون احمر الى اسود تم تعديل أكتوبر 16, 2019 بواسطه محمد عبدالسلام رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر أكتوبر 16, 2019 مشاركة قام بنشر أكتوبر 16, 2019 وعليكم السلام ورحمة الله يمكن تغيير لون الخلية المعنية بمجرد استعلام الفاتورة اما كما قلت لا يمكن لان التغيير سيكون في الملف المستعلم عنه وليس الرئيسي 1 رابط هذا التعليق شارك More sharing options...
محمد عبدالسلام قام بنشر أكتوبر 16, 2019 الكاتب مشاركة قام بنشر أكتوبر 16, 2019 (معدل) جزاك الله خيرا ممكن عند كتابة اسم العاميل في تكست بوكس وعند الفلترة تظهار اخر فاتورة للعاميل في سطر الاول في ليست بوكس كمثلا : سعيد لديه عشرة نسخ احتياطية تكون اخر فاتورة لديه في سطر الاول وليس في اخر سطر تم تعديل أكتوبر 16, 2019 بواسطه محمد عبدالسلام رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر أكتوبر 16, 2019 مشاركة قام بنشر أكتوبر 16, 2019 ليست عني هذه التقنية لن اجازف ان قلت مستحيل اطلب من اساتذة المنتدى التدخل لتعديل كود الاستعلام 1 رابط هذا التعليق شارك More sharing options...
محمد عبدالسلام قام بنشر أكتوبر 16, 2019 الكاتب مشاركة قام بنشر أكتوبر 16, 2019 احي حسين مامون جزاك الله خير وأحسن إليك فيما قدمت دمت برضى الله وإحسانه وفضله تسلم على المساعذة جزاك الله خيرا 1 رابط هذا التعليق شارك More sharing options...
محمد عبدالسلام قام بنشر أكتوبر 17, 2019 الكاتب مشاركة قام بنشر أكتوبر 17, 2019 (معدل) السلام عليكم ورحمة الله وبركاته طريقة لي اظهار الاسماء بألوان كما في شيت تم تعديل أكتوبر 17, 2019 بواسطه محمد عبدالسلام رابط هذا التعليق شارك More sharing options...
محمد عبدالسلام قام بنشر أكتوبر 17, 2019 الكاتب مشاركة قام بنشر أكتوبر 17, 2019 (معدل) تم تعديل أكتوبر 17, 2019 بواسطه محمد عبدالسلام رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر أكتوبر 17, 2019 مشاركة قام بنشر أكتوبر 17, 2019 اخي الكريم حسب علمي تنوع الالوان في صفوف الليست من المستحيل حتى وان كانت هناك تقنية ستكون صعبة وستزيد ثقل عمل الكود 3 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان