Macro para comparar y copiar celdas

[Invitado JorgePlay]

Intento ayuda para crear una macro para comparar columnas de dos hojas distintas y posteriormente copiar celdas.

El formato es el siguiente:

Hoja1

Apodo_Nombre_Edad_Sexo_Calle_Ciudad_Cod_Pais_Estudios_Genero

Luis_Luis Fernandez_20_V_Diagonal_Bar_08034_Esp_Sup_Let

Ana_Ana Martinez_19_H_Espronceda_Bar_08025_Ep_Sup_Cie

Jose_Jose Aguado_19_V_Mallorca_Hos_08014_Esp_Sup_Cie

Marta_Marta Castell_21_H_Urquinaona_Bar_08027_Esp_Sup_Let

Hoja2

Apodo_Nombre_Edad_Sexo_Calle_Ciudad_Cod_Pais_Estudios_Genero

Marc_Marcos Luis

Luis_Luis Fernandez

Marta_Marta Castell

Jorge_Jorge Luis

Helena_Helena Rodríguez

Al comparar la columna B ( Nombre ) de la hoja 1 con la columna B (Nombre) de la hoja 2, en caso que coincidan los nombres de las dos hojas, entonces en la hoja 2 debería copiar en la columnas, C (Edad), D(Sexo),E(Calle),F(Ciudad),G(Codd),H(País), I(Estudios),J(Género), los mismos datos que hay en la Hoja1

Hoja2

Apodo_Nombre_Edad_Sexo_Calle_Ciudad_Cod_Pais_Estudios_Genero

Marc_Marcos Luis

Luis_Luis Fernandez_20_V_Diagonal_Bar_08034_Esp_Sup_Let

Marta_Marta Castell_21_H_Urquinaona_Bar_08027_Esp_Sup_Let

Jorge_Jorge Luis

Helena_Helena Rodríguez

E ir comparando todos los nombres de la columna B de la hoja1 ( Nombre) con los nombres de la columna B de la hoja 2 ( Nombre) hasta que encuentre una columna vacía en la columna B de la hoja 1 (Nombre)

Gracias.

[Armando Montes]

Hola Jorge, para aprovechar mejor el foro y facilitarnos ayudarte, por favor lee:

Normas AyudaExcel | Ayuda Excel

[rafabq]

Sube un archivo para poder comprender mejor y poder ayudar

[Invitado JorgePlay]

Perdonar, lo desconocía. Subo un trozo corto de archivo.

La hoja1 y hoja2 pueden contener más de 300 filas, por si es importante saber esa información.

Algunas columnas en blanco de la hoja2 son en las que se tendría que copiar la información de la hoja1.

Muchísimas gracias.

Proyecto Excel.xls

[Armando Montes]

Hola, puedes hacerlo con una formula:

=SI($K2="No";"";BUSCARV($B2;Hoja1!$B$2:$J$11;COLUMNA()-1;0))[/CODE]

Con macro seria algo asi:

[CODE]Sub Macro1()
Range("C2:J11").FormulaR1C1 = _
"=IF(RC11=""No"","""",VLOOKUP(RC2,Hoja1!R2C2:R11C10,COLUMN()-1,0))"
Range("C1").Select
End Sub[/CODE]