Soru arama kodunda değişiklik

[Cengizhantr06]

merhaba
kod çalışıyor ama şöyle bi sıkıntı var mesala kayıtlarda
denizbank
denizbank üretici kart
denizbank normal kart
bunlar var ben denizbank aratınca diğerleride öyle başladığı için hepsini buluyor
sadece denizbank ı değil denizbank ile başlayan hepsini buluyor
nasıl düzeltebiliriz

Private Sub ComboBox14_Change()
Dim x As Long
Dim y As Byte
Dim ks As Integer
Application.ScreenUpdating = False
ks = 1
Me.listele1
Sheets("SORGU").Range("A2:AZ100000").Value = ""
For x = 2 To 1000000
If Sheets("girisler").Range("A" & x).Value = "" Then Exit For
If Sheets("girisler").Range("C" & x).Value Like "*" & Trim(UCase(ComboBox14.Value)) & "*" Then
ks = ks + 1
For y = 1 To 11
Sheets("SORGU").Cells(ks, y).Value = Sheets("girisler").Cells(x, y).Value
Next y
End If
Next x
Me.listelesorgu

Application.ScreenUpdating = True
End Sub

 

[ÖmerFaruk]

If Sheets("girisler").Range("C" & x).Value = Trim(UCase(ComboBox14.Value)) Then
Olmuyorsa If Sheets("girisler").Range("C" & x).Value = UCase(ComboBox14.Value) Then
Olmuyorsa If Sheets("girisler").Range("C" & x).Value = ComboBox14.Value Then
O da olmuyorsa ya C sütununda bu veri yok ya da ComboBoxa alamamışınızdır.

 

[Cengizhantr06]

If Sheets("girisler").Range("C" & x).Value = Trim(UCase(ComboBox14.Value)) Then
Olmuyorsa If Sheets("girisler").Range("C" & x).Value = UCase(ComboBox14.Value) Then
Olmuyorsa If Sheets("girisler").Range("C" & x).Value = ComboBox14.Value Then
O da olmuyorsa ya C sütununda bu veri yok ya da ComboBoxa alamamışınızdır.

ilki oldu çok teşekkürler hızır gibi yetiştiniz yine işiniz rast gelsin