Subscript out of range hatası

[semira_]

Sub dizi()

Dim musteri() As Variant
Dim talep() As Variant

musteri() = Array(Int(Rnd * 11) + 20, Int(Rnd * 11) + 15, Int(Rnd * 11) + 10, Int(Rnd * 11) + 5)


For j = 1 To 3

talep(j) = musteri(i) + musteri(i - 1)


Next

End Sub

 

[Erdem Akdemir]

Sayın semira merhaba,

İstediğiniz tam olarak nedir.Örnek dosya ekleyebilir misiniz?
Açtığınız konularda biraz daha açıklayıcı olmaya özen gösterebilir misiniz?

 

[Necdet]

Merhaba,

Dizilerin aksi belirtilmediğinde ilk indisi sıfırdır.

siz birinci döngüde 1 den başlatarak ilk elemanı eliyorsunuz.

ikinci hatanız ise talep dizisinin eleman sayısı belli değil, hatayı da o yüzden alıyorsunuz.

Mantığını bilmediğimiz için musteri ve talep dizilerinin aynı olacağı düşünülerek,
musteri dizisini oluşturduğunuzda bunun eleman sayısını talep dizisinde belirtmek gerekir.

sıfırdan başladığınız için de bunu :

ReDim talep(0 To UBound(musteri))

şeklinde belirtebilirsiniz.

Bilmem anlatabildim mi?

 

[semira_]

tamamdır sagolun