Dizide hata

[tamer42]

Merhabalar,

Aşağıda oluşturduğum dizide ekteki hata mesajını alıyorum,

Sub Dizi()
Dim arr()
s = 1

For i = 23 To 52

ad = Cells(1, i).Value
arr(s) = ad
s = s + 1

MsgBox arr(s)
Next i

End Sub

yrdımcı olursanız sevinirim,

iyi Çalışmalar.

 

[Necdet]

Merhaba,

Sub Dizi()
    Dim arr()
    s = 0
    
    For i = 23 To 52
    
        ad = Cells(1, i).Value
        ReDim Preserve arr(s)
        arr(s) = ad
        MsgBox arr(s)
        s = s + 1
    
    Next i
End Sub

 

[tamer42]

teşekkürler,