ListBox dan diziye alıp sayfaya yazdırmak

[excellcan]

Forumda emeği geçen herkese merhaba. Aşağıdaki kodlarla multiselect özelliği açık olan ListBox2 den seçtiğim satırları diziye alarak sayfa 2 ye yazdırmak istiyorum. Fakat bir türlü başaramadım. Farklı yöntemlerle bunu başarabiliyorum. Fakat dizi yöntemi ile başaramadım. İlgilenen arkadaşlara şimdiden teşekkürler.

With syf2
With ListBox2
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
say = say + 1

ReDim Preserve dizilist(0 To 7, 0 To say)

For j = 0 To 7
dizilist(j, say - 1) = .List(i, j)
Next
End If
Next
End With
.Cells(2, 1).Resize(say, 8) = dizilist

 

[halit3]

Forumda emeği geçen herkese merhaba. Aşağıdaki kodlarla multiselect özelliği açık olan ListBox2 den seçtiğim satırları diziye alarak sayfa 2 ye yazdırmak istiyorum. Fakat bir türlü başaramadım. Farklı yöntemlerle bunu başarabiliyorum. Fakat dizi yöntemi ile başaramadım. İlgilenen arkadaşlara şimdiden teşekkürler.

With syf2
With ListBox2
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
say = say + 1

ReDim Preserve dizilist(0 To 7, 0 To say)

For j = 0 To 7
dizilist(j, say - 1) = .List(i, j)
Next
End If
Next
End With
.Cells(2, 1).Resize(say, 8) = dizilist

bunu denermisiniz.

kod:

With ListBox2

sut = .ColumnCount - 1
ReDim dizilist(0 To sut, 1 To 1)
For r = 0 To sut
b = b + 1
ReDim Preserve dizilist(0 To sut, 1 To b)
[COLOR="Red"]j = 0[/COLOR]
For n = 0 To .ListCount - 1
If .Selected(n) = True Then
dizilist(j, b) = .List(n, r)
[COLOR="red"]j = j + 1[/COLOR]
End If
Next
Next

Worksheets("Sayfa2").Cells(2, 1).Resize(.ListCount, sut) = dizilist
End With

 

[excellcan]

Sayın Halit3 epey uğraşmıştım. Nerde hata yaptığımı da kavradım. Çok teşekkürler.

 

[halit3]

Sayın Halit3 epey uğraşmıştım. Nerde hata yaptığımı da kavradım. Çok teşekkürler.

Teşekkürler iyi çalışmalar