ListBox2 döngüsü hakkında

[chakistes]

Merhaba arkadaşlar aşağıdaki şekilde listbox 2 de tek tek yazmak yerine 500 tane döngü nasıl kurabilirim.
MsgBox (ListBox2.Column(0))

If ListBox2.ListCount > -1 Then
Dim asas As Integer
asas = ListBox2.ListCount
Dim listem(500), sd
sd = 0

For sd = 0 To ListBox2.ListCount + 0

ListBox2.ListIndex = sd


If sd = 1 Then
Range("A5") = "1"
Range("B5") = ListBox2.Column(0, 0)
Range("C5") = ListBox2.Column(1, 0)
Range("D5") = ListBox2.Column(2, 0)
Range("E5") = ListBox2.Column(3, 0)
End If

If sd = 2 Then

Range("A6") = "2"
Range("B6") = ListBox2.Column(0, 1)
Range("C6") = ListBox2.Column(1, 1)
Range("D6") = ListBox2.Column(2, 1)
Range("E6") = ListBox2.Column(3, 1)
End If

 

[Korhan Ayhan]

Sorunuzu örnek dosya ile destekleyiniz. Ne istediğiniz anlaşılmıyor.

 

[chakistes]

Listbox2 döngü hk.

İyi akşamlar aşağıdaki şekilde listbox 2 de tek tek yazmak yerine 500 tane döngü nasıl kurabilirim. faaliyete girildiğinde listbox 2 ye aktardığım verilerin excel sayfasında alt alta yerleşmesini istiyorum. bunun için ortalama 500 isim kullanacağım programdan ihtiyacım olan bölümü ekledim.

MsgBox (ListBox2.Column(0))

If ListBox2.ListCount > -1 Then
Dim asas As Integer
asas = ListBox2.ListCount
Dim listem(500), sd
sd = 0

For sd = 0 To ListBox2.ListCount + 0

ListBox2.ListIndex = sd


If sd = 1 Then
Range("A5") = "1"
Range("B5") = ListBox2.Column(0, 0)
Range("C5") = ListBox2.Column(1, 0)
Range("D5") = ListBox2.Column(2, 0)
Range("E5") = ListBox2.Column(3, 0)
End If

If sd = 2 Then

Range("A6") = "2"
Range("B6") = ListBox2.Column(0, 1)
Range("C6") = ListBox2.Column(1, 1)
Range("D6") = ListBox2.Column(2, 1)
Range("E6") = ListBox2.Column(3, 1)
End If
chakistes Çevrimiçi Kurallara Aykırı Mesajı Bildir