Generar combinaciones de datos con Macros
Buenas tarde y gracias de antemano con su apoyo.
Estoy comenzando a empaparme en el tema de las macros pero no he podido lograr el avance que deseo, es por eso que les pido su apoyo.
Tengo en una hoja la siguiente información en una tabla, donde "Objeto" y "Tamaño" son los nombres de las columnas de información que tengo (pongo ejemplos para que sea más sencillo de explicar)
Objeto Color
Mesa Negro
Mesa Café
Silla Café
Puerta Blanco
Mesa Rojo
Silla Negro
Puerta Negro
En otra hoja tengo la siguiente información
Color Acabado
Café Rustico
Café Matizado
Negro Matizado
Blanco Tenue
Negro Tenue
Negro Rustico
Lo que necesito obtener es, por medio de macros, en una hoja tener todas las combinaciones posibles, algo así:
Objeto Color Acabado
Mesa Negro Matizado
Mesa Negro Tenue
Mesa Negro Rustico
Mesa Café Rustico
Mesa Café Matizado
Mesa Rojo (quedaría vacío porque no hay acabado de ese color)
Etc...
Espero me puedan ayudar :s, muchísimas gracias de antemano por sus comentarios y ayuda :)
Estoy comenzando a empaparme en el tema de las macros pero no he podido lograr el avance que deseo, es por eso que les pido su apoyo.
Tengo en una hoja la siguiente información en una tabla, donde "Objeto" y "Tamaño" son los nombres de las columnas de información que tengo (pongo ejemplos para que sea más sencillo de explicar)
Objeto Color
Mesa Negro
Mesa Café
Silla Café
Puerta Blanco
Mesa Rojo
Silla Negro
Puerta Negro
En otra hoja tengo la siguiente información
Color Acabado
Café Rustico
Café Matizado
Negro Matizado
Blanco Tenue
Negro Tenue
Negro Rustico
Lo que necesito obtener es, por medio de macros, en una hoja tener todas las combinaciones posibles, algo así:
Objeto Color Acabado
Mesa Negro Matizado
Mesa Negro Tenue
Mesa Negro Rustico
Mesa Café Rustico
Mesa Café Matizado
Mesa Rojo (quedaría vacío porque no hay acabado de ese color)
Etc...
Espero me puedan ayudar :s, muchísimas gracias de antemano por sus comentarios y ayuda :)
1 Respuesta
Respuesta de Isaac Reyes
1
No sé si haya una forma corta de hacer lo que pides.
De todas formas, aquí te dejo una macro que te puede sacar de apuros por el momento.
Sub combinar()
Set hojaObjeto = Hoja1
Set hojaColor = Hoja2
Set hojaDestino = Hoja3
k = 1
For i = 1 To hojaObjeto.UsedRange.Rows.Count
For j = 1 To hojaColor.UsedRange.Rows.Count
If (Trim(hojaObjeto.Cells(i, 2)) = Trim(hojaColor.Cells(j, 1))) Then
hojaDestino.Cells(k, 1) = hojaObjeto.Cells(i, 1)
hojaDestino.Cells(k, 2) = hojaObjeto.Cells(i, 2)
hojaDestino.Cells(k, 3) = hojaColor.Cells(j, 2)
k = k + 1
End If
Next
Next
End Sub
De todas formas, aquí te dejo una macro que te puede sacar de apuros por el momento.
Sub combinar()
Set hojaObjeto = Hoja1
Set hojaColor = Hoja2
Set hojaDestino = Hoja3
k = 1
For i = 1 To hojaObjeto.UsedRange.Rows.Count
For j = 1 To hojaColor.UsedRange.Rows.Count
If (Trim(hojaObjeto.Cells(i, 2)) = Trim(hojaColor.Cells(j, 1))) Then
hojaDestino.Cells(k, 1) = hojaObjeto.Cells(i, 1)
hojaDestino.Cells(k, 2) = hojaObjeto.Cells(i, 2)
hojaDestino.Cells(k, 3) = hojaColor.Cells(j, 2)
k = k + 1
End If
Next
Next
End Sub
Muchas Gracias granpeke :)
La verdad estoy un poco perdido en el tema de las macros pero con lo que me pasaste es más que suficiente para obtener lo que necesito al menos mientras leo más sobre el tema. Por el momento no tengo oportunidad de checarlo con la información real pero seguramente me será de mucha ayuda porque de plano tenia nada :s
Muchísimas gracias de nuevo por tomarte la molestia. Saludos :)
La verdad estoy un poco perdido en el tema de las macros pero con lo que me pasaste es más que suficiente para obtener lo que necesito al menos mientras leo más sobre el tema. Por el momento no tengo oportunidad de checarlo con la información real pero seguramente me será de mucha ayuda porque de plano tenia nada :s
Muchísimas gracias de nuevo por tomarte la molestia. Saludos :)
