TextBox filtreleme yapma

[S.Yiğit]

Merhabalar,

Bir excel tablosunda kullandığım TextBox filtreyi başka bir tabloda kullanmak istiyorum ama yeni filtre koyacağım tabloda makrolar olduğu için hata veriyor.

Proje isimli tablodaki TextBox filtreyi Servis isimli tabloda da kullanmak istiyorum. Eklediğim dosyalarda ne yapmak istediğim anlaşılıyor.

 

[Ömer]

Merhaba,

Private Sub TextBox1_Change()
[COLOR=red]Dim METİN1 As String, FC2 As Range
[/COLOR]On Error Resume Next
METİN1 = TextBox1.Value
Set FC2 = Range("B7:C65000").Find(What:=METİN1)
Application.Goto Reference:=Range(FC2.Address), _
   Scroll:=False
Selection.AutoFilter Field:=3, Criteria1:="*" & TextBox1.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=3
End If
End Sub

Bu şekilde kod sayfasına ekleyin. İlaveler kırmızı ile işaretli.

 

[S.Yiğit]

Ömer bey merhaba,

Teşekkür ederim.