قائمة منسدلة تفلتر مع الاحرف او الاسماء المحددة

[salehamr]

مطلوب فلترة لعامود الأسماء مثلاً بحيث تبدأ عملية الفلترة بمجرد المباشرة بكتابة محدد التصفية في مربع نص أو في خلية تحدد مسبقاً

أي عند كتابة حرف الألف تتم تلقائياً عملية الفلترة ليظهر فقط الأسماء التي تبدأ بحرف الألف وهكذا تستمر الفلترة مع كل حرف يتم كتابته

[ابو اسامة العينبوسي]

السلام عليكم

هام جدا استخدم CAPS LOCK اي الاحرف الكبيره

هو تجربه تعمل مع النصوص الانجليزيه

تحتاج الى لمسات ابو تامر او خبور لجعل عناصر COMBOBOX هي العناصر المصفاه فقط

OMARTEST.rar

[omar elhosseini]

شاهد المرفق

Omar_1.rar

[ابو اسامة العينبوسي]

السلام عليكم

مشكور على الجهد الجميل

[salehamr]

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

[omar elhosseini]

اخى

الملف السابق يعمل مع قائمة بيانات انجليزية ولا يعمل مع بيانات عربية

تم التعديل ليعمل مع البيانات العربية او المختلطة بين اسماء عربية او اجنبية

_________________________________4.rar

[قصي]

بارك الله فيك ابو تامر

[salehamr]

بارك االله فيكم .

[salehamr]

أعتذر واستغفر الله عن الخطأ المطبعي في الرد السابق

بارك الله فيكم

[رحيق]

الأخ ابو تامر....

هل ممكن ان تضح شرح مبسط لإضافتك الأخيرة.... لكي يتسنى لي التطبيق

[بوطيبة]

اخى الكريم ابو تامر

الملف السابق يعمل مع قائمة بيانات انجليزية ولا يعمل مع بيانات عربية

تم التعديل ليعمل مع البيانات العربية او المختلطة بين اسماء عربية او اجنبية

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

_________________________________4.rar

[munaf]

بارك الله فيك

[ahmedhafez]

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

_______________________________.rar

[as_sa2003]

بارك االله فيكم .

[بوطيبة]

وينك استاذ ابو تامر ترانا منتظرين منك الشرح بفارغ الصبر

[بوطيبة]

اخي ابو تامر السلام عليكم ممكن شرح مراحل المثال في فلترة الاسماء

[Nadia Khalil]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sh_In As Worksheet: Dim Sh_Out As Worksheet, Adv As Range, Cri As Range, Cop As Range
Set Sh_In = Sheets("Data"): Set Sh_Out = Sheets("Main"): Set Adv = Sh_In.Range("DB")
If Target.Address = "$E$3" Then
    Range("F3").Value = ""
    Sh_In.Range("Z2").Value = Range("E3").Text & "*"
    Set Cri = Sh_In.Range("Z1:Z2"): Set Cop = Sh_In.Range("AA1")
    GoSub Omar
    Set Cri = Sh_In.Range("Z1:Z2"): Set Cop = Sh_Out.Range("E5:F5")
    GoSub Omar
End If
If Target.Address = "$F$3" Then
    Set Cri = Sh_Out.Range("F2:F3"): Set Cop = Sh_Out.Range("E5:F5")
    GoSub Omar
End If
Exit Sub
Omar:
Adv.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Cri, CopyToRange:=Cop, Unique:=True
Return
End Sub

كبف أقوم بالتعديل على هذا الكود ليحتوى أكثر من صف وعمود للفلترة

المثال اللى تفضلتوا بشرحه والعمل عليه يقوم بفلترة عمودين فقط وهما عمودى الـ Name و الـ Code

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

وكل عام وانتم بخير

[Nadia Khalil]

UP UP UP

UP