error 9

[ebu]

hola! he creado un proramilla pa haber si domino los vectores y me da un error 9. alguien sabe xq??

'se supone que al clikar el Cb en el excel desde A1 para abajo se tiene que ver 1 2 3 4 5 pero nada. eso puede ser porq al pasar el vector datuak_hartu de la function tengo q pasarlo a un vector temporal en sub?? gracias.

Private Sub CommandButton1_Click()
Dim datuak_hartu() As Integer
Dim j As Integer

Range("A1").Select
For j = 1 To luzera
ActiveCell.FormulaR1C1 = datuak_hartu(j)
ActiveCell.Offset(0, 1).Select
Next j

End Sub

'se carga el vector.
Public Function datuak_hartu(luzera As Integer) As Integer
Dim i As Integer
For i = 1 To a
datuak_hartu(i) = i
Next i
End Function

'es esta funcion recoge el dato de la longitud del vector que es 5.
Public Function luzera() As Integer
Dim a As Integer
a = 5
luzera = a
End Function

[David]

Estás definiendo tu array sin una longitud, lo que permite redimensionarlo, pero si no lo redimensionas no podrás usarlo de la forma como estás intentando:

Código vb:

ReDim vArray(Longitud)
 

Código vb:

ReDim Preserve vArray(Longitud)
 

En este último caso se conservan los valores anteriores.

[Kruzado]

no te compliques la vida con tantas funciones que kizas no se justifican

Private Sub CommandButton1_Click()
Dim luzera=5
Dim datuak_hartu(1 to 5) As Integer
Dim j As Integer


llena el vector
for x=1 to luzera
datuak_hartu(x)=x
next x

Range("A1").Select
For j = 1 To luzera
ActiveCell.FormulaR1C1 = datuak_hartu(j)
ActiveCell.Offset(0, 1).Select
Next j

End Sub

[ebu]

hola!
sorry por lo de antes x crear dos temas, lo tendre en cuenta.

kruzado, he copy/paste el tuyo y me sigue dando error 9.

david tiene razon le tengo q meter un Redim, pero donde tendria que meter esa declaracion??xq se "supone" q al principio no se la long del array. gracias!

Public Function datuak_hartu(luzera As Integer) As Integer
Dim i As Integer
ReDim datuak_hartu (1 to 5) As Integer
'podria ser tb ReDim datuak_hartu (1 to luzera) As Integer???

For i = 1 To a
datuak_hartu(i) = i
Next i
End Function

[David]

Sí, la segunda opción es válida, obtener de una variable el límite que quieres asignar a la matriz.