Combox seçim yap ; i Listbox ta görüntülemek

[ozgretmen]

Soruyu ekliyorum Arkadaşlar.Bakarmısınız ?

 

[hamitcan]

Aşağğıdaki kodları kullanabilirsiniz.

Private Sub ComboBox1_Change()
ListBox1.Clear
For Each cmb In [a2:a50]
If ComboBox1 = cmb Then
    c = c + 1
    ListBox1.AddItem
    ListBox1.List(c - 1, 0) = Cells(cmb.Row, 2)
End If
Next
End Sub

Private Sub UserForm_Initialize()
    With ComboBox1
    .AddItem "Fenerbahçe"
    .AddItem "Galatasaray"
    .AddItem "SivasSpor"
    .AddItem "TrabzonSpor"
    End With
End Sub

 

[ozgretmen]

Teşekkürler hamitcan. Ama ComboBox tan seçim yaparken bir süre sonra ListBox ta önceki seçimden kalan isimler gözüküyor.NAsıl düzeltebiliriz.

 

[hamitcan]

Sorunu tam olarak anlayamadım ama kodda bir düzeltme yaptım.Eskisini silip yenisini kullanın.

 

[ozgretmen]

Teşekürler.Tamamdır.İyi Çalışmalar Size...