2tane listbox ile süzme

[mami38]

selamün aleyküm,

bir tane çalışma dosyam var

1.listbox ile H hücresini süzüp, 2.listboxa D hücresinde ki verileri göstermeli.

2.listboxa göre de verileri textboxa aktarıp güncelleme yapıyorum verilerde.


Yani benim yapamadığım şey 1.listbox H hücresinde ki verileri görüntülücek (aynı veriden birden fazla olabiliyor mesela 6tane Ahmet yazan hücre var 1tane ahmet göstermeli ve Ahmet'i seçtiğimde D hücresinde ki Ahmet'lerin verilerini listbox2 'de göstermeli)

sitede ki listbox örneklerini inceledim fakat çoğu combobox ile listboxa süzdürmüş bir türlü beceremedim 2listbox ile süzdürmeyi

şimdiden çok teşekkürler.

 

[PLİNT]

Merhaba
"Userform" kod sayfasına aşağıdaki kodları ekleyip deneyin.

Private Sub UserForm_Initialize()
For a = 1 To Cells(Rows.Count, "H").End(3).Row
If WorksheetFunction.CountIf(Range("H1:H" & a), Cells(a, "H").Value) = 1 Then
ListBox1.AddItem Cells(a, "H").Value
End If: Next
End Sub

Private Sub ListBox1_Click()
ListBox2.Clear
For a = 1 To Cells(Rows.Count, "H").End(3).Row
If Cells(a, "H").Value = ListBox1.Value Then
ListBox2.AddItem Cells(a, "D").Value
End If: Next
End Sub

 

[mami38]

Maalesef olmadı.

ListBox1'e H sütunundakiler geliyor fakat ListBox2 bomboş hiç bir şey gelmiyor

 

[PLİNT]

Maalesef olmadı.

ListBox1'e H sütunundakiler geliyor fakat ListBox2 bomboş hiç bir şey gelmiyor

Ek dosyayı incelermisiniz? İstediğiniz böyle değilmi?
http://www.dosya.tc/server6/qk3pvb/Kitap1.zip.html

veya böylemi?
Yukarıda değişen kodlar bu örneğe göre
http://s6.dosya.tc/server5/gv28na/Kitap2.zip.html

Öyle değilse bir küçük örnek ekleyip indirme adresini verirseniz;; http://www.dosya.tc/

 

[mami38]

Kitap2'de ki gibiydi. Çok teşekkürler çözüldü.