Textbox'da yazılanın haricindekileri listelemek ?

[HD1975]

Merhaba ;

Aşağıdaki kodda bir değişikliğe ihtiyacım var.

Kırmızı olan satırda textboxa yazılı olan veri neyse ona göre listboxta veriler
sıralanıyor.Benim ihtiyacım ise yazılı olan veriye uymayanlar listelensin.

Yani textboxtaki veriye eşit olmayanlar listboxta gözüksün.

Saygılar

Private Sub cmdbul94_Click()
Dim veri As Worksheet
Set veri = Sheets("Sayfa8")
ListBox3.RowSource = Empty
ListBox3.Clear
ListBox3.ColumnCount = 9

For Each isim In veri.Range("F2:F" & veri.Range("A20000").End(xlUp).Row)
If UCase(LCase(isim)) Like UCase(LCase(TextBox11)) & "*" Then liste = ListBox3.ListCount
ListBox3.AddItem
ListBox3.List(liste, 0) = isim.Offset(0, -5)
ListBox3.List(liste, 1) = isim.Offset(0, -4)
ListBox3.List(liste, 2) = isim.Offset(0, -3)
ListBox3.List(liste, 3) = isim.Offset(0, -2)
ListBox3.List(liste, 4) = isim.Offset(0, -1)
ListBox3.List(liste, 5) = isim
ListBox3.List(liste, 6) = isim.Offset(0, 1)
ListBox3.List(liste, 7) = Format(CDate(isim.Offset(0, 2).Value), "dd.mm.yyyy")
ListBox3.List(liste, 8) = isim.Offset(0, 3)


End If
Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

If UCase(LCase(isim)) <> UCase(LCase(TextBox11)) Then

 

[HD1975]

Teşekkür Ederim.

Teşekkür Ederim.

Şöyle bir şey daha olabilirmi.Bu textboxa "sonuçlanmıştır" yazıp bu veriye uymayanların,eşit olmayanların listbox açılırken gelmesini istiyorum.

Bu olabilirmi.

Saygılar

 

[Korhan Ayhan]

Selamlar,

Kullandığınız kodu TextBox11_Change() olayına uygulayın. Yazmaya başladığınız anda eşit olmayan kayıtlar listelenmeye başlayacaktır.