Filter By_Selection

[سليم حاصبيا]

أمامنا جدول مع بيانات مختلفة
1- انقر على اي خلية من الجدول (ما عدا رأس الجدول) لتحصل على فلتر بقيمة هذه الخلية
2-انقر على اي خلية ( من رأس الجدول) لتحصل على كل البيانات
3-لإضافة بيانات على الجدول انقر على اول صف فارغ  وأملأ الصف كما تشاء (لا يعمل الماكرو الا اذا كان الصف
    كاملاً ببياناته 4 قيم)
ملاحظة: لا يعمل الماكرو Reset ولا الماكرو Make_On_Top  كل بمفرده  الا من خلال الماكرو الرئيسي SelectionChange
الماكرو

 Option Explicit
 Dim Lr%, Rng As Range
 '==========================
Sub Make_On_Top()
On Error GoTo Exit_Sub
Rng.Rows(1).Interior.ColorIndex = 6
    With ActiveSheet
      .Range("z1") = Cells(3, ActiveCell.Column)
      .Range("z2") = ActiveCell.Value
      .Range("a3").CurrentRegion.AdvancedFilter 1, Range("z1:z2")
      .Cells(3, ActiveCell.Column).Interior.ColorIndex = 8
    End With
Exit_Sub:
End Sub
'==================================
Sub Reset()
On Error GoTo Exit_Sub
 Rng.Rows(1).Interior.ColorIndex = 6
    On Error Resume Next
        ActiveSheet.ShowAllData
    On Error GoTo 0
Exit_Sub:
End Sub
'===========================
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Lr = Cells(Rows.Count, 1).End(3).Row
  Set Rng = Range("A3:D" & Lr)
If Not Intersect(Target, Rng) Is Nothing And _
      Application.CountA(Range(Cells(Target.Row, 1), _
      Cells(Target.Row, 4))) = 4 _
      And Target.Cells.Count = 1 Then
       
    If Target.Row = 3 Then
        Reset
    Else
        Make_On_Top
    End If
    
End If
 Range("z1:z2").Clear
End Sub

الملف مرفق

Super Adv_Filter.xlsm

[Ali Mohamed Ali]

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

[saad alyousif]

نموذج رائعععععععع بارك الله فيك

[على متولى]

السلام عليكم ورحمة الله وبركاته
كفــــارة المجــلس
سبحانك اللهم وبحمدك ، أشهــد أن لا إله إلا أنت أستغفرك وأتوب إليك
جزاكم الله خيرا
وجعل كل ايامكم رضا
والسلام عليكم ورحمة الله وبركاته

[nassimerouh]

شكرا استاذ سليم على هذا العمل الرائع

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

 

Book3.xlsx

تم تعديل سبتمبر 23, 2018 بواسطه nassimerouh

[سليم حاصبيا]

الملف جاهز

أهم شيء الا يكون داخل الجدول اي خلية فارغة

 و كذلك في راس الجدول

 

 

Salim_book.xlsm

[Amr Ashraf]

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

 

https://www.officena.net/ib/topic/86243-%D8%B9%D9%85%D9%84-%D9%87%D8%A7%D9%8A%D8%A8%D8%B1-%D9%84%D9%8A%D9%86%D9%83-%D8%A8%D8%B4%D8%B1%D9%88%D8%B7-%D9%85%D8%AD%D8%AF%D8%AF%D8%A9/

 

 

تم تعديل أكتوبر 7, 2018 بواسطه Amr Ashraf