Jump to content
أوفيسنا

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


Go to solution Solved by Ahmed Hosny,

Recommended Posts

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

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

كلمة السر : admin

userform4.xlsm

Link to post
Share on other sites

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

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

  • Like 1
  • Thanks 1
Link to post
Share on other sites

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

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

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

 

Link to post
Share on other sites
  • Solution

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

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

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

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

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

userform4 (2).xlsm

  • Like 3
Link to post
Share on other sites

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

  • Like 1
Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...