رامي قلعجية قام بنشر نوفمبر 8, 2020 مشاركة قام بنشر نوفمبر 8, 2020 السلام عليكم في صفحة fatoura اضغط على الخلية 7 في العمود b سيظهر الفورم ارجو المساعدة في اصلاح textbox13 ليعمل كما يعمل combobox2 والغاء combobox2 واظهار النتائج في اليست بوكس وعند الضغط على زر enter يضاف الصنف تماما كما يعمل combobox2 ارجو المساعدة fatouraxxx.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر نوفمبر 8, 2020 أفضل إجابة مشاركة قام بنشر نوفمبر 8, 2020 الكود المظلوب Private Sub TextBox13_Change() Dim sh As Worksheet Set sh = Sheets("الاصناف") Dim i As Long, x As Long, p As Long, k As Byte Dim F_rg As Range, Rg_b As Range p = sh.Cells(Rows.Count, 2).End(3).Row Set Rg_b = sh.Range("b3:B" & p) Me.ListBox1.Clear Set F_rg = Rg_b.Find(Me.TextBox13, lookat:=1) If Not F_rg Is Nothing Then x = F_rg.Row With Me.ListBox1 .AddItem For k = 0 To 5 .List(.ListCount - 1, k) = _ sh.Cells(x, k + 2) Next End With End If End Sub الملف مرفق My_fatoura.xlsb 1 رابط هذا التعليق شارك More sharing options...
رامي قلعجية قام بنشر نوفمبر 8, 2020 الكاتب مشاركة قام بنشر نوفمبر 8, 2020 (معدل) السلام عليكم ورحمة الله وبركاته اسف لتأخري بالرد وجزاكم الله كل خير اخي واستاذي الفاضل سليم حاصبيا ارجو اظهار النتائج في الليست بوكس عن طريق textbox13 وعند التحريك بأسهم الكيبورد ينزل على الصنففي اليستبوكس وعند الضغط انتر ينضاف الصنف في الفاتورة مثل ال combobox عزرا لقد ارسلت ملف خاطئ سأضع ملف يوضح لك كيف يعمل ال combobox اريد البحث فقط بالوصف من صفحة الاصناف ولا اريد البحث بالكود وعند الضغط بزر انتر يضع لي الصنف مثل ما يعمل ال combobox وعند البحث ارجو اظهار النتائج في النموذج بالتكست بوكسات كلها ارجو ان اكون قد اوضحت الفكرة عزرا مرة اخرا ملاحظة يجب ترحيل الكود وليس الوصف حتى تعمل الفيلوكأب my-fatoura-1.xlsb تم تعديل نوفمبر 8, 2020 بواسطه رامي قلعجية رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر نوفمبر 8, 2020 مشاركة قام بنشر نوفمبر 8, 2020 1-لم افهم شبئاً 2-لماذا كل هذه الزركشات بالالوان والتنسيقات التي تزيد من حجم الملف الى حدود الــ 1 ميغا 3-تضيع غمل أكثر من ساعة من الوقت ثم تقول اسف لقد ارسلت ملف خاطئ 4- ليس احتصاصي أنا اليوزر فورم ولا أتعاطى بأموره الا على القدر اليسير رابط هذا التعليق شارك More sharing options...
رامي قلعجية قام بنشر نوفمبر 8, 2020 الكاتب مشاركة قام بنشر نوفمبر 8, 2020 اسف ارجو منك السماح رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.