combobox'a yazdığım verilerin benzerlerini combobox'a listeleyebilir mi?

[mücahitayan]

Private Sub combobox1_change()

Dim i As Long
deg = UCase(Replace(Replace(ComboBox1.Text, "ı", "I"), "i", "İ"))
For i = 3 To Sheets("KAYIT").Cells(65536, "C").End(xlUp).Row
If UCase(Replace(Replace(Sheets("KAYIT").Cells(i, "C").Value, "ı", "I"), "i", "İ")) Like "*" & deg & "*" Then
COMBOBOX1.ADDITEM (Sheets("KAYIT").Cells(i, "A").Value)
next i
End Sub
--------------------------------------------------------------------------

merhaba arkadaşlar;

1. benim combobox'umda listbox initializede additem yöntemi ile veriler zaten ekli durumda bulunmaktadır.

benim istediğim şey ise;

çok sayıda benzer isimlerde verim olduğu için değişik bir bulma yöntemi uygulamak istedim.

kısacası ben combobox1'İN textine veri yazdığımda combobox'un listesindeki veriler silinecek ve sadece combobox'a yazdığım verilere benzeyenler listesine eklenecek.

bunu yapabilir miyiz?

combobox.clear yöntemi sadece listesini silse text kısmını silmese yapıcam ama? ne yazık ki bu yöntem yazdığım şeyide siliyor. hiç veri girişi yapamuyorum.

ilginiz için teşekkür ederim.

 

[mücahitayan]

Arkadaşlar dahada basite indirgeyerek sorsam;

comobobox1.clear yaptığımda sadece combobox'un listesinde veriler silinsin

combobox1.text silinmesin.

Bunu yapabilir miyiz?

 

[mücahitayan]

Bu konu hakkında yardımcı olabilecek yok mu acaba?

 

[mücahitayan]

değerli arkadaşlar bir yardım!!

eğer olmuyorsa olmuyor deyin bende başka bir yol arıyayım

ilgili arkadaşlara çok teşekkürler

 

[ynmcan]

değerli arkadaşlar bir yardım!!

eğer olmuyorsa olmuyor deyin bende başka bir yol arıyayım

ilgili arkadaşlara çok teşekkürler

Syn. mücahitayan;
Örnek bir dosya eklerseniz daha çabuk ve sağlıklı cevap alabilirsiniz.

 

[halit3]

böyle bir şey anlaşılmıyor küçük bir örnek dosya eklermisiniz hangi benzeyenler verileri almak istiyorsunuz örnek ile açıklarsanız eminimki sorunuza cevap alacaksınız.

 

[mücahitayan]

sevgili halit hocam;

yapmak istediğimin resmilerde gönderdim.

dosyamda ektedir.

combobox'a ACIBADEM HASTANESİ YAZAMIYORUM.

SİLİNİYOR...

BEN HALBUKİ COMBOBOX'A BİRŞEYLER YAZDIĞIMDA LİSTENİN DEĞİŞMESİNİ İSTİYORUM.


İLGİNİZ İÇİN TEŞEKKÜR EDERİM.

 

[ynmcan]

sevgili halit hocam;

yapmak istediğimin resmilerde gönderdim.

dosyamda ektedir.

combobox'a ACIBADEM HASTANESİ YAZAMIYORUM.

SİLİNİYOR...

BEN HALBUKİ COMBOBOX'A BİRŞEYLER YAZDIĞIMDA LİSTENİN DEĞİŞMESİNİ İSTİYORUM.


İLGİNİZ İÇİN TEŞEKKÜR EDERİM.

Örnek dosyanızı göremedim.

 

[halit3]

bu kodu denermisiniz.

Private Sub combobox1_change()
deg = UCase(Replace(Replace(ComboBox1.Text, "ı", "I"), "i", "İ"))
Dim i As Long
ComboBox1.Clear
For i = 1 To Sheets("sayfa1").Cells(65536, "a").End(xlUp).Row
If UCase(Replace(Replace(Sheets("sayfa1").Cells(i, "a").Value, "ı", "I"), "i", "İ")) = deg Then
ComboBox1.AddItem (Sheets("sayfa1").Cells(i, "A").Value)
End If
Next i
End Sub

 

[mücahitayan]

Halit hocam combobox'a

a harfini yazamıyorum

 

[halit3]

dasyana bir adet textbox nesnesi ekledim ona yazdığın değer varsa combobox'a aktarıyor

 

[ynmcan]

Halit hocamın affına sığınarak yolladığı örnek dosyadaki texbox' u combobox' un üzerine getirdim.

 

[mücahitayan]

Sanırım bu sorunu çözemeyeceğiz. Yinede ilgilendiğiniz için teşekkür ederim. Saolun

 

[mücahitayan]

Açıkcası son dosyaları görmemiştim. Onlarıda inceledim fakat! Bana combobox lazım..

Yani matchentry_complete özelliği lazım. Bunu kullanmalıyım.

Gösterdiğiniz tarza benzerlerini zaten yaptım kullanıyorum

sorunun sebebi ne olabilir acaba hala anlamış değilim

o isim neden siliniyor.

Ama tekrar tekrar teşekkür ederim. Ilginiz için saatlerdir uğraşıyorsunuz saolun varolun.

 

[halit3]

combobox 'a tıkladığınız zaman veya işlem yaptığı zaman ComboBox1.Clear
silme işlemi var bu yüzden silindiğinden dolayı burada bir değer algılamıyor onun için kod değerleri boş oluyor.

 

[mücahitayan]

Halit hocam peki teztbox'a matchentery_complete benzeri bir özellik ekleyebilir miyiz.?

 

[halit3]

yanlış cevap vermeyeyim ama textbox da böyle bir özellik yok herhalde

 

[mücahitayan]

peki hocam çok teşekkür ederim ilgi alakanız için.

 

[halit3]

iyi akşamlar

 

[halit3]

bu kodu denermisiniz.

Private Sub ComboBox1_Change()
deg = ComboBox1.Text
Dim i As Integer
Dim j As Integer
Dim s As String
ComboBox1.Clear
ComboBox1.Text = deg
j = Len(ComboBox1.Text)
For i = 1 To Sheets("Sayfa1").Cells(65536, "a").End(xlUp).Row
s = LCase(Mid(Sheets("sayfa1").Range("A" & i), 1, j))
If Worksheets("Sayfa1").Cells(i, 1).Value > 0 Then
If s = LCase(TextBox1.Text) Then
ComboBox1.AddItem (Sheets("Sayfa1").Range("A" & i))
End If
End If
Next
End Sub