Çözüldü Listbox'daki veriyi hücrelere aktaramıyorum.

[Kekoli]

Arkadaşlar Merhaba,

aşağıdaki kod blogu ile listboxtaki verimi hücrelere sıralı şekilde alt alta aktarmak istiyorum ama olmuyor. en üsttekini aktarıyor o kadar.

For a = 0 To ListBox1.ListCount - 1
For K = 2 To 100
If ListBox1.Selected(a) = True Then
Sheets("egitim").Cells(K, 2) = ListBox1.List(a, 0)
End If
K = K + 1
Next
Next

 

[halit3]

bunu bir dene

For a = 1 To ListBox1.ListCount
For k = 2 To 100
If ListBox1.Selected(a) = True Then
Sheets("egitim").Cells(k, 2) = ListBox1.List(k - 2, a)
End If
k = k + 1
Next
Next

 

[Kekoli]

malesef...

 

[halit3]

bunu dene

k=2
For a = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(a) = True Then
Sheets("egitim").Cells(k, 2) = ListBox1.List(a)
k = k + 1
End If
Next

 

[Kekoli]

olmuyor, neyi yanlış yapıyorum anlamıyorum, gayet net kod aslında.

 

[halit3]

bu dosyaya bir bak

 

[Kekoli]

hallettim hocam ellerinize sağlık teşekkür ederim.