التصفية المتقدمة لا تعمل لدي ولا اعرف السبب

[ناصر فرحات]

لدي ملف ايكسيل مرفق 

هناك خلايا كثيرة مرتبطه برقم في خليه على اساس هذا الرقم يتم التصفيى التلفائية 

ولكن عند كتابة الرقم التصفية التلفائية لا تعمل 

مشروع.xlsx

[عبدالفتاح في بي اكسيل]

جرب هذا  الكود 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 5 And Target.Column = 1 Then
   If Target.Value = "" Then
      Sheet1.ShowAllData
   Else
       Sheet1.Cells.AutoFilter Field:=5, Criteria1:=Target.Value
   End If
End If
End Sub

مشروع1.xlsm

[ناصر فرحات]

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

لكن ليس لدي خبره كافية للتعامل مع الاكواد 

هل يكفي ان اتعامل هكذا مع الملف 

[عبدالفتاح في بي اكسيل]

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

تحياتي