Soru Listboxtaki seçili verileri hucrelere yazdirma

[yerlikayakçı]

Listboktaki coklu secilmis degerleri a1,â2 .....seklinde secili olanlari hucrelere nasil yazdiririz

 

[EmrExcel16]

Buyurun..

rw = 1
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        Cells(rw, 1) = ListBox1.List(i, 0)
        rw = rw + 1
    End If
Next