فلتر من خلال قائمة منسدلة

[ahmed25]

كيف يمكن عمل فلتر للصفوف  من خلال اسم شركة من القائمة المنسدلة بدلالة خلية  والغاء الفلتر ايضا وذلك حسب الملف المرفق.

                

              ولكم جزيل الشكر والتقدير ،،،

فلتر جدول بالكود.rar

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

مرحبا

هل بهذه الطريقة

 

فلتر جدول بالكود.rar

[ناصر حسان]

استاد ابو حنين 

لك التحية 

بارك اللة بيك ويجعلة فى ميزان حسناتك

[ahmed25]

أبو حنــــين

جزاك الله خير وبالتوفيق دائما.

 

نعم هذا ما كنت اريده ولك مني جزيل الشكر والتقدير

ولكن ارجو منك شرح للكود حتى ازيد المدى في عدد الصفوف

تم تعديل أكتوبر 8, 2016 بواسطه ahmed25
تعديل التعليق

[ahmed25]

في 06/10/2016 at 17:05, أبو حنــــين said:

مرحبا

هل بهذه الطريقة

 

فلتر جدول بالكود.rar

السلام عليكم

 

السلام عليكم

ممكن التعديل على الملف لاخفاء الصفوف الفارغة في نفس المدى في العمود  A وذلك عند اختيار جميع الشركات من القائمة المنسدلة

وشكرا جزيلا ،،،

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

السلام عليكم

اولا قم بتحويل المعادلة الموجودة في الخلية A1  بهذا الشكل

=IFERROR(VLOOKUP(Sel;M4:N8;2;0);"")

 

ثانيا غير الكود السابق بهذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("A1") = 0 Then GoTo 100
If Range("A1") = "" Then GoTo 200
    If Target.Address = Range("A2").Address Then _
    Range("A3:K21").AutoFilter Field:=1, Criteria1:="=" & Range("A1")
    Exit Sub
100
Range("A3:K21").AutoFilter Field:=1, Criteria1:="<>" & ""
Exit Sub
200
Range("A3:K21").AutoFilter

End Sub

 

==============

عندما تريد رؤية كل البيانات بما فيها الصفوف الفارغة إمسح الخلية التي تختارمنها الشركات (  A2  )  التي اسمها   Sel

تم تعديل أكتوبر 11, 2016 بواسطه أبو حنــــين

[ahmed25]

جزاك الله خير

أبو حنــــين

وربنا يزيدك ويوفقك على عمل الخير

كنت عايز افهم ما معنى

GoTo 100

GoTo 200

 

 

تم تعديل أكتوبر 11, 2016 بواسطه ahmed25
ايضاح السؤال