كيف يتم عمل فلتر لبيانات التقرير بأختيار أحد البيانات المسجلة بالتقرير

[مجدى لطفى]

أحتاج مساعدتكم حال وجود تقرير مثل المرفق - كيف أقدر أعمل عرض للبيانات بناءا علي أختيار أحد البيانات الموجودة بالتقرير

أمل دعمكم 

Test.xlsx

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

جرب هذل الملف

أولاً الماكرو

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$C$1" Then
Call filter_me(Range("A3").CurrentRegion, 6, Target.Value)
End If
Application.EnableEvents = True
End Sub
'===========================================
Sub Create_dat_val()
Rem created By Salim Hasbaya On 17/9/2019
Dim s1 As Worksheet: Set s1 = Sheets("sheet1")
Dim ro_n: ro_n = s1.Range("A3").CurrentRegion.Rows.Count
Dim i%
Dim dict As Object: Set dict = CreateObject("Scripting.Dictionary")
With s1
 For i = 4 To ro_n
  dict(.Range("F" & i).Value) = ""
 Next
    With .Range("c1").Validation
     .Delete
     .Add xlValidateList, Formula1:=Join(dict.keys, ",")
    End With
 End With
 dict.RemoveAll
End Sub
'===========================================
Sub filter_me(rg As Range, n, My_st)
Rem created By Salim Hasbaya On 17/9/2019
If ActiveSheet.FilterMode Then
 ActiveSheet.ShowAllData
 rg.AutoFilter
 End If
 rg.AutoFilter field:=n, Criteria1:=My_st
End Sub
'===========================================
Sub Show_Me_All()
Rem created By Salim Hasbaya On 17/9/2019
 If ActiveSheet.FilterMode Then
    ActiveSheet.ShowAllData
    Range("A3").CurrentRegion.AutoFilter
 End If
End Sub

ثانياً الملف

 

Filter_By_Select.xlsm

[Ali Mohamed Ali]

أحسنت استاذ سليم اكواد ممتازة

وهذا من حظ الأخ

مجدى لطفى

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

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

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

بارك الله فيك وزادك الله من فضله

 

 

[مجدى لطفى]

شكرا جزيلا أستاذي العزيز 

أمل توضيح كيف يمكنني الإستفادة من الأكواد المرفقة بإضافتها والتحكيم بها بملفات أخري

[مجدى لطفى]

استاذ @سليم حاصبيا

أمل دعمكم في الطلب أعلاه - كيف يمكنني تثبيت ذلك العمل الرائع في أي ملف أخر أريد العمل علية.

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

لا يمكنك فعل هذا لان لكل ملف خصائصه من ناحية عدد الأعمدة فيه وبداية البيانات ونهايتها بالاضافة الى نوعيتها (نصوص أرقام الخ...)

بل يمنكك تعديل الكود بما يتلائم مع وضعية الملف الذي تريد العمل عليه

على فكرة تم التعديل قليلاُ على الملف السابق بحيث تستطيع عمل الفلترة على اي عامود من الجدول وليس فقط (Name1)

تختار الحقل اولاً من الخلية B1  (يتم اطهار كافة البيانات) ومن ثم تحدد اي عنصر من هذا الحقل تريد من الخلية C1 

الملف الجديد مرفق

 

 

 

 

Filter_By_Select_by_col.xlsm

[مجدى لطفى]

شكرا جزيلا أستاذ @سليم حاصبيا

علي ذوقك وتعاونك

[مجدى لطفى]

أستاذي العزيزي @سليم حاصبيا

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

كيف يمكن حلها

😃

 

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

شاهذ هذا الفيديو

https://www.youtube.com/watch?v=SQHJuc-AdAM

 

[مجدى لطفى]

شكرا جزيلا أستاذي العزيز - دائما أستفيد من خبراتك