Listboxtan veri süzme

[arslan]

İyi çalışmalar
Ekteki dosyayı inceleyebilirmisiniz

 

[Levent Menteşoğlu]

listboxa aşağıdaki kodu yazın.

[vb:1:755faaecf6]Private Sub ListBox1_Click()
ComboBox1.Clear
Set s1 = Sheets("sayfa1")
For a = 2 To s1.Cells(65536, 1).End(xlUp).Row
If s1.Cells(a, 1) = ListBox1.Value Then
ComboBox1.AddItem s1.Cells(a, 2).Value
End If
Next
End Sub[/vb:1:755faaecf6]

 

[arslan]

Elinize sağlık çok güzel
Buna birde Combobox'a İlk açılışta Tümünü listeletmek ve Listbox'a tümü seçeneğinide koyup tıkladığımızda
hepsine ait bilgileri comboboxa listeletebilmek istedim ama malesef başaramadım

Ã?rnek Ekte
İnceleyebilirseniz sevinirim

 

[Levent Menteşoğlu]

Kodu aşağıdaki gibi düzenleyin. Userform initializedeki combobox1.rowsource satırını silin. birde listedeki perşembe yazılarını düzeltebilirsiniz.

[vb:1:a41fb9be97]Private Sub ListBox1_Click()
ComboBox1.Clear
Set s1 = Sheets("sayfa1")
For a = 2 To s1.Cells(65536, 1).End(xlUp).Row
If ListBox1.Value = "Tümü" Then ComboBox1.AddItem s1.Cells(a, 2).Value
If s1.Cells(a, 1) = ListBox1.Value Then
ComboBox1.AddItem s1.Cells(a, 2).Value
End If
Next
End Sub[/vb:1:a41fb9be97]

Açılışta tümünü listelemek için Userform initializenin en sonuna aşağıdaki kodları ilave edin.

[vb:1:a41fb9be97]Set s1 = Sheets("sayfa1")
For a = 2 To s1.Cells(65536, 1).End(xlUp).Row
ComboBox1.AddItem s1.Cells(a, 2).Value
Next[/vb:1:a41fb9be97]

 

[arslan]

Teşekkürler
Herkese saygılar ve iyi çalışmalar diliyorum