TextBox da yazılı Kelimeye Göre ListBox Oluştur.

[ECYavuz]

Saygılar ve Selamlar...

Bir Kitap Listesi Mevcut..(A:A) Yazarı (B:B) ve Fiyatı (C:C) ile birlikte...
Ekli Örnekte de görüleceği gibi.. TextBox1 e aramak istediğimiz kelimeyi gireceğiz.

ListBox ta bize sadece içinde o kelime geçen kitapları (A:A dan arayıp) Listeleyecek...
(Örnek olarak Biz "Banka" girmişsek Kitap ismi içinde "Banka"-"Bankaları"-"Bankalarda" v.b gibi ekli veya eksiz tüm Banka sözcüğü geçen kitaplar Listelenecek)

İkinci aşamada ise; ListBox ta listelenen bu kitaplar tıklandığında veya çift tıklandığında da en alttaki TextBox2 de o yayına ait Yazar ismi ve fiyatı yazılacak...

Buradaki problem ListBox a listelenen kitapların büyük bir liste içinden ayıklanarak seçilmiş olması...

100 Puanlık Uzman sorusu gibi oldu ama İlgilenecek Arkadaşlara şimdiden gönül dolusu Teşekkürler...

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub ListBox1_Click()
Dim SUT As Integer
For SUT = 2 To Cells(65536, "A").End(3).Row
If Cells(SUT, "A") = ListBox1 Then
Cells(SUT, "A").Select
TextBox2 = Selection.Offset(0, 1) & "   " & Selection.Offset(0, 2).Value
End If
Next
End Sub
Private Sub TextBox1_Change()
Dim SUT, S As Integer
ListBox1.Clear
For SUT = 2 To Cells(65536, "A").End(3).Row
If Cells(SUT, "A") Like TextBox1 & "*" Then
ListBox1.AddItem
ListBox1.List(S, 0) = Cells(SUT, "A")
S = S + 1
End If
Next
End Sub
Private Sub UserForm_Initialize()
TextBox1 = "."
TextBox1 = ""
End Sub

 

[ECYavuz]

Sayın Uzmanım Ne diyeceğimi ve nasıl diyeceğimi bilemiyorum. Kelimenin tam anlamı ile HARİKASINIZ... Bir teşekkür yetmez düşüncesiyle 100 teşekkür.

Hele Bu hıza yetişmek olanaksız...

Gününüz aydın olsun tekrar tekrar sağolun..

 

[ECYavuz]

Küçük---Büyük harf ayrımı olmadan arama yapabilmemiz için bir yol varmı??

 

[ECYavuz]

Ve bir soru daha... Eğer cümlenin ortalarında olan bir kelime yazılırsa bu şekilde bulmak mümkünmüdür?

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub TextBox1_Change()
Dim SUT, S  As Integer
Dim DEG1, DEG2 As String
ListBox1.Clear
For SUT = 2 To Cells(65536, "A").End(3).Row
DEG1 = UCase(Replace(Replace(Cells(SUT, "A"), "i", "İ"), "ı", "I"))
DEG2 = UCase(Replace(Replace(TextBox1, "İ", "i"), "I", "ı"))
If DEG1 Like "*" & DEG2 & "*" Then
ListBox1.AddItem
ListBox1.List(S, 0) = Cells(SUT, "A")
S = S + 1
End If
Next
End Sub

 

[ECYavuz]

3 Soruya 5 dakika da yanıt. Helal olsun ne diyeyim...Çook Teşekkürler...

Tüm işiniz yolunda gitsin....

 

[N.Ziya Hiçdurmaz]

Bişey değil.

 

[yavuz829]

Listede BİR kelimesi olduğu halde diğer kelimeleri buluyor. BİR yazdığımız zaman hiç bir şey bulamiyor acaba bulamadığı başka kelime de varmı bu sorun haledilirse çok güzel ve kulanışlı olmuş hazırlayanın ellerine sağlık.

 

[N.Ziya Hiçdurmaz]

yanıt

Problem giderildi.

 

[woyzeck]

Çok güzel bi çalışma olmuş ellerinize sağlık

 

[yavuz829]

çok güzel olmuş çok teşekürler ellerinize sağlık

 

[mnz]

Kodlar çok güzel.
Aynı kitap isminden birkaç tane olduğunda sadece bir tanesinin ismini listeye eklemesini ben biraz uzun yolla yaptım. Kısa yolu varmıdır?

(Listbox içindekileri sayfaya kopyalayıp benzeri ismi olanların yanına işaret koyduktan sonra listbox a tekrar alarak)

 

[ECYavuz]

Listedeki sözcükleri seçme bulma konusunda çok iyi, Sayın VBA tekrar teşekkürler..

 

[bitmez13]

yardım

ben yapmış olduğunuz bu çalışmaya teşekkür ederim ben sizden birazdaha eklentili bir şey istiyorum.ek olaraka aramayı birden fazla sayfa(kitapta) yapabilirmiyiz ayrıca hangi kitapta ve hangi hücrede olduğunuda bana gösterebilirmi teşekkürler