texbox boyutunun küçülmesi sorunu.

[kemal turan]

Merhabalar,
Aşağıdaki kod filtreleme kodudur.Kodumuz çalışıyor fakat;
Textboxun içerisindeki veriyi silince B1 hücresinde olan textbox A1 hücresinin köşesine boyutları küçülerek gidiyor
Bunun sebebi nedir nasıl önleriz.
Teşekkür ederim

Private Sub TextBox1_Change()
Dim METİN1 As String, FC2 As Range
On Error Resume Next
METİN1 = TextBox1.Value
Set FC2 = Range("a2:n65000").Find(What:=METİN1)
Application.GoTo Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=3, Criteria1:="*" & TextBox1.Value & "*"
If METİN1 = "" Then
ActiveSheet.Range("$A$1:$V$16939").AutoFilter Field:=3
ActiveSheet.Cells(Rows.Count, "A").End(3).Offset(1).Select

End If
End Sub

 

[asi_kral]

Merhaba
Tahmin ettiğim kadarı ile 1 satır'a da filtre uyguluyor silindiğinde de bu filtre otomatik olarak textbox ayarı ile oynuyor olabilir.
Dosya ekleyebilir misiniz bir deneme yapalım sonuca ulaşabilirsem yeni kodu eklerim.

 

[kemal turan]

Merhaba Sn.asi kral
ilginize teşekkür ederim.
Sorunu şöyle çözdüm.
Bir deneme yaptım.Yeni bir sayfa ekledim, verilerimi oraya aldım, kodumuzu hiç değiştirmeden kullandım sorun ortadan kalktı.
Tahminim sayfanın yapısında bir ayar kaçıklığı oluyor herhalde.
İlginize tekrar teşekkür eder, hayırlı günler dilerim.

 

[asi_kral]

Merhaba Sn.asi kral
ilginize teşekkür ederim.
Sorunu şöyle çözdüm.
Bir deneme yaptım.Yeni bir sayfa ekledim, verilerimi oraya aldım, kodumuzu hiç değiştirmeden kullandım sorun ortadan kalktı.
Tahminim sayfanın yapısında bir ayar kaçıklığı oluyor herhalde.
İlginize tekrar teşekkür eder, hayırlı günler dilerim.

Kolay Gelsin.