Listbox'dan excele atarken!

[mavisachal]

Arkadaslar selam,
Listboxdaki verilerimizi excele yazdirirken listenin aynisini excele yazdirabiliyoruz bunda bir sorun yok ancak benim istedigim ise listedeki her bir satir icin excele atarken 4 adet atmasi! Yani demek istiyorum ki diyelim ki Listemizde 1,2,3 olmak uzere 3 tane satirimiz var ve ben bunlari excele attigimde 4 tane 1 4 tane 2 4 tane 3 olmasini yani toplam 12 tane deger olmasini ve bir bir bir bir,iki iki iki iki,uc uc uc uc olarak atmak istiyorum.
Bunu yapmak mumkun mudur acaba?
Tesekkurler simdiden yardimlariniz icin.

 

[Orion1]

Dim sat As Long, k As Byte
sat = 1
For i = 0 To ListBox1.ListCount - 1
    For k = 1 To 3
        Cells(sat, "B").Value = ListBox1.Column(0, i)
        sat = sat + 1
    Next k
Next i

 

[mavisachal]

Cok tesekkur ederim Evren Hocam cok isime yaradi.

 

[Orion1]

Cok tesekkur ederim Evren Hocam cok isime yaradi.

Rica ederim.
İyi çalışmalar.