Copiar datos de una hoja si coincide una celda de otra hoja
Os cuento a ver si me podéis ayudar. Tengo 8500 filas, cada una distintas, se diferencian en una celda que se llama Barcode. De esta lista se han extraído unos 1500 barcodes que tengo que verificar, solo tengo estos barcodes, por lo que quisiera automatizar el copiado de la información correspondiente de estos barcode, como descripción, ubicación, etc.
Por lo que necesitaría es saber como puedo copiar en una hoja al lado del Barcode toda la información de dicho barcode que se encuentra en la otra hoja. No se si me he explicado, bien... Si tenéis alguna duda
1 respuesta
Te anexo una macro
Pon tus 8500 filas en la "Hoja1", en esta hoja el barcode deberá estar en la columna A
En la "Hoja2", en la columna A, pon los 1500 barcode
Ejecuta la siguiente macro
Sub Copiar_Barcode()
'Por.Dante Amor
Application.ScreenUpdating = False
Application.StatusBar = False
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
'
u = h2.Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To u
Application.StatusBar = "Copiando registro : " & i & " de : " & u
Set b = h1.Columns("A").Find(h2.Cells(i, "A"), lookat:=xlWhole)
If Not b Is Nothing Then
h1.Range(h1.Cells(b.Row, "B"), h1.Cells(b.Row, "Z")).Copy h2.Range("B" & i)
End If
Next
Application.StatusBar = False
Application.ScreenUpdating = True
MsgBox "Fin"
End SubSigue las Instrucciones para un botón y ejecutar la macro
- Abre tu libro de Excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Ahora para crear un botón, puedes hacer lo siguiente:
- Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
- Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
- Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
- Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: Copiar_Barcode
- Aceptar.
- Para ejecutarla dale click a la imagen.
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
