Textboxtta YATAY süzme işlemi

[mtongur]

saygıdeğer hocalarım
textboxtda yanyana süzme yaptırabilirmiyiz
forumda yaklaşık 3 saattir arıyorum ama bulamadım
yardımcı olursanız çok sevinirim.
örnek ektedir

 

[mtongur]

sayın hocalarım
yardımlarınızı bekliyorum

 

[mtongur]

Private Sub TextBox6_Change()
On Error Resume Next
METİN5 = TextBox6.Value
Set FC2 = Range("F2:J65000").Find(What:=METİN5)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=6, Criteria1:=TextBox6.Value
If METİN5 = "" Then
Selection.AutoFilter Field:=6
End If
End Sub




bu kodla düşey arama yapabiliyorum
yatay arama için nasıl bir değişiklik yapmam gerekiyor?

 

[omerceri]

Yatay olarak süzme işlemi yapılamaz ama benzer şekilde sütunlar gizlenebilinir.
Örnek ekte.

 

[mtongur]

çok teşekkür ederim
tam istediğim şeydi bu

 

[tr_ust]

Yatay olarak süzme işlemi yapılamaz ama benzer şekilde sütunlar gizlenebilinir.
Örnek ekte.

Ekteki dosya indirilemiyor.