İki Ayrı Combobox'dan Listeleme Yapmak.

[ahmed_ummu]

Merhaba arkadaşlar.

Ekte gönderdiğim örnek dosyada Form üzerinde Combobox'ar var. Combobox1'den bir isim seçtiğimde, "ic" sayfasının "A" sütununda kaç tane seçtiğim isimden var ise seçilen kişinin"D" sütunundaki verilerini Combobox2'ye getirsin. Yardımcı olursanız sevinirim.

 

[bmutlu966]

Deneyiniz.

Private Sub ComboBox1_Change()
ComboBox2.Clear
Set s = Sheets("ic")
For i = 2 To s.[a65536].End(3).Row
      If s.Cells(i, "a") = UserForm1.ComboBox1.Value Then
      ComboBox2.AddItem s.Cells(i, "d").Value
End If
Next
End Sub

 

[ahmed_ummu]

Deneyiniz.

Private Sub ComboBox1_Change()
ComboBox2.Clear
Set s = Sheets("ic")
For i = 2 To s.[a65536].End(3).Row
If s.Cells(i, "a") = UserForm1.ComboBox1.Value Then
ComboBox2.AddItem s.Cells(i, "d").Value
End If
Next
End Sub

Çok teşekkürler sayın bmutlu966