فلترة متقدمه

[waledms]

الأخوه الأعزاء ......السلام عليكم ورحمة الله وبركاته 

الملف المرفق به فلترة متقدمه قام بعملها الأستاذ الفاضل/ صديق .... ارجو توضيح كيفية عمل هذه الفلترة المتقدمه 

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

فلترة متقدمه.rar

[صـدّيـق]

وعليكم السلام 

أولا شكرا على الاطراء و لكنني لست استاذ ولا شيئ أنا مجرد مبتدا أريد التعلم

بما يخص الفلترة المتقدمة تكلون عن طريق تسجيل الماكرو 

قم بالتسجيل وافعل كما كنت تفعل من قبل ، بالذهاب الى خانة الفصل وفلتر من هناك 

ثم اوقف تسجيل الماكرو، تجد شكل التسجل هكذا 

Sub Macro1()
'
' Macro1 Macro
'

'
    "ActiveSheet.Range("$Q$8:$Q$2008").AutoFilter Field:=1, Criteria1:="1l1
End Sub

انقر نقرتين على الكمبو بوكس ليأخذك الى الصفحة

والصق هذا الكود ، و بإضاقة بعض التقديلات يصبح هكذا

()Private Sub ComboBox1_Change
On Error Resume Next

lr = Range("q" & Rows.Count).End(xlUp).Row

"*"& ActiveSheet.Range("$Q$7:$Q$" & lr).AutoFilter Field:=1, Criteria1:="=" & ActiveSheet.ComboBox1.Text
End Sub

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

تم تعديل سبتمبر 13, 2017 بواسطه صـدّيـق

[Ayman sha]

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