Listbox'da Birden Fazla Verileri Filtreleme

[ahmed_ummu]

Merhaba arkadaşlar.

Bi konuda yardımınıza rica edeceğim.

Tablo sayfasından listbox'a birden fazla verilerin birini alıyor. Burda bir sorun yok ama verileri aşağıdaki kodla ile filtreleme yaptığımda filtreleme yapmadığı gibi birden fazla olan tüm verileri listeliyor. Filtreleme yapınca birden fazla verilerin bir tanesinin listelenmesini yapmak istiyorum.

Sheets("tablo").Select
ListBox1.Clear
For Suz = 7 To Range("b65000").End(xlUp).Row
alan = UCase(Replace(Replace(Range("b" & Suz), "a", "A"), "e", "E"))
Veri = UCase(Replace(Replace(TextBox1, "a", "A"), "e", "E"))
If alan Like tablo & "*" Then
ListBox1.AddItem
ListBox1.List(i, 0) = Range("b" & Suz)
i = i + 1
End If
Next Suz

Filtreleme yapınca örnek resimdeki gibi listeleme yapıyor. Yardımcı olursanız çok sevinirim.

 

[YUSUF44]

Aşağıdaki konudan devam edin isterseniz:

Birden Fazla Olan Verileri Listbox da Listeleme

Merhaba arkadaşlar. Tablo sayfasındaki birden fazla olan verileri listbox1'e alıyor fakat. aşağıdaki kodlar ile isimleri filtreleme yaptığımda birden fazla olan tüm verileri listeliyor. Filtreleme yaparken de birden fazla olan verilerin sadece bir tanesini getirebilir mi. Öğrek resimlerde ilk...

www.excel.web.tr