Buscar un valor de una hoja en otra, si no lo encuentra insertarlo
Tengo una hoja1 que contiene 2 columnas
Código Descripción
Y Hoja2 también con:
Código Descripción
Necesito obtener,
Si Código de Hoja2 no esta en Hoja1 insertar la fila completa de Hoja2 al final en Hoja1.
Respuesta de Programar Excel
1 respuesta más de otro experto
Respuesta de Dante Amor
1
Te anexo la macro
Sub Agregar_Codigos()
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
For i = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row
codigo = h2.Cells(i, "A").Value
Set b = h1.Columns("A").Find(codigo, lookat:=xlWhole)
If b Is Nothing Then
u1 = h1.Range("A" & Rows.Count).End(xlUp).Row + 1
h2.Rows(i).Copy h1.Rows(u1)
End If
Next
MsgBox "Fin"
End Sub'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda