office 2007'de hızlı süzme

[Erdem Akdemir]

office 2007'de aşağıdaki kodu kişisel makro çalışma kitabına eklerseniz ve hızlı erişim araç çubuğunda bir butona atarsanız

seçmiş olduğunuz hücre üzerinde hızlı bir şekilde süzme işlemi gerçekleştirebilirsiniz

üstelik kalıcı olarak, bütün 2007 excel dosyalarınızda kullanabilirsiniz

Sub makrosuz()
ActiveSheet.Range(Cells(1, 1), Cells(Range("A" & [A:A].Rows.Count).End(3).Row, [A1].End(2).Column)).AutoFilter _
Field:=ActiveCell.End(3).Column, Criteria1:=ActiveCell.Value
End Sub