Redim Preserve hatası

[Erdem Akdemir]

Merhaba,

Aşağıdaki kod'da dizinin ilk kümesini oluşturuyorum ama ikinci kümesini oluştururken hata veriyor.
Baştan boyutlandırırsam hata almıyorum ama sonradan boyutlandırırsam hata veriyor.

Sub bb()

Dim çift()

For i = 1 To 49

ReDim Preserve çift(0 To a, ç)
çift(a, ç) = i
ç = ç + 1

If ç > 2 Then
a = a + 1
ç = Empty
End If

Next i

End Sub

 

[Necdet]

redim yaparken ç'nin değeri boş

 

[Erdem Akdemir]

Necdet bey,

İlk döndüğünde de ç boş ama diziyi oluşturuyor.
a 1 değerini alıp boyutlandırma yapmak istediğimde hata veriyor.

 

[Haluk]

Erdem Bey, ReDim ile dizinin sadece son boyutunu tekrar boyutlandırabilirsiniz.

Örnek;

Sub Test()
    Dim myArr() As String
   
    ReDim myArr(1 To 5, 1 To 3)
   
    myArr(1, 1) = "Ahmet"
    myArr(2, 1) = "Mehmet"
    myArr(3, 1) = "Veli"
    myArr(4, 1) = "Kemal"
    myArr(5, 1) = "Ali"
   
    myArr(1, 2) = "Soyad1"
    myArr(2, 2) = "Soyad2"
    myArr(3, 2) = "Soyad3"
    myArr(4, 2) = "Soyad4"
    myArr(5, 2) = "Soyad5"
   
    myArr(1, 3) = "TC No 1"
    myArr(2, 3) = "TC No 2"
    myArr(3, 3) = "TC No 3"
    myArr(4, 3) = "TC No 4"
    myArr(5, 3) = "TC No 5"
   
    Range("A1:C5") = myArr
   
    ReDim Preserve myArr(1 To 5, 1 To 4)
   
    myArr(1, 4) = "Ek-1"
    myArr(2, 4) = "Ek-2"
    myArr(3, 4) = "Ek-3"
    myArr(4, 4) = "Ek-4"
    myArr(5, 4) = "Ek-5"
   
    Range("G1:J5") = myArr
End Sub

.

 

[Erdem Akdemir]

Haluk bey cevabınız için teşekkür ederim.