A lapfülön jobb katt, kód megjenenítése, oda másold be az alábbi makrót:
Sub Worksheet_Change(ByVal Target As Excel.Range)
If (Target.Column = 1) Then
név = Target.Value
End If
Selection.AutoFilter Field:=1, Criteria1:=név
End Sub
Kizárólag ezen a lapon fog mûködni, az A oszlopban. Ha más lapon is szeretnéd alkalmazni, oda is be kell másolni. Az oszlop a Tartget.Column-ban módosítható (B oszlopnál =2, stb).