مشكلة الفلترة عند وجود أسماء متشابهة في الحروف الأولى

[محمد هشام.]

 سؤال للاساتذة الأفاضل أنا عندي ملف إكسيل عامل عليه فلترة  من خلال textbox وضمن العناصر أو الأسماء المفلتر عليها ....أسماء متشابهة مثلا

عنصر إسمه Junior وآخر إسمه Junior +

مع العلم اني كاتب واحد بالحروف الكبيرة والثاني لا 

لما بعمل الفلترة على Junior بيسمعوا عندي الإثنين مع بعض في الفلترة.  هل هناك طريقة لإظهار كل أحد على حدى ؟

مع أنني جربت أترك فراغ بعد الإسم في واحد منهم لاكن مزبطتش معايا

[محمد حسن المحمد]

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

يمكنك استخدام عمود مساعد تجمع فيه بين الاسم وشيء آخر كالرقم مثلاً ..إلخ.

ثم ليكن هذا العمود ما تجري عليه الفلترة

والله اعلم

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

 

[omar elhosseini]

اخي 

نعم ال VBA لا يعرف المستحيل

علشان تبقي اول مرة فب المنتدي

 

[محمد حسن المحمد]

السلام عليكم أخي الكريم

هذا المرفق من ملفاتك - أخي الكريم - مع بعض التعديلات

أرجو أن يناسبك

Private Sub TextBox1_Change()
    Application.ScreenUpdating = False
        ActiveSheet.ListObjects("Data").Range.AutoFilter Field:=7, Criteria1:="*" & [e2] & "*", Operator:=xlFilterValues
    Application.ScreenUpdating = True
End Sub

TEST.xlsm

[lionheart]

Suppose you have data in range A1 to B20 (Names in first column & Age in second column)

Names	Age
John	41
john	52
Junior	46
junior	37
Lion	33
Lion Heart	15
lion	58
lion heart	39
heart	24
Heart	35
My Heart	18
my heart	14

In cell E1 type the formula (for 365 users)

=IF(D1="","",FILTER(A2:B20,ISNUMBER(FIND(D1,A2:A20)),"No Results"))

Now you can type in cell D1

File.xlsx

[omar elhosseini]

اخي 

حل اخر لأثراء الموضوع

ضع ما تريد الفلترة عليه في الخلية  K1

ثم فلتر العمود  F   

علي ان يساوي  TRUE

شاهد المرفق اخي

Auto_Filter_Case_Sensitive.xlsm

[محمد حسن المحمد]

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

أساتذتي الكرام @lionheart و @omar elhosseini جزاكما الله خيراً على ما تقدمانه من جهود حثيثة ومضنية للناس 

في حل أسئلتهم واستفساراتهم وإيصالهم للنتائج المرجوة

أسأل الله تعالى أن يجعل كل ذلك بموازين حسناتكم يوم لا ينفع مالٌ ولا بنونَ إلا من أتى الله بقلب سليم

أما معادلة الأستاذ الكريم  @lionheart فهي باستخدام معادلات Filter  (لمستخدمي 365) التي لم نرتق لها بعد. حيث لا زلنا على 2016 

ومعادلة الأستاذ @omar elhosseini هي باستخدام عمود مساعد ومعادلة Exact حققت نتيجة طيبة.

أرجو لكما التوفيق والسداد ...وأشكركما على هذه المعلومات القيمة التي تسدونها لنا

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

[omar elhosseini]

شكرا لك اخي الكريم ولك مثله

اخي هي نفس فكرتك ولكن بطريقة اخري

شكرا لك

[محمد هشام.]

شكرا لكم جميعا أستاذتنا الكرام 👍👍👍

[محمد هشام.]

أود أن أخبركم أستاذتي الكرام انه تم حل المشكلة فقط بتعديل الكود خليت الشرط مطابق
يعنى يساوي التكست بوكس فقط دون وضع نجمه  وعلامات تنصيص قبله او بعده 

وشكرا لكم جميعا على تعاونكم 

[محمد حسن المحمد]

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

الحمد لله الذي بنعمته تتم الصالحات

أما وجود النجمة في معيار البحث قبل وبعد النص الذي ستدخله في التكست بوكس أن البحث يحتوي على  فإن كان التكست بوكس فقط فهو بحث بالضبط عن نتيجة محددة

أحسنت بارك الله بكم

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

[محمد حسن المحمد]

2 ساعات مضت, Hicham1470 said:

أود أن أخبركم أستاذتي الكرام انه تم حل المشكلة فقط بتعديل الكود خليت الشرط مطابق
يعنى يساوي التكست بوكس فقط دون وضع نجمه  وعلامات تنصيص قبله او بعده 

وشكرا لكم جميعا على تعاونكم 

 

أشكرك أخي الكريم @Hicham1470 بل أنت من يستحقها       في هذه المرة،جزاكم الله خيراً.

والسلام عليكم