FİLTER (süzme)

[86126]

arkadaşlar belgemin 5. satırana süzme ekleyip kaldırma istiyorum. 5. satırı veya ilgili satırı seçip aşağıdaki kodu çalıştırınca süzme aktif hale geliyor. Ancak ben satırı seçmeden macroyu çalıştırdığımda süzme işaretini koymak istiyorum. bu koda ne eklemem lazım. Yardımlarınızı bekliyorum.

Sub Süzme()
    Selection.AutoFilter
End Sub

 

[Orion1]

Merhaba.
Aşağıdaki şekilde deneremisiniz.Kodları kendinize göre ayarlayınız.

Sub Süzme()
Range("A5:D5").AutoFilter
End Sub

 

[86126]

teşekkürler.beynine sağlık.