مساعدة في عمل شريط بحث excel

[abdopepo]

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

اسم المستخدم : admin

كلمة السر : admin

userform4.xlsm

[Ahmed Hosny]

تم عمل زر بحث للبحث باول حرف يتم عمل تصفيه اتمنى يكون ساعدك شكرا

Private Sub TextBox1_Change()
If TextBox1 <> "" Then
lr = Range("B" & Rows.Count).End(xlUp).Row
    ActiveSheet.Range("$A$2:$F$" & lr).AutoFilter field:=2, Criteria1:="=" & ActiveSheet.TextBox1.Text & "*"
    Else
  Range("A2").AutoFilter

    End If
End Sub

userform4 (1).xlsm

[abdopepo]

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

مش عايزها بدالة Vlookup  محتاج شريط بحث في اليوزر فورم نفسه مش في ورقة الشيت

وجزاكم لله كل خير على المساعدة 

 

[Ahmed Hosny]

 

[Ahmed Hosny]

بالنسبة للبحث تم عمل باليوزر فورم تيكست بوكس يتم كتابه والبحث كما موضح بالصوره اعلاه

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

بالاضافة انه يمكن الضغط على اى من نتائج البحث يتم التعبئة التلقائية

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

مع ملاحظة الكتابة داخل تيكست بوكس باللغة العربية 

userform4 (2).xlsm

[abdopepo]

جزاكم الله كل خير اخي الكريم وبارك الله فيك وحفظ
تسلم ايدك يا محترم بجد كلمة شكرا قليلة في حقك