DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Option Base 1
Sub dizi59()
Dim myarr() As Variant, s As Long
s = 10
ReDim myarr(1 To 2, 1 To s)
For i = 1 To 10
myarr(1, i) = "evren" & i
myarr(2, i) = i
Next i
For i = 1 To 10
MsgBox myarr(1, i)
MsgBox myarr(2, i)
Next i
End Sub
[FONT="Trebuchet MS"][SIZE="2"]Option Base 1
Sub Emre()
Dim dizi(2, 5), i%, a%, b%: b = 1
For i = 2 To Range("a65536").End(3).Row
a = a + 1
If a > 5 Then b = b + 1: a = 1
dizi(b, a) = Cells(i, 3).Value
Next i
Range("D1").Resize(5, UBound(dizi)).Value = Application.Transpose(dizi)
Erase dizi: i = Empty: a = Empty: b = Empty
End Sub[/SIZE][/FONT]