Açılır kutuda seçilen ismi Textbox süzermi?

[sdegirmenci]

Private Sub TextBox4_Change()
On Error Resume Next
METİN2 = TextBox4.Value
Set FC2 = Range("H5:H500").Find(What:=METİN2)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=6, Criteria1:=TextBox4.Value & "*"
If METİN2 = "" Then
Selection.AutoFilter Field:=6
End If
End Sub

Kıymetli Üstadlar Merhaba;
Ekteki dosyamda "E2" hücresinde mevcut bulunan açılır kutudan seçmiş olduğum isim textbox4 ' ün kendi üzerine üzerine otomatik olarak yazılarak süzme işlemini yaparmı. Yardımcı olursanız çok sevinirim.Çok teşekkür eder işlerinizde kolaylıklar dilerim.

 

[Orion1]

Dosyanız Hazır.

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error Resume Next

    If Intersect(Target, [c:c,E2]) Is Nothing Then Exit Sub
    [COLOR="Red"][B]If Target.Column = 5 Then
        TextBox4.Value = Target.Value
        Exit Sub
    End If[/B][/COLOR]
    say = WorksheetFunction.CountIf(Range("c1:c" & Target.Row - 1), Target)

    If say > 0 Then

    MsgBox "BU KAYIT MEVCUTTUR"

    'Target.Select..............zaten yok

    'Target = ""................zaten yok

  End If

   End Sub