Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("J:J")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Sayfa1.AutoFilterMode = False
Sayfa1.Range("A1:G1").AutoFilter Field:=2, Criteria1:=Sayfa1.Range("J1")
Application.EnableEvents = True
End Sub