Filtrelemede seçili kalıyor

[igultekin2000]

iyi günler;
Textbox ile sütunda filtreleme yapıyorum. Aynı zamanda filtrelemeyi temizleme içinde makro kullanıyorum. Normalde veriler seçilip temizleniyor. Ancak resimde de görüldüğü gibi belli satırdan sonrası seçili kalıyor. Filtrelemeden sonra satırların tamamen boş kalması için ilave bir işlemi nasıl yapabilirim. Teşekkürler

Private Sub TextBox2_Change()
On Error Resume Next

Selection.AutoFilter Field:=2, Criteria1:="*" & TextBox2.Value & "*"
son = Cells(Rows.Count, "B").End(3).Row 'son dolu hücre
[B2] = Cells(son, "G13")
End Sub
Private Sub TextBox2_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox2.Text = ""
End Sub

Filtreleme ve filtreli temizlemede bunları kullanıyorum.

 

[ÖmerFaruk]

[B2] = Cells(son, "G13")
bu satırın altına bunu ilave edin
Selection.AutoFilter

 

[igultekin2000]

Sorun bu şekilde çözüldü. Teşekkür ederim, iyi çalışmalar.

 

[Orion1]

Bu türden soruları makro kaydet ile rahatlıkla çözebilirsiniz.

 

[igultekin2000]

Yönlendirme için teşekkürler, bir çok makro üzerinde değiştirme işlemiyle yeni makrolar oluşturdum, makro kaydet ile de bazı çalışmalar yaptım ancak, özellikli durumlarda sorun çözmek bilgi gerektiriyor. Öncelikle makro kaydet özellikleri ile ilgili detaylı açıklama bulamadım. Şöyle ki; kaydet ve alt satıra geçi kullanabilmek için Göreli Başvuruları Kullanı bilmek gerekiyor. Teknik olarak fazla bilgim olmadığı için üstadlara kolay görünse de bizim gibi kısıtlı kullanıcılara bilgilerin çok faydası oluyor.