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