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

Kekoli

Altın Üye
Katılım
4 Aralık 2017
Mesajlar
134
Excel Vers. ve Dili
Excell 2016
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.

Kod:
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

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,758
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
bunu bir dene

Kod:
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
 

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,758
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
bunu dene

Kod:
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

Altın Üye
Katılım
4 Aralık 2017
Mesajlar
134
Excel Vers. ve Dili
Excell 2016
olmuyor, neyi yanlış yapıyorum anlamıyorum, gayet net kod aslında.
 

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,758
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
bu dosyaya bir bak
 

Ekli dosyalar

Kekoli

Altın Üye
Katılım
4 Aralık 2017
Mesajlar
134
Excel Vers. ve Dili
Excell 2016
hallettim hocam ellerinize sağlık :) teşekkür ederim.
 
Üst