Sayfayı koru dediğimde TextBox ile süzme yapmıyor

[jambow]

Sayfayı koru dediğimde TextBox ile süzme yapmıyor

arkadaşlar sayfa ekte .

arkadaşlar sayfayı koru dediğinizde süzme işlemi yapmadığını göreceksiniz
bu soruna çözüm bulabilirmiyiz

 

[janveljan]

İyi akşamlar;
Normalde sayfa koruması eklerken otomatik filitre kullanmaya izin veren bir seçenek var, onu işaretleyip sayfayı koruduğumda filitreni oklarını kullanarak filitreleme yapabiliyorum ama tetxtboxa yazarak bunu başaramıyorum nedenini bende anlayamadım, o yüzden bu durumu aşağıdaki kodlarla aşmaya çalıştım.

Private Sub TextBox2_Change()
On Error Resume Next
METİN1 = TextBox2.Value
Set FC2 = Range("e6:e65536").Find(What:=METİN1)
Application.GoTo Reference:=Range(FC2.Address), _
   Scroll:=False
ActiveSheet.Unprotect
Selection.AutoFilter Field:=2, Criteria1:=TextBox2.Value
If METİN1 = "" Then
Selection.AutoFilter Field:=2
End If
ActiveSheet.Protect
End Sub