¡Buenas tardes!

Quiero que una matriz contenga los datos de una lista de 147 filas y 3 columnas.. El caso es que si utilizo for each matriz in selection, se me guarda cada celda tres veces cuando intento usar este bucle para tal fin:

1. Worksheets("listacamioneskm").Select
2. Sheets("listacamioneskm").Cells(1, 1).Select
3. Selection.CurrentRegion.Select
4.  
5. For Each matriz In Selection
6.     For indicematrizfila = 0 To 146 Step 1
7.     
8.        
9.         For indicematrizcolum = 0 To 2 Step 1
10.             listacamioneskm(indicematrizfila, indicematrizcolum) = matriz.Value
11.             indicematrizcolum = indicematrizcolum + 1
12.         Next indicematrizcolum
13.         
14.         indicematrizfila = indicematrizfila + 1
15.      
16.     Next indicematrizfila
17. Next matriz

 

He probado muchas combinaciones, pero no doy con la correcta, porque cada vez que  ejecuto el For habiendo comentado el In Selection, para que sólo tenga en cuenta el desplazamiento de las variables, me salta error 91 bloque With no establecido...... ¿Cómo puedo hacerlo?

 

GRACIAS DE ANTEMANO!!  ?????

 

Hola.

Prueba asi:

Dim arr(147, 3)
Dim cel As Range
X = -1
For Each cel In Selection
X = X + 1
arr(X, 0) = cel
arr(X, 1) = cel.Offset(, 1)
arr(X, 2) = cel.Offset(, 2)
Next

Saludos.

Vale, ya lo entendí... ? 

Voy a probar, a ver si me sale...

Muchas gracias.? ?

Hace 25 minutos , Toldeman dijo:

Hola.

Prueba asi:

Dim arr(147, 3)
Dim cel As Range
X = -1
For Each cel In Selection
X = X + 1
arr(X, 0) = cel
arr(X, 1) = cel.Offset(, 1)
arr(X, 2) = cel.Offset(, 2)
Next

Saludos.

Pues tampoco lo consigo así..?

La primera vuelta almacena bien los datos.

La segunda vuelta está cogiendo un dato que ya se había guardado en el índice (0,1) y lo almacena en el (1,0).

También coge el dato almacenado en (0,2) y lo almacena en (1,1).

A la tercera vuelta, coge el dato que está en (0,2) y en (1,1), y lo mete por tercera vez en la matriz, en el índice (2,0).

Creo que la forma de no triplicar datos es anidando dos FOR, uno para columnas y otro para filas... pero tampoco lo logro..?

 

Hola a ambos

Una alternativa es la siguiente

matriz = Range("A1").CurrentRegion

 

Saludos 

Hace 1 minuto , Gerson Pineda dijo:

Hola a ambos

Una alternativa es la siguiente

matriz = Range("A1").CurrentRegion

 

Saludos 

Gracias. Entiendo que esto es una alternativa al código que puse de:

1. Sheets("listacamioneskm").Cells(1, 1).Select
2. Selection.CurrentRegion.Select

Pero sigo sin poder almacenar correctamente los datos en la matriz... Se triplican.?

Sin el archivo es muy complicado averiguar el porqué de tu problema.

Hace 17 minutos , Enid86 dijo:

Pero sigo sin poder almacenar correctamente los datos en la matriz... Se triplican.?

Con este metodo no es necesario ningun bucle for next

Hace 10 minutos , Gerson Pineda dijo:

Con este metodo no es necesario ningun bucle for next

Es exactamente como dices.

Un saludo y gracias por compartir.

Libro1.xlsm

Estimado Toldeman, que todo este bien por allá en España, un abrazo! 

Muchas gracias a todos.

Si no es por el fichero de Toldeman, no hubiese visto a qué te referías Gerson... Qué simple.. y yo volviéndome loca con los bucles.

Al fin......?

??

 

 

Tengo otra cuestión respecto a esta solución...

Yo quería que en la matriz todo fuese de tipo String, pero los datos de la primera columna me los almacena como tipo Double, porque son números.... ¿Hay alguna forma de forzar para que se almacenen como String? 

Hace 1 hora, Gerson Pineda dijo:

Hola a ambos

Una alternativa es la siguiente

matriz = Range("A1").CurrentRegion

 

Saludos 

 

Si pongo que quiero que sea de tipo String me da error porque no coinciden los tipos....

Solo deja la Dim v

 

Saludos 

Dejando solo Dim v, me almacena los datos como tipo Double... ¿Cómo puedo hacer entonces para que los almacene como tipo String?

 

 

HE DADO CON UNA SOLUCIÓN CUTREEEE....??. Poniendo un ' delante del listado de todos los números que se almacenarán en la matriz..
Pero si dais con una solución más técnica... pues os agradezco si la compartis, porque esto me parece muy chapucero... 

Gracias! 

Hace 1 minuto , Enid86 dijo:

Dejando solo Dim v, me almacena los datos como tipo Double... ¿Cómo puedo hacer entonces para que los almacene como tipo String?

 

Hola, prueba con un condicional.

Siguiendo el ejemplo que subi:

If IsNumeric(v(1, 1)) Then v(1, 1) = CStr(v(1, 1))

 

Saludos.

Hace 5 minutos , Toldeman dijo:

Hola, prueba con un condicional.

Siguiendo el ejemplo que subi:

If IsNumeric(v(1, 1)) Then v(1, 1) = CStr(v(1, 1))

 

Saludos.

Te lo agradezco, pero los sigue almacenando como Double... parece que sólo me funciona poniendo el apóstrofe delante del número... qué pena... Como siga así hoy, me veo comiendo tarta de chocolate para quitarme las penas.... He avanzado poquísimo.. Pero cuando lo tenga terminado, lo subiré para que veáis la pedazo locura que estoy inventando... xDDDDD. 

Si se te ocurre algo más Toldeman, soy todo OJOS...?

Hola.

Otra idea.

	X = CStr(v(1, 1))
	Range("E2") = X
Range("E2").NumberFormat = "@"

Un saludo.

Hace 2 horas, Enid86 dijo:

Te lo agradezco, pero los sigue almacenando como Double... parece que sólo me funciona poniendo el apóstrofe delante del número... qué pena... Como siga así hoy, me veo comiendo tarta de chocolate para quitarme las penas.... He avanzado poquísimo.. Pero cuando lo tenga terminado, lo subiré para que veáis la pedazo locura que estoy inventando... xDDDDD. 

Si se te ocurre algo más Toldeman, soy todo OJOS...?

¿Que esperas para subir una muestra en Excel?

Pues es que el fichero tiene mogollón de hojas, código a medias..... Ahora mismo, todavía es un caos. Cuando lo tenga apañado, ya lo subo y os pregunto lo que no he sido capaz de resolver ni si quiera con vuestros consejos y así podéis iluminarme y divertiros también un rato, claro.. Os dejo criticar y que os llevéis las manos a la cabeza por falta de eficiencia del código y tal y tal...(miedo me da...? )  jajajajajajajaja... 

??

 

Hace 20 horas, Gerson Pineda dijo:

¿Que esperas para subir una muestra en Excel?

A ver si mañana tengo tiempo de probarlo y te cuento, Toldeman. Gracias! ?

Hace 21 horas, Toldeman dijo:

Hola.

Otra idea.

 

	X = CStr(v(1, 1))
	Range("E2") = X
Range("E2").NumberFormat = "@"

 

Un saludo.

 

En 8/4/2020 at 11:37 , Enid86 dijo:

Pues es que el fichero tiene mogollón de hojas, código a medias..... Ahora mismo, todavía es un caos. Cuando lo tenga apañado, ya lo subo y os pregunto lo que no he sido capaz de resolver ni si quiera con vuestros consejos y así podéis iluminarme y divertiros también un rato, claro.. Os dejo criticar y que os llevéis las manos a la cabeza por falta de eficiencia del código y tal y tal...(miedo me da...? )  jajajajajajajaja... 

??

 

No necesitamos tu proyecto completo, solo una simple hoja, con una muestra de tus datos, pero con la estructura real

 

Saludos 

No he conseguido que funcione, seguramente por características del código ya creado....Pero muchas gracias igualmente. ?

En 7/4/2020 at 21:51 , Toldeman dijo:

Hola.

Otra idea.

 

	X = CStr(v(1, 1))
	Range("E2") = X
Range("E2").NumberFormat = "@"

 

Un saludo.

 

Hola.

Haz un pequeño ejemplo y subelo.

 

Saludos.

Al fin.....?

Las Macros aparecen descritas en la hoja "Macros". Las descripciones que no están coloreadas, es porque están sin hacer todavía.
 

Me interesaría que me ayudáseis, si sabéis/podéis, en dos cosas fundamentales:

1-Módulos 3 y 5: Ver si conocéis un código mejor que el que he utilizado para pasar los datos que aparecen en la pestaña GS, al resto de hojas, según el listado "listacamionesKm" (módulo 3) y listado "listacalidad"(módulo 5). Aunque he comprobado que los datos se pasan correctamente, siempre da un error al final del proceso de "Subíndice fuera de rango" y no entiendo el motivo, porque todos los elementos en listacalidad y listacamiones, tienen una hoja creada.

2 -Módulos 3 y 5: Ver la forma de cumplimentar una matriz bidimensional con los datos de "listacamioneskms" que después se pueda comparar con la variable "vehículo" sin que dé error de tipos al usar If UBound(Filter(listacalidad, vehiculo)) >= 0 Then .

Bueno, y cualquier mejora de código, aunque trate otros aspectos, será bienvenida y aprovechada, porque esto del VBA me encanta y escuchando críticas es como se aprende mejor... Así que no sintáis lástima y sed todo lo duros que queráis...? 

Mil gracias y que empiece la fiesta! ??

MACROMODELO(web) - copia.xlsm