Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
Sheets("Sheet2").Range("$A:$C").AutoFilter Field:=2, Criteria1:=Target.Value
Sheets("Sheet2").Select
End Sub
העברתי את הרשימה המפולטרת לגיליון נפרד
מצורף קובץ הדגמה
