التصفية حسب القسم

[khairi ali]

السلام عليكم ورحمة الله 

أخواني في هذا الشيت أريد كود التصفية حسب القسم كما في الملف المرفق

تصفية حسب القسم.xlsx

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

ليست المرة الأولى التي اقول فيها انه يجب على الجدول في اكسل ان يكون مستقلاُ عن اي بيانات أو خلايا خارجية

(خاصة اذا كان هناك عدو الاكواد والمعادلات / الحلايا المدمحة)

فوقة صف فارغ الى يمينه ويساره أعمدة فارغة و بدون خلايا مدمحة أو فارغة

انصح دائماً باستعمال اللغة الأجنبية لتسمية الشيتات    لجسن عملية نسخ الكود ولصقة بدون مشاكل اللغة

اي جدول يأتي لا يطابق هذه المواصفات أعتذر عن المساعدة

تم ادراح صفين فارغين 8  و 9 لفصل الجدول عن كل شيء

Option Explicit
Sub filter_me()
Dim mot, rg As Range, col%
mot = Arabi.Range("M2")
Set rg = Arabi.Range("B9").CurrentRegion
col = 16
rg.AutoFilter col, mot
End Sub
'+++++++++++++++++++++++++++++++
Sub show_all()
If Arabi.FilterMode Then
 Arabi.Range("B9").CurrentRegion.AutoFilter
End If
End Sub

الملف مرفق

 

Filter_Ali.xlsm

[khairi ali]

شكرا أستاذ سليم      انا اتعلم من حضرتك

بارك الله فيك أن شاء الله في ميزان حسناتك

 

[abouelhassan]

شكر وتقدير واحترام استاذ سليم رائع