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

[أبو العاصم]

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

إخوتى فى الله

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

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$j$12" Then

Range("j16:q100").AutoFilter Field:=7, Criteria1:=Target.Value

End If

End Sub

good.rar

[الحسامي]

السلام عليكم

اخي الكريم شاهد المرفق التالي

فقد يكون طلبك

good.rar

[أبو العاصم]

أخى الحسامى عملك عين المطلوب لكن جزاك الله خيرا

لو تفضلت علينا بشرح الكود الخاص بالفلترة جزاك الله خيرا

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("j12")) Is Nothing Then '-------------------------

Application.ScreenUpdating = False

ActiveSheet.Range("$A$15:$Q$52").AutoFilter Field:=15

ActiveSheet.Range("$A$15:$Q$52").AutoFilter Field:=16

ActiveSheet.Range("$A$15:$Q$52").AutoFilter Field:=17

Range("j16:q100").AutoFilter Field:=16, Criteria1:=Range("j12").Value

End If

If Not Intersect(Target, Range("j13")) Is Nothing Then '-------------------------

Application.ScreenUpdating = False

Range("j16:q100").AutoFilter Field:=15, Criteria1:=Range("j13").Value

End If

If Not Intersect(Target, Range("K14")) Is Nothing Then '-------------------------

Application.ScreenUpdating = False

Range("j16:q100").AutoFilter Field:=17, Criteria1:=Range("K14").Value

End If

End Sub