ListBox'tan Hücreye Veri Aktarna

[baykan_m]

Merhaba Arkadaşlar,

Forumda bir çok araştırma yaptım ancak çözümlerin bir çoğu userformlar için anlatılmış o yüzden çözüme ulaşamadım malesef.

Listboxta çoklu seçim yapıldığında seçili değerleri a sütununa yazmasını istiyorum. Bir çok makro denedim ancak yapamadım.

Yardımcı olanlara şimdiden teşekkür ederim.

Örnek Dosya: http://s6.dosya.tc/server11/nkj65w/Egitim.rar.html

 

[PLİNT]

Merhaba
Aşağıdaki kodları denermisiniz?

[SIZE="2"]Private Sub ListBox1_Change()
Set s1 = Sheets("Sayfa1")
a = ListBox1.ListIndex
b = ListBox1.List(a)
x = s1.Cells(Rows.Count, "A").End(3).Row
Set r = s1.Range("A1:A" & x).Find(b, , , xlWhole)
If Not r Is Nothing And _
ListBox1.Selected(a) = True Then Exit Sub
If r Is Nothing And _
ListBox1.Selected(a) = True Then s1.Cells(x + 1, 1) = b
If Not r Is Nothing And _
ListBox1.Selected(a) = False Then s1.Cells(r.Row, 1).Delete Shift:=xlUp
End Sub [/SIZE]

 

[baykan_m]

Çok teşekkür ederim. Ellerinize sağlık mükemmel olmuş