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

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

اريد اخفاء الزر كي لا يظهر للمستخدم قد يقوم بالضبط على زر عن غير خطاء ويتم الحدف اريدلما اريد حذف بيانات يتم وضع علامه على في. Check Box ثم يظهر الزير

السلام عليكم ورحمه الله وبركاته الاستاذ سليم حاصبيا اعتذر اخي على عدم تنبيه من هو صاحب الكود الحقوق الفكرية عمل راااااااائــــــــــع جدااا لو سمحت اخي ممكن طريقه في اخفاء الزر تلقائيا اريد عند تشغل الفورم يكون الزر مخفي حتى اقوم بعمل علامة في CheckBox وعندها يظهر زر وجزاكم الله خيرا

السلام عليكم ورحمة الله وبركاته طلب طريقة يتم فيهاإخفاء وإظهار زر في الفورم يتم اظهار زر الاعند الحاجة CommandButton3 Fatur(1).xlsm

شكرك اخي سليم حاصبيا على سرعة الإجابه جزاك الله خيرا

السلام عليكم ورحمة الله وبركاته طلب كود حذف سطر فيه بيانات في شيت محدد من خلال الليست بوكس فاتورة(5)(1).xlsm

احسنت أخي ابو القاسم بارك الله فيك أخي ابو القاسم وجعله في ميزان حسناتك جزاك الله خيرا

السلام عليكم ورحمة الله وبركاته طلب مساعده اريد الغاء اختيار البحث من الكومبو بوكس اما بي الكود او حرف من اسم اريد بمجرد كتابه رقم او حرف في تيكست بوكس يتم تطبيق البحث في ليست بوكس او الفلتره دونا القيام بي اختيار نوع البحث من الكومبو بوكس فاتورة(5).xlsm فاتورة(5).xlsm

أخي الغالي بارك الله فيك وجزاك الله خير الجزاء

السلام عليكم ورحمة الله عندي مشكلة في كود التعديل يوزر فورم 1يوزرفورم1 لايعمل يعني لما اضغط على زر لايتم تعديل البيانات test.xlsm

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

السلام عليكم أخوانى الكرام كيف يمكن تحديد إسم الطابعة عن طريق الكود ليتم الطباعة عليها مباشرة حيث لدى برنامج اكسيل جهاز موصل علية عدة طابعات منها طابعة باركود وطابعة a4 ويوجد بعض النمازج تطبع على البار كود وبعضها على الطابعة العادية فكيف يمكن عمل ذلك فاتورة(2)(6)(2).xlsm

حسين مامون جزاك الله خيراً أخي العزيز

لسلام عليكم ورحمة الله وبركاته طلب مساعدة يوجد في الفورم1 textbox1 و textbox2 يتم اختيار نوع البحت اما بي الكود اوصنف من ComboFind وعند الكتابة في textbox1 و textbox2 يتم الفلترة البيانات في الليست بوكس اريد طريقة عند تشغيل يكون المؤشر في textbox ناشطة التي يتم البحت بيها اما textbox1 و textbox2 فاتورة(2)(6).xlsm

اخي حسين مامون هذا هو المطلوب رائع جزاك الله خيرا اسألوا الله العظيم ان يمن عليك بصحة والعافية وان يحفظك من كل سوء جزاك الله خيرا لطلب اخر لوسمحت اخي الفاضل يوجد في الفورم textbox2 و textbox1 اريد ضبط الكود عند تشغيل يكون المؤشر في textbox ناشطة TextFind.SetFocus

اخي حسين مامون جزاك الله خيرا لقد ظهرت مشكله اخرى بين TextBox1 وا ComboFind المشكله هي اذا قمت باختيار البحت بي الكود في ComboFind وقمت بكتابه الكود في TextBox1 بمجرد عمل انتر فيListBox1 تختفي TextBox1 ويعود خيار البحث بي الصنف في ComboFind اريد ان تبقى الكومبو بوكس على الخيارالتي قمت باختيار يه اما بي الكود اوصنف https://youtu.be/D0Xno2mCp-E

السلام عليكم ورحمه الله وبركاته جزاك الله خيرا اخي حسين مامون على اهتمامك بالموضوع وتقديم المساعده لقد قمت بعمل رائع لكن المشكله في اختفاء تكست بوكسات بمجرد عمل فلتره للبيانات واقوم بعمل انتر في ليست بوكس تختفي تيكست بوكس هل توجد طريقه لجعل تيكس بوكس تبقى ظاهره ComboFind على القيمة التي قومت باختيارها اما الصنف اوالكود

السلام عليكم ورحمة الله وبركاته : هل من الممكن إيجاد طريقة لجعل القيمة في ComboFind تنقى تابتا على الخيار لدى قمت بتحديده صنف او الباركود اذا قمت باختيار البحث بالصنف يبقى ثابت على صنف واذا قمت باختيار الباركود يبقى ثابت على الباركود فاتورة(2).xlsm

السلام عليكم ورحمة الله وبركاته لدي ملف به كود يقوم بحفظ اسم العامل مع صورة اريد طريقة لجعل الكود يقوم يحفظ صور بصيغات Png Private Sub CommandButton2_Click() image_path = Application.GetOpenFilename(FileFilter:="Picture Files (Fichiers image),*.gif;*.jpg;*.jpeg;*.bmp", Title:="اختار الصورة") If image_path <> False Then Me.Image1.Picture = LoadPicture(image_path) Me.Image1.Visible = True End If End Sub بيانات وصور الموظفين.zip

السلام عليكم ورحمه الله وبركاته اخي حسين مامون سالتني ما المقصود بانشاء شيت2 وترحيل نفس البيانات في شيت1 اماشيت واحد للفواتير لي مازال عليها دين وشيت2 كارشيف لجميع الفواتير اما اذا قمت بي انشاء شيت الاستعلام عن فواتيري لي علىها دين وشيت اخر كارشيف تكون عمليه الاستعلام عن الفواتير بسرعه لان الفواتير علىها دين في شيت 1 قد تصل إلى عشره او 15 و 20 اما ورقه الارشيف قد تصل الى 1000 او 2000 اما الفاتوره اذا تما تسديد دينها يتم ازالتها من شيت واحد وتبقى كارشيف في شيت اثنان جزاكم الله عنا خير الجزاء، وأبعد عن قلوبكم الحزن والشقاء ،وجعلكم من السابقين فى الخيرات، وأدخل إلى قلوبكم سرور الطاعات ،وختم عملكم بالباقيات الصالحات

السلام عليكم ورحمة الله وبركاته طلبي هو عن كود يقوم بترحيل اسم العميل/ تاريخ الفاتورة /نوع الفاتورة الى Sheet1 وأريد تعديل الكود ليقوم بترحيل الى شيتين Sheet1 و Sheet2 Private Sub CommandButton1_Click() 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 Application.DisplayAlerts = False Nam = .Range("e5") & " " & Format(Now(), "dd mm yyyy hh mm ss") ThisWorkbook.SaveCopyAs Filename:="D:\back\Backup\" & Nam & ".xlsm" ' '========================================= If ws.[f5].Text = "اجل" Then wss.Range("a" & lr).Value = Nam wss.Range("a" & lr).Font.Color = 255 wss.Range("b" & lr).Value = "اجل" Else: wss.Range("a" & lr).Value = Nam wss.Range("b" & lr).Value = "نقدي" End If '======================================== ' ActiveWorkbook.Close False End With Application.DisplayAlerts = True Application.ScreenUpdating = True Application.EnableEvents = True MsgBox "تم حفظ نسخة باسم " & DT & " ", vbInformation End Sub back.zip

جزاكم الله خيرا على الإهتمام بالموضوع اسف على تاخيرى في الرد عليكم كنت منشغلاً في العمل نعم اخي حسين مامون معك حق بهذا تعديل قد تاثرثت لبيانات الكود في الحفظ يعمل بشكل رائع لكن المشكلة في الإستعلام عن الفواتير الإحتياطية تظهر لي رسالة خطأ لم يجد عن الملف المطلوب في ديسك

السلام عليكم ورحمة الله وبركاته هذا الكود يقوم بعمل نسخة احتياطية للملف بنسخ اسم العمل وتاريخ في شيت 1 ويقوم بعمل نسخة احتياطية في D/DISK طلب اريد تعديل الكود لفصل اسم السيد عن تاريخ في شيت 1 اريد اسم العميل في عمود A .وتاريخ في B. نواع تالفاتورة في عمود C كما وضحت في سطر الأول في صورة جزاكم الله خيرا وبارك فيكم back_2.zip Private Sub CommandButton1_Click() Dim ws As Worksheet Set ws = ActiveWorkbook.Sheets("invoice") Dim wss As Worksheet Set wss = ActiveWorkbook.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(), " ss - mm - hh - yyyy - mm - dd ") With ws Application.DisplayAlerts = False Nam = .Range("e5") & " " & Format(Now(), " ss - mm - hh - yyyy - mm - dd ") ThisWorkbook.SaveCopyAs Filename:="d:backBackup" & Nam & ".xlsm" ' '========================================= End With If ws.Range("F5").Value = "äÞÏí" Then Else: wss.Range("a" & lr).Value = Nam wss.Range("b" & lr).Value = "ÇÌá" wss.Range("b" & lr).Value = "ÇÌá" End If If ws.[f5].Text = "ÇÌá" Then Else: wss.Range("a" & lr).Value = Nam wss.Range("b" & lr).Value = "äÞÏí" wss.Range("b" & lr).Value = "äÞÏí" End If '======================================== ' äÓÎÉ ÇÍØíÇØíÉ ' '======================================== ' ActiveWorkbook.Close False End Su

السلام عليكم ورحمة الله رجاء كود حذف البيانات من خلال الليست بوكس في Sheet1 من فورم الإستعلام طلب حدف البيانات من خلال الليست بوكس يوزرفورم مسح البيانات من Sheet1 عند تحديد اي سطر في اللست بوكس والضغط دوبل كليك عليه يحذف من الليست بوكس back.zip

جزاك الله خيرا اخي الكريم ونفع بكم وجعله في ميزان حسناتك