Jump to content
ferminote

Comparar columnas y copiar filas si match

Recommended Posts

Buenos días, no se muy bien si lo que necesito es una macro o una formula.

me explico, tengo una Excel con 2 hojas.

lo que necesito es que coja los valores de la hoja "codebar" (columna B ) y los coteje con los valores de la hoja "names" columna A y en caso de que coincida el valor que copie de la hoja "names" los valores de la línea coincidente (B,C,D,E,F y G) en la hoja "codebar"

ya lo se, me explico muy mal. dejo la Excel de ejemplo

 

gracias por adelantado!!!

coteja.xlsx

Share this post


Link to post
Share on other sites

Pues a mi si me encuentra coincidentes.

Sub Comparar()
Application.ScreenUpdating = False
For x = 2 To Hoja1.Range("A" & Rows.Count).End(xlUp).Row
   Set code = Hoja2.Columns("A").Find(Hoja1.Range("B" & x), , , xlWhole)
   If Not code Is Nothing Then
      Hoja2.Range("B" & code.Row & ":G" & code.Row).Copy Hoja1.Range("C" & x)
   End If
Next
End Sub

 

Share this post


Link to post
Share on other sites

Lo primero , GRACIAS POR LAS RAPIDAS RESPUESTAS.

La macro de Antoni funciona a la perfeccion.

la de HAPLO, parece correcta, pero no lo hace bien, me sale una línea al final solo de la primera coincidencia.

 

Aun así, lo dicho GRACIAS A TODOS

Share this post


Link to post
Share on other sites
Hace 5 horas, Haplox dijo:

@ferminote , al menos podías haber subido un archivo en el que coincidieran más valores :unsure:, no coincideni uno

Te dejo una solución. Prueba y comenta

Copia de coteja.xlsm

Reconoce que te has "liao como la pata de un romano", ¿Será la resaca de ayer?:lol::lol:

Share this post


Link to post
Share on other sites
Hace 10 horas, Antoni dijo:

Reconoce que te has "liao como la pata de un romano", ¿Será la resaca de ayer?:lol::lol:

Seguramente tenga algo que ver... :D. No sé, miraré otra vez, porque mi código es el mismo que el tuyo (vamos, con más líneas :rolleyes:)

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png