matriz dinamica tipo type

[ebu]

buenas, aqui estamos con otra duda.
he definido una matrix tipo type de este modo:
Private Type datos
nombre As String
confi As String
cantidad As Integer
End Type

Dim matrix() As datos
k=0
y en una procedure al usarla como:
matrix(k).izena = variable
k = k + 1
se produce un error9: subindice fuera del intervalo
xq aparece eso??
gracias de antemano!

[ebu]

y como se dice la posicion de matrix.nombre(i - 1) y de (matrix.cantidad(i))??
For j = (matrix(i).nombre) To (matrix(i).cantidad)

con l bound y ubound??
For j = lbound(matrix(i).nombre) To ubound(matrix(i).cantidad)

y xq no se puede poner:
For i = 0 To UBound(matrix.nombre)
quiero coger el limite de la matrix en los nombres y me pone q el calificador no es valido.

gracias!

[Avellaneda]

Iniciado por ebu

buenas, aqui estamos con otra duda.
he definido una matrix tipo type de este modo:
Private Type datos
nombre As String
confi As String
cantidad As Integer
End Type

Dim matrix() As datos
k=0
y en una procedure al usarla como:
matrix(k).izena = variable
k = k + 1
se produce un error9: subindice fuera del intervalo
xq aparece eso??
gracias de antemano!

Hola, a la primera pregunta: Tienes que redimendionar el array antes de cargar cualquier valor

ReDim Preserve Matrix(k)
Matrix(k).nombre = "pepe"
Matrix(k).confi = "Confi"
Matrix(k).cantidad = k
k = k + 1

a la segunda, para recorrer la matriz

For i = 0 To UBound(Matrix)
List1.AddItem Matrix(i).nombre
List1.AddItem Matrix(i).confi
Next i

[ebu]

ok.
sobre la segunda pregunta. es posible q coja el ubound de matrix.nombre, es decir, el limite superior de los datos tipo nombre, no el de matrix.
For i = 0 To UBound(matrix.nombre)
Range("A2").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(0, 1).Select
Loop
ActiveCell.FormulaR1C1 = matrix(i).nombre

'aqui lo q quiero q haga en q coja la posicion del nombre q esta en la posicion i de la matrix, e igual con la cantidad. no hay alguna funcion q t devuelva la posicion??gracias!
y aunq lo ponga asi For i = 0 To UBound(Matrix) me sigue dando error 9
For j = (matrix(i).nombre) To (matrix(i).cantidad)
Range("B2").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(0, 1).Select
Loop
ActiveCell.FormulaR1C1 = matrix(j).confi
Next j
Next i

[David]

La Matriz es una sola, así que no tiene sentido lo de UBound(Matriz.nombre) ya que todos los índices tienen ".nombre", no hay diferencias entre los índices de cada variable que compone el Type .

[ebu]

mi matrix esta definida asi:
Private Type datos
nombre As String
confi As String
cantidad As Integer
End Type

yo de atemano se q .confi tendra mayor longitud q el .nombre.
con el UBound(Matriz.nombre) lo q queria era coger el limite superior de .nombre. pero sq eso no se si se puede hacer...
y sabes si este otro seria posible?
For j = (matrix(i).nombre) To (matrix(i).cantidad) 'quiero coger las posiciones de un nombre y una cantidad concreta
valdria con: For j = val(matrix(i).nombre) To val(matrix(i).cantidad)

gracias te antemano!

[David]

Es lo que te expliqué, confi no puede tener mayor longitud que nombre (como cadena sí, pero no son arrays, así que UBound no tiene sentido usar con ellos), ambos pertenecen a un array que se expande.

[ebu]

ok, perdona. sq todavia me cuesta pillar algunos conceptos q son un poco abstractos para mi.
y lo de For j = val(matrix(i).nombre) To val(matrix(i).cantidad) sabes si existe??

[David]

De existir... existe, pero dependiendo del caso, no tiene mucho sentido, ya que estás convirtiendo .nombre en un número y .cantidad en otro, y a partir de ahí estás haciendo un bucle que empiece por el número en .nombre y termine con el número en .cantidad.