Listview'de ComboBox ile benzersiz liste oluşturmak

[yersahan]

Merhabalar, yaklaşık 3 haftadır listview'in çalışma prensibi üzerine uğraşıyorum.Sitedeki örnek dosyaları inceledim.Çoğu çok karışık geldi,çözemedim.İşime yarar konularda ise;eski dosyalar olduğu için örnek dosyalar kaldırılmıştı.Yardımcı olmanız ümidi ile bir soru sormak istiyorum; Dosyamda ComboBox1 nesnesi Listview1 nesnesine sayfalara göre veri getiriyor.ComboBox2 nesnesi ise gelen verilerden A sütunundaki verileri süzüyor.Benim ise yapamadığım şey, ComboBox2'de A sütunundaki verilere filtre uygulamak istiyorum.Yani kayıtlar sadece bir kez görünecek,üzerine tıkladığımda ise aynı isimle başlayan bütün kayıtlar görünecek.Kısacası ComboBox2'de benzersiz liste oluşturamadım.Yardımcı olurmusunuz.Şimdiden teşekkür ediyorum.Kolay gelsin.

 

[Husgvarna]

Benim ise yapamadığım şey, ComboBox2'de A sütunundaki verilere filtre uygulamak istiyorum.Yani kayıtlar sadece bir kez görünecek,üzerine tıkladığımda ise aynı isimle başlayan bütün kayıtlar görünecek.Kısacası ComboBox2'de benzersiz liste oluşturamadım.Yardımcı olurmusunuz.Şimdiden teşekkür ediyorum.Kolay gelsin.

Aşağıdaki gibi deneyin.

Private Sub Listwiev()
'ListView1 Görüntülenme şekli
ListView1.View = lvwReport
ListView1.Gridlines = True
ListView1.ColumnHeaders.Clear 'Başlıkları temizle
ListView1.ListItems.Clear 'Listeyi temizle
ComboBox2.Clear
'Başlıklar ekleniyor...
Set baslik = ListView1.ColumnHeaders.Add(Text:=Range("A1"))
Set baslik = ListView1.ColumnHeaders.Add(Text:=Range("B1"))
Set baslik = ListView1.ColumnHeaders.Add(Text:=Range("C1"))
'Veriler ilgili başlıklar altına alınıyor...
For i = 2 To Range("A65530").End(3).Row
Set deger = ListView1.ListItems.Add(Text:=Range("A" & i))
If WorksheetFunction.CountIf(Range("a2:a" & i), Cells(i, 1)) = 1 Then _
ComboBox2.AddItem deger.Text
deger.SubItems(1) = Range("B" & i)
deger.SubItems(2) = Range("C" & i)
Next i
End Sub

 

[yersahan]

Verdiğiniz kodlar çok işime yaradı.Sağolun,varolun.Teşekkürler.