ارجو اصلاح textbox

[رامي قلعجية]

السلام عليكم 

في صفحة fatoura

اضغط على الخلية 7 في العمود b سيظهر الفورم

ارجو المساعدة في اصلاح textbox13

ليعمل كما يعمل combobox2

والغاء combobox2

واظهار النتائج في اليست بوكس 

وعند الضغط على زر enter يضاف الصنف تماما كما يعمل combobox2

ارجو المساعدة

fatouraxxx.rar

[سليم حاصبيا]

الكود المظلوب

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

[رامي قلعجية]

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

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

اخي واستاذي الفاضل سليم حاصبيا 

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

اريد البحث فقط بالوصف من صفحة الاصناف ولا اريد البحث بالكود وعند الضغط بزر انتر يضع لي الصنف مثل ما يعمل ال combobox

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

ارجو ان اكون قد اوضحت الفكرة 

عزرا مرة اخرا

ملاحظة يجب ترحيل الكود وليس الوصف حتى تعمل الفيلوكأب

my-fatoura-1.xlsb

تم تعديل نوفمبر 8, 2020 بواسطه رامي قلعجية

[سليم حاصبيا]

1-لم افهم شبئاً
2-لماذا كل هذه الزركشات بالالوان والتنسيقات التي تزيد من حجم الملف الى حدود الــ 1 ميغا

3-تضيع غمل أكثر من ساعة من الوقت ثم تقول اسف لقد ارسلت ملف خاطئ
4-  ليس احتصاصي أنا  اليوزر فورم ولا أتعاطى بأموره الا على القدر اليسير

[رامي قلعجية]

اسف ارجو منك السماح