Listbox'da seçilen veriyi, listview'de süzmek

[EKREM1661]

Saygıdeğer Arkadaşlar..!

Ekte; dosya içerisinde açıklaması ile birlikte sade bir örnek hazırladım. listbox1 de listelenen verilerden yapılan seçimi listview de süzmek istiyorum..

Yardımcı olursanız, bu sorunu halletmiş olacağım ve çok makbule geçecek..

 

[EKREM1661]

Uzman arkadaşlarımızın konuyu ele alıp almadığını bilmiyorum.. Fakat bu soru, yine de bir şekilde halledilemez mi.?

 

[Levent Menteşoğlu]

İlgili butona aşağıdaki kodu yazarak deneyebilirsiniz.

Private Sub CommandButton1_Click()
If ListBox1.ListIndex = -1 Then Exit Sub
ListView1.ListItems.Clear
sut = WorksheetFunction.Match(ComboBox1, [5:5], 0)

With ListView1
For i = 6 To Sheets("PANEL").Cells(65536, sut).End(xlUp).Row
If Sheets("PANEL").Cells(i, sut) = ListBox1 Then
c = c + 1
 .ListItems.Add , , Sheets("PANEL").Cells(i, "B").Value
 .ListItems(c).SubItems(1) = Sheets("PANEL").Cells(i, "D").Value
 .ListItems(c).SubItems(2) = Sheets("PANEL").Cells(i, "E").Value
 .ListItems(c).SubItems(3) = Sheets("PANEL").Cells(i, "F").Value
 .ListItems(c).SubItems(4) = Sheets("PANEL").Cells(i, "G").Value
 .ListItems(c).SubItems(5) = Sheets("PANEL").Cells(i, "H").Value
 .ListItems(c).SubItems(7) = Sheets("PANEL").Cells(i, "J").Value
 .ListItems(c).SubItems(8) = Sheets("PANEL").Cells(i, "K").Value
 .ListItems(c).SubItems(9) = Sheets("PANEL").Cells(i, "L").Value
 .ListItems(c).SubItems(10) = Sheets("PANEL").Cells(i, "M").Value
 .ListItems(c).SubItems(11) = Sheets("PANEL").Cells(i, "N").Value
End If
Next
End With
End Sub

 

[EKREM1661]

Saygıdeğer Hocam Sn.Levent bey..! Ne kadar teşekkür etsem azdır, hayat boyu başarılar diliyorum..