[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]
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
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]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.