[ÇÖZÜLDÜ] listbox1 in 2. kolonundaki satrılar Textbox1 de yazanı içeriyorsa kalsın(süzme)

[hsayar]

[ÇÖZÜLDÜ] listbox1 in 2. kolonundaki satrılar Textbox1 de yazanı içeriyorsa kalsın(süzme)

Aşağıdaki kodlar ile CSfData sayfasının b ve c kolonlarını açılışta listboxa yüklüyorum....
Ancak yapamadığım textbox1 değiştikçe (belkide buton) listbox1 in 2 kolonunda yazan verilere göre süzme yapmasıdır. (csfdata da Autofilter yöntemi kullanılmadan olursa daha iyi olur.)


Yani içerir(Textbox1.value) <> ListBox1.List(xx, 1) ise listbox1 den kaldırılsın


listbox1 in 2. kolonundaki satrılar Textbox1 de yazanı içeriyorsa kalsın(süzme)

Private CSfData                 As Worksheet

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'MsgBox ListBox1.List(ListBox1.ListIndex, 1)
uf_FrmPersTkp.ComboBox1.Value = Me.ListBox1.Value
Unload Me
End Sub


Private Sub UserForm_Initialize()
Set CSfData = ThisWorkbook.Worksheets("Sıtkı")
With ListBox1
    .ColumnCount = 2
    .ColumnWidths = "80;100"
    .RowSource = CSfData.Name & "!b2:c" & CSfData.Cells(65536, 2).End(xlUp).Row
End With
End Sub

 

[hsayar]

Forumdaki &#246;rnekleri kar&#305;&#351;t&#305;r&#305;rkeb * ba&#351;lara g&#246;re buldum
bana i&#231;eriri laz&#305;m. yard&#305;mlar&#305;n&#305;z i&#231;in te&#351;ekk&#252;rler

Private Sub TextBoxAra()
With ListBox1
    .RowSource = Empty
    .Clear
    .ColumnCount = 2
    For Each Hcr In CSfData.Range("c3:c" & CSfData.Range("c65536").End(3).Row)
        If UCase(LCase(Hcr)) Like UCase(LCase(TextBox1)) & "*" Then
            liste = .ListCount
            .AddItem
            .List(liste, 0) = Hcr.Offset(0, -1)
            .List(liste, 1) = Hcr.Offset(0, 0)
        End If
    Next
End With
End Sub

 

[veyselemre]

If UCase(LCase(Hcr)) Like "*" & UCase(LCase(TextBox1)) & "*" Then

 

[hsayar]

hallettim hocam te&#351;ekk&#252;rler,

Private Sub TextBox1_Change()
Dim hcr As Range
With ListBox1
    If TextBox1.Value <> "" Then
        .RowSource = Empty
        .Clear
        .ColumnCount = 2
        For Each hcr In CSfData.Range("c2:c" & CSfData.Range("c65536").End(3).Row)
           hcrdeg = UCase(Replace(Replace(hcr.Value, "&#305;", "I"), "i", "&#304;"))
           txtdeg = UCase(Replace(Replace(TextBox1.Value, "&#305;", "I"), "i", "&#304;"))
            If hcrdeg Like "[COLOR=Red]*" & txtdeg & "*[/COLOR]" Then
                liste = .ListCount
                .AddItem
                .List(liste, 0) = hcr.Offset(0, -1)
                .List(liste, 1) = hcr.Offset(0, 0)
            End If
        Next
    Else
            .ColumnCount = 2
            .ColumnWidths = "80;100"
            .RowSource = CSfData.Name & "!b2:c" & CSfData.Cells(65536, 2).End(xlUp).Row
    End If
End With
End Sub