• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

combobox ile veri bulma ve listeleme

S

sbayyigit

Katılım
11 Aralık 2004
Mesajlar
419
Excel Vers. ve Dili
Ms Office Pro Plus 2019
Açıklama: Arkadaşlar benim yapmak istedğim şey
combobox içerisine bilgi girerken
"a" harfine bastığım zaman "a" harfi ile başlayan bütün veriler liste halinde listbox içerisine yerleşsin
"ad" olduğu zaman "ad" ile başlayan bütün veriler
ve "ada" girildiğinde "ada" ile başlayan bütün veriler listboxa yerleşsin
ardından ben listbox içerisindeki veri üzerine gelip tıkladığımda
ilgili verinin bilgileri texboxlar içerisine yerleşsin
yardımlarınız için teşekkürler
 
Ekteki örneği inceleyin. Parçaadı isimli textboxa harf yazarak deneyebilirsiniz.
 
usta tam dediğim gibi olmuş fakat örnek :
ben a harfine basınca listbox daki listenin içinde aradığım değeri hemen bulduğumu farzederek başka harfe basmadan liste üzerinden adana yazan yerin üzerine tıkladığımda texboxlara ilgili veriler geleceği zaman hata veriyor
run-time error'424':
object required
sonsuz saygılarımla
 
Listbox1 e tıklayınca textboxların dolması ile textboxa harf yazınca listboxun dolması aynı form üzerinde olmaz, bu iki işlem birbirini kısır döngüye sokmaktadır.
 
bu durumda combobox içerisine verinin tamamı girildiğinde örneğin adana yazısı bittikten sonra tüm texboxlar kendiliğinden adana verisine ait bilgilerle dolabilir mi? ya da combobox içeriği dolmazsa yine kısır döngüye neden olurmu?
veya böyle bir durum için önerebileceğiniz başka bir yöntem var mıdır?
 
Bu durumda bir fazladan textbox eklenebilir, ekli dosyayı inceleyin.
 
Ustalar makroyu kendi formuma uyguladım ve sayenizde çok güzel çalışıyor. fakat ufak bir eksiğim var ve halledemedim. Büyük harf ile yazdığımda aradığım karakterleri bulmuyor. veya tersi oluyor. yani liste küçük harf ile yazılmış ise küççük har kullanmak gerekiyor veya tersi. ama ben böyle olmasını istemiyorum.harflere hassas olmasın istiyorum.
 
Textbox2 deki kodu aşağıdaki ile değiştirin. Yalnız uyan verileri "ı" ve "i" harflerinde ayrım yapmayarak getirecektir.

[vb:1:2fb1c1750d]Private Sub TextBox2_Change()
ListBox1.Clear
If TextBox2 = "" Then Exit Sub
Set s1 = Sheets("vtb")
For a = 2 To s1.[b65536].End(3).Row
If Left(UCase(s1.Cells(a, "c")), Len(TextBox2)) = UCase(TextBox2) Then
c = c + 1
For b = 2 To 8
ListBox1.AddItem
ListBox1.List(c - 1, b - 2) = s1.Cells(a, b)
Next
End If
Next
End Sub
[/vb:1:2fb1c1750d]
 
Sayın hocalar, Tabloda İ (büyük) harfi ile başlayan verileri texboxa çağırınca i (küçük) ile aratmaya çalıştığımda bulamıyor. ama sadece i harfinde sorun var. ötekiler sayın leventm ustanın verdiği kodlarla tamamlandı.
saygılarımla....
 
Private Sub TextBox2_Change()
ListBox1.Clear
Set s1 = Sheets("vtb")
say = Sheets("vtb").Range("b2").CurrentRegion.Rows.Count
For a = 2 To say
If Left(s1.Cells(a, "c"), Len(TextBox2)) = TextBox2 Then
c = c + 1
For b = 2 To say
ListBox1.AddItem
ListBox1.List(c - 1, b - 2) = s1.Cells(a, b)
Next
End If
Next
End Sub


arkadaşım kod üzerinde bir kaç değişiklik yaptım.Ben bu şekil çalıştırdım.Birde sen dene..Kolay gelsin
 
atilla778' Alıntı:
Private Sub TextBox2_Change()
ListBox1.Clear
Set s1 = Sheets("vtb")
say = Sheets("vtb").Range("b2").CurrentRegion.Rows.Count
For a = 2 To say
If Left(s1.Cells(a, "c"), Len(TextBox2)) = TextBox2 Then
c = c + 1
For b = 2 To say
ListBox1.AddItem
ListBox1.List(c - 1, b - 2) = s1.Cells(a, b)
Next
End If
Next
End Sub

arkadaşım kod üzerinde bir kaç değişiklik yaptım.Ben bu şekil çalıştırdım.Birde sen dene..Kolay gelsin
Genişletmek için tıkla ...



Sayın hocam kusura bakma ama kodu çalıştıramadım. acaba ben mi bir yerde hata yapıyorum.
 
Ekli dosya gözükmüyor, dosyayı tekrar verebilir msisiniz?
 
Son düzenleme:
konunun ekli dosyası silinmiş, dosyayı arşivinde bulunduran arkadaş varsa, ekleyebilirmi. teşekkürler.
 
sn: Admin bu sourunun aynısı bende de mevcut . ama ekde dosya yok!

sbayyigit1' Alıntı:
Açıklama: Arkadaşlar benim yapmak istedğim şey
combobox içerisine bilgi girerken
"a" harfine bastığım zaman "a" harfi ile başlayan bütün veriler liste halinde listbox içerisine yerleşsin
"ad" olduğu zaman "ad" ile başlayan bütün veriler
ve "ada" girildiğinde "ada" ile başlayan bütün veriler listboxa yerleşsin
ardından ben listbox içerisindeki veri üzerine gelip tıkladığımda
ilgili verinin bilgileri texboxlar içerisine yerleşsin
yardımlarınız için teşekkürler
Genişletmek için tıkla ...

benim sorunum combobox1 listesi ile ürün arıyorum lakin a harfine bastıkyan sonra combobox listesinde a harfiyle başlayan ürünler değil de sayfa 1 deki yani combobox a veri aldığım sayfadaki ürünler sıra ile gösteriliyor ..ben istiyorum kiğ combobox da a harfini yazdığım da a harfi ile başlayan ürünler listelensin.. sizden ricam .. saygılar
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst