Textboxla başharfe göre değil içeriğe göre arama

[armandos]

Merhabalar

Textboxa her yeni harf girdiğimde A sütunundaki o harfleri içeren verileri listboxta listelemesini istiyorum. Nasıl bir kod Kullanmalıyım?

 

[meslan]

Merhaba. Şu kodu denermisin.

Private Sub TextBox2_Change()
On Error Resume Next
With Me.ListBox1
.Clear

End With
s = 0
For i = 1 To [a65536].End(3).Row
DEG1 = Replace(Replace(Cells(i, 1), "I", "ı"), "İ", "i")
DEG2 = Replace(Replace(TextBox2.Value, "I", "ı"), "İ", "i")
If UCase(DEG1) Like "*" & UCase(DEG2) & "*" Or LCase(DEG1) Like "*" & LCase(DEG2) & "*" Then

ListBox1.AddItem
ListBox1.List(s, 0) = Cells(i, 1)
s = s + 1
End If
Next
End Sub

Private Sub UserForm_Initialize()
Sheets("Sayfa1").Select
Sheets("Sayfa1").Columns.AutoFit
With Me.ListBox1
.Clear
End With
For i = 1 To [a65536].End(3).Row
ListBox1.AddItem
ListBox1.List(s, 0) = Cells(i, 1)
s = s + 1
Next
End Sub

 

[armandos]

Merhaba. Şu kodu denermisin.

Private Sub TextBox2_Change()
On Error Resume Next
With Me.ListBox1
.Clear

End With
s = 0
For i = 1 To [a65536].End(3).Row
DEG1 = Replace(Replace(Cells(i, 1), "I", "ı"), "İ", "i")
DEG2 = Replace(Replace(TextBox2.Value, "I", "ı"), "İ", "i")
If UCase(DEG1) Like "*" & UCase(DEG2) & "*" Or LCase(DEG1) Like "*" & LCase(DEG2) & "*" Then

ListBox1.AddItem
ListBox1.List(s, 0) = Cells(i, 1)
s = s + 1
End If
Next
End Sub

Private Sub UserForm_Initialize()
Sheets("Sayfa1").Select
Sheets("Sayfa1").Columns.AutoFit
With Me.ListBox1
.Clear
End With
For i = 1 To [a65536].End(3).Row
ListBox1.AddItem
ListBox1.List(s, 0) = Cells(i, 1)
s = s + 1
Next
End Sub

Sayın Meslan

Tam istediğim gibi oldu.

Emeğinize ve ilginize teşekkür ederim.

 

[tahsinanarat]

SN. armandos çalışmanın son halini ekleyebilirmisiniz, (dosya olarak)

 

[armandos]

SN. armandos çalışmanın son halini ekleyebilirmisiniz, (dosya olarak)

Çalışmanın düzeltilmiş son halini ilk mesajdan alabilirsiniz.