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.
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