örnek dosyada f sütununda arama yapıyoruz. Formülleri korumak için sayfa korumalı
Sayfa korumalı iken oto filtreyi F sütununda kullanıyoruz
sıkıntımız korumalı halde iken diğer sütunlardada filtrenin aktif olması (en azından C sütunundaki filtreyi kullanmak)
Örnek dosyam linktedir .: http://s2.dosya.tc/server8/st8iit/FTR_Seans_Takip.rar.html
Sayfa korumalı iken oto filtreyi F sütununda kullanıyoruz
sıkıntımız korumalı halde iken diğer sütunlardada filtrenin aktif olması (en azından C sütunundaki filtreyi kullanmak)
Örnek dosyam linktedir .: http://s2.dosya.tc/server8/st8iit/FTR_Seans_Takip.rar.html
Kod:
Private Sub TextBox1_Change()
On Error Resume Next
ActiveSheet.Unprotect "1"
metin = TextBox1.Value
Set bul = Range("F4:F65000").Find(What:=metin)
Application.Goto Reference:=Range(bul.Address), Scroll:=False
Selection.AutoFilter Field:=6, Criteria1:=TextBox1.Value & "*"
If metin = "" Then Selection.AutoFilter Field:=6
[f0].Select
ActiveSheet.Protect "1"
End Sub
Private Sub TextBox1_GotFocus()
TextBox1.Text = ""
End Sub