Como remplazar datos de hoja 2 a hoja 1 VBA EXCEL
Tengo dos hojas en las cuales la comuna A que es el "ID" es el mismo en las dos hojas, lo que quiero hacer es que si el ID de la hoja 2 coincide con la hoja 1 se remplacen los datos de las columnas L y M de la hoja 2 a la hoja 1 con un botón de formulario.
Utilizo este código pero no logro hacerlo funcionar. No marca error ni nada.
For Fila = 2 To 1000 If Hoja1.Cells(Fila, 2) = "" Then Final = Fila - 1 Exit For End If Next For Fila = 2 To Final If Hoja1.Cells(Fila, 1) = Hoja3.Cells(Fila, 1) Then Hoja1.Cells(Fila, 12) = Hoja3.Cells(Fila, 12) Hoja1.Cells(Fila, 13) = Hoja3.Cells(Fila, 13) Exit For End If Next
2 respuestas
Respuesta de Dante Amor
3
Te anexo la macro
Sub Actualizar_Datos()
'Por.Dante Amor
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
'
For i = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row
Set r = h1.Columns("A")
Set b = r.Find(h2.Cells(i, "A"), LookAt:=xlWhole)
If Not b Is Nothing Then
celda = b.Address
Do
h1.Cells(b.Row, "L") = h2.Cells(i, "L")
h1.Cells(b.Row, "M") = h2.Cells(i, "M")
Set b = r.FindNext(b)
Loop While Not b Is Nothing And b.Address <> celda
End If
Next
MsgBox "Fin"
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Feliz Año 2018
.
¡Muchas Gracias! Funciona a la perfección, creo estaba muy perdido con el código que tenia.
Éxito en este 2018 crack.
Respuesta de Programar Excel
1
Esto puede aportar algo más