Özel Otomatik Filtre

[nadirornek]

sayfa1 de G sutununda özel otomatik filtre penceresini macro ile nasıl açabiliriz

 

[mami68]

Merhaba.Bu kodları bir butonda deneyin aradığınız bumudur.


Private Sub CommandButton1_Click()
Range("G:G").AutoFilter Field:=1, Criteria1:=">2", Operator:=xlAnd, Criteria2:="<8"
End Sub

 

[nadirornek]

Te&#351;ekk&#252;rler
Kod G2 sutununa filtre uyguluyor burdan
&#214;zel Otomatik Filtre penceresini a&#231;mas&#305;n&#305; istiyorum

 

[Korhan Ayhan]

Selamlar,

A&#351;a&#287;&#305;daki kodu denermisiniz.

Sub SÜZ_AÇ()
    Range("G1").Select
    Range("G:G").AutoFilter Field:=1
    Application.SendKeys ("%{DOWN}")
End Sub

 

[nadirornek]

Te&#351;ekk&#252;rler
&#350;imdi oldu