أخى الحسامى عملك عين المطلوب لكن جزاك الله خيرا
لو تفضلت علينا بشرح الكود الخاص بالفلترة جزاك الله خيرا
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