kod hata verıyor

[semira_]

Dim donemliktalep() As Variant
Dim numcustomer As Integer


Range("A1").Activate

ActiveCell.Offset(2, 0).Select

For i = 1 To 5

donemliktalep(i) = Int(Rnd * 11) + 20
If i + 1 <= 5 Then donemliktalep(i + 1) = donemliktalep(i + 1) + Int(Rnd * 11) + 15
If i + 2 <= 5 Then donemliktalep(i + 2) = donemliktalep(i + 2) + Int(Rnd * 11) + 10
If i + 3 <= 5 Then donemliktalep(i + 3) = donemliktalep(i + 3) + Int(Rnd * 11) + 5

ActiveCell.Offset(i, 0) = donemliktalep(i)

 

[PLİNT]

Dim donemliktalep() As Variant
Dim numcustomer As Integer

Merhaba
Aşağıdaki gibi deneyin

Dim donemliktalep[COLOR="Red"](5)[/COLOR] As Variant