Relacionar 2 columnas de excel co n un macro

Hola,
La consultas es la siguiente.. Tengo 2 rangos variables, me refiero que varia la cantidad de celdas, en 2 hojas distintas.. Ejemplo en la hoja1 tengo una columna tengo un listado de números de partes y en la hoja2 tengo un listado de países.. Lo que necesito es que en otra hoja3 se relacione, de modo que me quede en la columna A el numero de parte repetido para la cantidad de países que haya que irían en la columna B y así pegados consecutivamente por cada numero de parte hasta que se termine el listado.
Doy un pequeño ejemplo por si no fui claro
Partes Países
43R2032 Argentina
45K1672 Uruguay
45K1674 Chile
Y me tendría que quedar
Partes
43R2032 Argentina
43R2032 Uruguay
43R2032 Chile
45K1672 Argentina
45K1672 Uruguay
45K1672 Chile
... Y así hasta terminar
Necesita de ser posible una macro para poder parametrizar cuando son muchos países y muchas partes para que sea lo menos manual posible
Espero se haya entendido.
Gracias

1 Respuesta

Respuesta
1
Espero que todavía necesites la ayuda, aquí te mando este código que hace exactamente lo que tu quieres solo adáptalo a tus rangos y nombres de hojas (me imagino que conoces algo de macros) ya que no das celdas o rangos así como nombres de hojas específicos por eso lo escrbí muy genérico. Cualquier cosa que falle me avisas
Sub relacionar()
    Sheets("Hoja1").Activate
    Range("A2").Select
    While ActiveCell <> ""
        parte = ActiveCell.Value
        Sheets("Hoja2").Select
        Range("A2").Select
        While ActiveCell <> ""
              pais = ActiveCell.Value2
              Sheets("Hoja3").Select
              Range("A2").Select
              While ActiveCell <> ""
                    ActiveCell.Offset(1, 0).Select
              Wend
            fila1 = Row
            ActiveCell.Value = parte
            ActiveCell.Offset(0, 1).Select
            ActiveCell.Value = pais
            ActiveCell.Offset(0, -1).Select
            Sheets("Hoja2").Select
            ActiveCell.Offset(1, 0).Select
        Wend
        Sheets("Hoja1").Select
        ActiveCell.Offset(1, 0).Select
    Wend
End Sub
No olvides puntuar y cerrar la pregunta.
Gracias Capo!
Funciono perfecto, lo adapte a lo que necesitabas modificando las variables pero, era lo que necesitaba.
Mil gracias.
Slds

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Eliminar filas de varias hojas a la vez

Me gustaría eliminar filas de varias hojas, cuyo rango de celdas contengan determinadas palabras y que se insertaran las filas eliminadas en otra hoja nueva llamada "HOJA DEFINITIVA". Las palabras en cuestión son: "obras completas" (las dos palabras...
1 respuesta

Buscar V usando una macro

Intento realizar una búsqueda vertical en un numero indeterminado de datos. La idea es que cuando yo ingrese un valor en la casilla "F1" de la hoja N° 1 me de los datos almacenados en la hoja 2 dispuestos en la calumna AyB(estos datos los puedo...
1 respuesta

Buscar lista de valores en otra lista

Resulta que tengo una lista de una sola columna cuyos valores tengo que buscar en otra lista mas grande que tengo en otra hoja, esta con dos columnas, la búsqueda es en la segunda columna. Esto necesitaría hacerlo en la tercera hoja de manera que me...
1 respuesta

Macro que copie renglones segun valores en columnas

Tengo el siguiente detalle. En un libro de excel tengo alrededor de miles de registros, con la siguiente estructura: ColA ... Col E col F... Col AK col AL ... Col BD xx dato dato valor1 valor2 ... Valor 3 La cosa es la siguiente quiero que se copie...
1 respuesta

Macro para encontrar faltantes de una serie

Necesito una macro que me permita recorrer una columna que contiene una serie de números correlativos y que registre en una nueva hoja de calculo, con el nombre"Faltantes", los faltantes de la serie.
2 respuestas

Macro para copiar según nombre de hoja

Tengo una macro con una hoja de registros por filas (hoja total), de esta hoja, con una macro paso los registros que tienen el la columna B:B el nombre de una hoja, a la correspondiente hoja. Esta es la mcro que repito para cada nombre de hoja: Sub...
1 respuesta