combobox tek basamaklı numara ile arama

[herta]

arkadaşlar formda combobox ta arama yaparken diyelimki tek haneli yani 1 i arıyorum ama 11, 12, 112 gibi 1 le başlayanların tamamı geliyor bunu nasıl düzeltirim acaba teşekürler

Private Sub ComboBox5_Change()
Dim sat, s As Integer
Dim deg1, deg2 As String
With ListBox1
.Clear
.ColumnCount = 7
.ColumnWidths = "0;45;55;135;65;180;70"




End With
For sat = 3 To Cells(65536, "B").End(xlUp).Row
deg1 = UCase(Replace(Replace(Cells(sat, "B"), "ı", "I"), "i", "İ"))
deg2 = UCase(Replace(Replace(ComboBox5, "ı", "I"), "i", "İ"))
If deg1 Like "*" & deg2 & "*" Then
ListBox1.ListIndex = ListBox1.ListCount - 1
ListBox1.AddItem

ListBox1.List(s, 0) = sat
ListBox1.List(s, 1) = Cells(sat, "B")
ListBox1.List(s, 2) = Cells(sat, "C")
ListBox1.List(s, 3) = Cells(sat, "D")
ListBox1.List(s, 4) = Cells(sat, "E")
ListBox1.List(s, 5) = Cells(sat, "F")
ListBox1.List(s, 6) = Format(Cells(sat, "G"), "##,#0.00 TL")
ListBox1.List(s, 7) = Cells(sat, "A")


Toplam

s = s + 1
End If: Next


End Sub

 

[Huseyinkis]

If deg1 Like "*" & deg2 & "*" Then burdaki kodu


If deg1 = deg2 Then olarak değiştirip denermisiniz.

 

[herta]

dediğin oldu ama bu seferde combobox boşken listbox ın tamamını boş gösteriyor

teşekürler buna bir örnek varmı acaba

 

[Huseyinkis]

dediğin oldu ama bu seferde combobox boşken listbox ın tamamını boş gösteriyor

teşekürler buna bir örnek varmı acaba

kodları bu şekilde denermisiniz.

deg2 = UCase(Replace(Replace(combobox5, "ı", "I"), "i", "İ")) altına aşağıdaki if kodlarını yerleştirin.

If combobox5 = "" Then
deg2 = "*"
End If

If deg1 = deg2 Then

 

[Orion1]

gerekli yerleri aşağıdaki gibi yapınıp deneyiniz.

End With
deg2 = UCase(Replace(Replace(ComboBox5, "ı", "I"), "i", "İ"))
For sat = 3 To Cells(65536, "B").End(xlUp).Row
deg1 = UCase(Replace(Replace(Cells(sat, "B"), "ı", "I"), "i", "İ"))
If deg2 = "" Then deg2 = deg1
If deg1 = deg2 Then

 

[herta]

ustalarım ne yazıkki olmuyorr form açılırken yada combobox silince tüm listeyi almıyorum

 

[Orion1]

ustalarım ne yazıkki olmuyorr form açılırken yada combobox silince tüm listeyi almıyorum

5 nolu mesajda düzenleme yaptım.tekrar deneyiniz.

 

[herta]

olmadı ne yazıkki
kardeşim dosyamı eklesem yada daha önceki birkonumda vardı linki aşğı yazayım birde o konuya cevap almamiştım sana zahmet bir bak beni aydınlat

http://www.excel.web.tr/f48/2-listbox-kullanymy-t118160.html#post645713

 

[Huseyinkis]

olmadı ne yazıkki
kardeşim dosyamı eklesem yada daha önceki birkonumda vardı linki aşğı yazayım birde o konuya cevap almamiştım sana zahmet bir bak beni aydınlat

http://www.excel.web.tr/f48/2-listbox-kullanymy-t118160.html#post645713

If ComboBox5 = "" Then
deg2 = deg1
End If


If deg1 = deg2 Then

Bu şekilde deneyin bende problem yaratmadı.

 

[herta]

bu defa oldu
kardeşim bu mubarek günde zaman ayırdığınız için çok teşekür ediyorum Orion1kardeşimdenen ve senden ricam linkteki 2 listbox olayı hakkında bir yorum yapmanız olur veya olmaz diye çünkü bu konu hakkında hiç birşey bulamadım o yüzden userformdan ayırmayı düşünüyorum link yine aşağıda

http://www.excel.web.tr/f48/2-listbox-kullanymy-t118160.html#post645713

 

[Orion1]

bu defa oldu
kardeşim bu mubarek günde zaman ayırdığınız için çok teşekür ediyorum Orion1kardeşimdenen ve senden ricam linkteki 2 listbox olayı hakkında bir yorum yapmanız olur veya olmaz diye çünkü bu konu hakkında hiç birşey bulamadım o yüzden userformdan ayırmayı düşünüyorum link yine aşağıda

http://www.excel.web.tr/f48/2-listbox-kullanymy-t118160.html#post645713

Benim yazdığımda ayni idi.Nasıl benimki olmuyor?

 

[herta]

If ComboBox5 = "" Then
deg2 = deg1
End If
If deg1 = deg2 Then

end If farklı sadece ama çok saol sayende çok güzel çalışmam oldu Evren gardaşım hakkını helal et ve linke bir bak
http://www.excel.web.tr/f48/2-listbox-kullanymy-t118160.html#post645713

gerekli yerleri aşağıdaki gibi yapınıp deneyiniz.

End With
deg2 = UCase(Replace(Replace(ComboBox5, "ı", "I"), "i", "İ"))
For sat = 3 To Cells(65536, "B").End(xlUp).Row
deg1 = UCase(Replace(Replace(Cells(sat, "B"), "ı", "I"), "i", "İ"))
If deg2 = "" Then deg2 = deg1
If deg1 = deg2 Then