Listboxta seçili satırlardaki 11. sütun değerleri

[harziyan]

Merhaba;

    For i = 0 To ListBox2.ListCount - 1
        If ListBox2.Selected(i) = True Then
            deger = deger & "-" & ListBox2.List(i, 10)
        End If
    Next i
    Sheets("BiyoTut").[c12].Value = deger

Bu kod ile listboxtaki seçili satırların 11. sütunlarındaki değeri almak istiyorum ama olmadı hücre değeri boş ! Nerede yanlış yapmışım acaba?

 

[harziyan]

Sorunu, kodları Listbox2'nin "click" olayından çıkarıp "change" olayına ekleyince çözdüm.