[Çözüldü] Listbox'tan Excel'e Veri Ekleme

[voleclub]

Selam,
Listbook kutusuna veri ekledim.Bu verilerin önündeki kare şeklindeki kutulardan seçimler yapıp ekle butonuna basınca B32 hücresinden başlayarak aşağıya doğru eklemesini için ne yapabilirim.


(Çözüm içeren dosya eklendiğinden, buradaki silinmiştir. - Bülent)

[Orion1]

Dosyanız ektedir.

Kod: [Seç]

Private Sub CommandButton1_Click()
Dim i As Long, sat As Long
sat = 32
Range("B32:B62").ClearContents
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        Cells(sat, "B").Value = ListBox1.Column(0, i)
        sat = sat + 1
    End If
Next
MsgBox "İşlem Tamamlandı" & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[voleclub]

Çok teşekkür ederim.