ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[Cengizhantr]

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

[Erkan Akayay]

Like "*" & Trim(UCase(ComboBox14.Value)) & "*"

İki yıldız arası içinde geçeni arar.

*aranan" = arananın içinde geçtiği
*aranan = aranan ile biten
aranan* = aranan ile biten

[Erkan Akayay]

son satır aranan ile baişaya olacaktı. Biten kalmış.

[Cengizhantr]

Like "*" & Trim(UCase(ComboBox14.Value)) & "*"

İki yıldız arası içinde geçeni arar.

*aranan" = arananın içinde geçtiği
*aranan = aranan ile biten
aranan* = aranan ile biten

yani nasıl değiştirmem gerek erkan bey yardımcı olsanız

[Erkan Akayay]

Sinir olduğum bir klişe var ya. Balık verme balık tutmayı öğret. Olta elimde kaldı.

Like Trim(UCase(ComboBox14.Value)) & "*"

olarak deneyiniz.

[Cengizhantr]

Sinir olduğum bir klişe var ya. Balık verme balık tutmayı öğret. Olta elimde kaldı.

Like Trim(UCase(ComboBox14.Value)) & "*"

olarak deneyiniz.

Çok fazla sinir olmayın sinir oluyorsanız cevap vermeyin yapabilsek zaten sormayız

[Erkan Akayay]

Yazdığımdan bunumu anladınız?
Sanırım benim hatam. Bu klişeye sinir olduğumu açıkça belirttiğimi sanmıştım.
Yanlış anlaşılma olmuş, hatam olduysa özür dilerim.

[NECDET KURT]

Şahsen ben şaka anladım.
Çok mütevazisiniz Erkan bey.