كود بحث بمجرد كتابة أول حرف

[صلاح الصغير]

كود بحث بمجرد كتابة اول حرف ارجو المساعدة فى تعديله و الشرح بالمرفق

                                   و جزاكم الله خيرا

البحث بمجرد كتابة أول حرف.rar

[أبو حنــــين]

السلام عليكم

اخي هذا هو التعديل

Private Sub TextBox1_Change()
Dim lastrow As Long
lastrow = Range("b65536").End(xlUp).Row
If ActiveSheet.TextBox1.Text <> "" Then
    Range("a3:c3").AutoFilter
    Range("$A$3:$C$" & lastrow).AutoFilter Field:=2, Criteria1:= _
        "=" & TextBox1.Text & "*", Operator:=xlOr
        Else
        
     Range("$A$3:$C$" & lastrow).AutoFilter Field:=2, Criteria1:= _
        "=" & ActiveSheet.TextBox1.Text & "*", Operator:=xlOr
        End If
End Sub

[صلاح الصغير]

اشكرك اخى ابو حنين على سرعة الاستجابة

اللهم اجعله فى ميزان حسناتك

[رجب جاويش]

أخى الفاضل /gs2010

سوف يتم تغيير العنوان ليناسب محتوى الطلب

ولكن الرجاء الإهتمام بهذه النقطة فى المرات القادمة

 

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة
و بصفة خاصة نؤكدعلى ما يلي
1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة
2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد.
3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.
4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا.....
5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.
ومخالفة ذلك تعرض الموضوع للحذف

[ماكس]

السلام عليكم ...

 

كيف نجعل البحث في كامل الشيت وليس في B فقط ؟؟؟؟؟

 

شكراً للجميع ...

[طالب علم 1]

السلام عليكم 

 

 نريد كود بحث بأي جزء من الأحرف وليس اول حرف

( وان امكن بأي معلومة من الأعمدة او اعمدة محددة)

تم تعديل يناير 25, 2015 بواسطه طالب علم 1

[محمد لطفى]

ماشاء الله عليك ابو حنين

وجزاك الله خيرا