Buenos días, 

Estoy ejecutando una macro, y en un momento dado necesito guardar los valores en una matriz de dos vectores, es decir mi_array (x,y). El problema reside en que a priori desconozco el tamaño de la matriz, pero puede ser muy grande (varios miles (o cientos de miles) en la posición x). Si le defino el tamaño al principio del proceso, por ejemplo mi_array (1 to 1000, 1 to 1000), funciona el proceso de después pero llega un momento en que se queda fuera de rango porque necesito más posiciones. Si la dimensiono más grande por ejemplo mi_array (1 to 10000, 1 to 10000) entonces desde el principio me índica Memoria insuficiente (el límite para el error está aproximadamente en  mi_array (1 to 10000, 1 to 10000)

Por tanto, creo que la solución pasa por no definir a priori su tamaño, pero no sé como hacerlo para dos dimensiones. Dim mi_array as variant me da el problema de que no me da dos dimensiones, y al intentar guardar el primer valor en la posición mi_array(1,1) me da error. 

¿Existe alguna solución a mi problema?

 

Sube tu archivo, porque me da que sobredimensionado. Se puede bar qué hacer.

No hacen falta todos los datos, pero si que la estructura sea la real

Buenos días Haplox, 

Lo siento pero es que el archivo es enorme y la macro también. Ésta depende de varios cálculos al inicio y varios al final, y aislada esa parte pierde un poco el sentido, pero el trozo crítico al que hago referencia sería algo así: 

ReDim conexiones(1 To 10000, 1 To 10000)

i = 1

j=1

'Obtengo a partir de otros cálculos y matrices el valor de nf y lo guardo en la posición correspondiente de la matriz problemática

Do while (una serie de condicionantes)

If nf=(otra serie de condiciones)
    conexiones(i, j) = nf

   i = i + 1

End if 

Loop

 

Mi problema está en que si no dimensiono la matriz (ReDim conexiones) no me guarda el valor en las diferentes posiciones de i, j, porque me da error de tipos. Y si la dimensiono, o me quedo corto y necesito más filas porque sigue creciendo en i y me aparece subíndice fuera del intervalo, o si la quiero dimensionar más grande cuando crea la matriz ya da error de memoria, siendo el límite para mi ordenador de 10000 filas (más o menos). 

 

Gracias

Hola

Si con esos valores te dice "memoria insuficiente", o tienes muchos programas abiertos o realmente la memoria RAM de la PC en donde estás usando eso es muy pequeña.

Prueba algo así:

Dim mi_array() As Variant
Dim x As Integer, y As Integer

x = 20

ReDim mi_array(1 To x, 1 To x) As Variant

y = 30

ReDim Preserve mi_array(1 To y, 1 To y) As Variant

No mencionas de donde salen los valores, yo ahí los interpreto con "x" e "y" pero obviamente tú puedes sacarlo de donde solo tú puedes saber. Otra cosa, uso Redim y luego Redim Preserve por si vas agregando valore y la matriz vuelve a crecer y no quieres perder los ya agregados, pero insisto, sin detalles es más difícil darte una respuesta 100% certera.

Abraham Valencia

Hace 5 horas, Haplox dijo:

Sube tu archivo, porque me da que sobredimensionado. Se puede bar qué hacer.

No hacen falta todos los datos, pero si que la estructura sea la real

Gracias Abraham, 

Es cierto que la información que doy está un poco sesgada, pero mi problema es que desconozco x e y (es decir desconozco hasta que finalice todas las comprobaciones) cuanto elementos se van a guardar en la matriz, porque se guardan los elementos de otros vectores que cumplen ciertas condiciones, y es imposible saber a priori cuantos elementos se guardarán. De hecho esa macro aplicada a algunos casos son 20 filas a otros casos más grandes me he quedado en 10000 porque ya no he podido ejecutar más.

Pero por tu respuesta, entiendo que no hay manera de definir la matriz sin tamaño y que vaya creciendo libre. 

Estimado, por eso digo que solo tú puedes saber de dónde sacar esos valores pero no das datos para darte pautas de cómo hacerlo.  Dices que no se sabe cuántos valores serán pero,  en algún momento ¿llegan? esos datos y he ahí cuando se puede obtener los valores en las variables pero ¿de dónde salen esos datos? ¿cómo los obtienes? ¿de una base de datos (no Excel)? ¿de cálculos hechos en VBA? ¿de otra hoja de Excel? ¿¿?? ¿cómo se obtienen dichos datos? etc.

Abraham Valencia

Hace 6 horas, JuanPerez dijo:

El problema reside en que a priori desconozco el tamaño de la matriz

Después de lo explicado por @avalencia, debes estar consciente, que si no sabes el limite de la matriz, es como navegar mar adentro sin foro, ademas 10000 mil elementos en una matriz, deberia ser un suspiro para Excel, pero como te lo han comentado, también viene en juego los recursos de la PC

Mi sugerencia es que busques la forma de obtener el limite de la matriz, mas que todo por esto:

Hace 6 horas, JuanPerez dijo:

puede ser muy grande (varios miles (o cientos de miles) en la posición x). Si le defino el tamaño al principio del proceso, por ejemplo mi_array (1 to 1000, 1 to 1000), funciona el proceso de después pero llega un momento en que se queda fuera de rango porque necesito más posiciones

Excel va hacer simplemente lo que le digas tu

 

Saludos a todos

Bueno gracias a ambos, 

No es que no os quiera subir el archivo para que me ayudéis es que los datos previos están vinculados a una herramienta que se ejecuta a raíz de una librería de cálculo vinculada a otro programa, y por tanto no podríais ejecutarla para obtener los datos de partida. 

Aunque quiera, no puedo saber el número de valores que va a tener mi matriz, porque lo que hace es valorar los datos de las matrices previas, y en función de los resultados generar una nueva fila, bueno en realidad lo que hace es desplazar todos los datos guardados desde la fila donde va a guardar en adelante y guardar el dato en esa posición, por lo que la matriz no para de crecer con cada comprobación favorable que hace. 

Probaré en otro ordenador con más memoria o capacidad, pero es muy posible que tenga el mismo error, pues mi objetivo es poder analizar muchas combinaciones y esto puede superar los cientos de miles de datos. 

 

Estimado, en realidad aunque era idóneo, no es una obligación "subir" un archivo pero si detallar algunas cosas como las que pregunté.  Sobre ese "otro" programa que ejecuta cálculos, más que saber eso habría que saber todo lo relacionado, e insisto, a las preguntas que hice.

Sobre los valores, ten por 100% seguro que sí se puede saber, más aún si dices que hay matrices previas y sobre eso se hacen los cálculos, pero, también insisto, solo tú podrías saber cómo hacerlo porque eres, de los de este foro, el único que conoce su archivo y los programas mencionados. Ah, quizá el dilema está, también, en la forma en que colocar (por lo que se entiende) los datos en la hoja.

Prueba con otro ordenador con más memoria pero ojo, recomiendo usar Office de 64 bits.

Abraham Valencia  

 

Hace 8 horas, Haplox dijo:

No hacen falta todos los datos, pero si que la estructura sea la real

Ya te lo dije @JuanPerez , hay muchas maneras de dimensionarla sin saber el nº de filas y columnas, pero si no nos proporcionas nada...

Hace 3 horas, avalencia dijo:

Estimado, en realidad aunque era idóneo, no es una obligación "subir" un archivo pero si detallar algunas cosas como las que pregunté.  Sobre ese "otro" programa que ejecuta cálculos, más que saber eso habría que saber todo lo relacionado, e insisto, a las preguntas que hice.

Sobre los valores, ten por 100% seguro que sí se puede saber, más aún si dices que hay matrices previas y sobre eso se hacen los cálculos, pero, también insisto, solo tú podrías saber cómo hacerlo porque eres, de los de este foro, el único que conoce su archivo y los programas mencionados. Ah, quizá el dilema está, también, en la forma en que colocar (por lo que se entiende) los datos en la hoja.

Prueba con otro ordenador con más memoria pero ojo, recomiendo usar Office de 64 bits.

Abraham Valencia  

 

... y es que en realidad, cuando las matrices son mal utilizadas, se dan estos casos

Respecto a tu libro, no se pide un "original", se solicita una recreación del mismo, de parte del consultante, pues se debe tener demasiada imaginación, magia negra y varita, para determinar como se puede resolver de la mejor forma

 

Saludos!