autofilter makrosunu düzenleme

[takari]

Private Sub TextBox1_Change()
Selection.AutoFilter Field:=7, Criteria1:=TextBox1.Text & "*"
End Sub
Arkadaşlar bu konuda acemiyim. Listemde autofilter işlemini yukarıdaki kod ile textbox kullanarak yapıyorum.Ama listem A6:AM500 arasında ve yukarıdaki kod 1. satırdan başlıyarak süzüyor. Ben ilk 6 satırı süzme işleminden sonrada görmek istiyorum. Arşivi taradım ama kodların içinden çıkamadım.
Şimdiden teşekkürler,

 

[Korhan Ayhan]

Selamlar,

Selection ifadesi yerine Range("A6") yazarak deneyin.

 

[takari]

Selamlar,

Selection ifadesi yerine Range("A6") yazarak deneyin.

Korhan Bey,
Umarım dosyayı ekleyebilmişimdir.
Selamlar ilginize teşekkürler,

 

[Korhan Ayhan]

Selamlar,

Kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub TextBox1_Change()
    Range("A5:C5").AutoFilter Field:=3, Criteria1:=TextBox1.Text & "*", VisibleDropDown:=False
End Sub

 

[takari]

Selamlar,

Kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub TextBox1_Change()
    Range("A5:C5").AutoFilter Field:=3, Criteria1:=TextBox1.Text & "*", VisibleDropDown:=False
End Sub

Korhan Bey,
Sorun çözüldü.
Ellerinize sağlık.