subscript out of range hatası.

[felix83]

Dim temp() As String
Dim c As Integer
c = 1
For i = 0 To 11 Step 2
temp(i) = Cells(a, b + c).Address
c = c + 2
Next

B sütunundan ikişer atlayarak adreslerini temp dizisine yazdırmam gerek ama hata veriyor.

 

[hamitcan]

Açıkcası ben de son zamanlarda bu dizi mantığına merak saldım. Ama tam olarak kavrayamadım. Yine de aşağıdaki örnek işinizi görür sanırım.

Sub DiziyeAktar()
Dim temp() As String
For i = 1 To 11 Step 2
    c = c + 1
    ReDim Preserve temp(1 To c)
    temp(c) = Cells(1, i).Address
Next
    For ii = 1 To UBound(temp())
    Debug.Print temp(ii)
Next
End Sub