Actualizar una hoja1 de otra hoja 2
Me pasaron este código:
Sub COPIAR()
Dim UNICOS As New Collection
Set H1 = Worksheets("HOJA1")
Set H2 = Worksheets("HOJA2")
Set DATOS = H1.Range("A1").CurrentRegion
Set ACTUAL = H2.Range("A1").CurrentRegion
AFILAS = ACTUAL.Rows.Count
ACTUAL.Sort KEY1:=H2.Range(ACTUAL.Columns(1).Address), ORDER1:=xlAscending, Header:=xlYes
With DATOS
Set DATOS = .Rows(2).Resize(.Rows.Count - 1, .Columns.Count)
.Sort KEY1:=H1.Range(.Columns(1).Address), ORDER1:=xlAscending
DFILAS = .Rows.Count: RESTA = AFILAS - DFILAS
If RESTA = 0 Then GoTo FIN
Set NUEVOS = .Rows(DFILAS + 1).Resize(RESTA, 1)
x = 1
With ACTUAL
For I = 2 To .Rows.Count
NOMBRE = .Cells(I, 1)
On Error Resume Next
BUSCA = WorksheetFunction.Match(NOMBRE, DATOS.Columns(1), 0)
If Err.Number > 0 Then NUEVOS.Cells(x, 1) = NOMBRE: x = x + 1
On Error GoTo 0
Next I
End With
Set DATOS = .CurrentRegion
.Sort KEY1:=H1.Range(.Columns(1).Address), ORDER1:=xlAscending, Header:=xlYes
End With
FIN:
End SubPara poder también actualizar la columna B que tendría que añadir
1 Respuesta
Respuesta de Dante Amor
1
Actualizar Hoja 2 en Hoja 1
Ejemplo: ANUTA MIRZA no esta en la hoja 1
Quiero actualizar: ANUTA MIRZA + 1656
Ahora con ese código SOLO ME ACTUALIZA EL NOMBRE.
Te anexo la macro para actualizar las 2 columnas
Sub Actualizar_Hoja1()
'Por.Dante Amor
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
'
For i = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row
Set b = h1.Columns("A").Find(h2.Cells(i, "A"), lookat:=xlWhole)
If b Is Nothing Then
u = h1.Range("A" & Rows.Count).End(xlUp).Row + 1
h2.Range("A" & i & ":B" & i).Copy h1.Range("A" & u)
End If
Next
Set r = h1.Range("A1").CurrentRegion
r.Sort Key1:=h1.Range(r.Columns(1).Address), Order1:=xlAscending, Header:=xlYes
MsgBox "Fin"
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
