Te paso la macro
Valora la respuesta para finalizar saludos!
Sub buscar_Datos()
'Por Adriel Ortiz
' Buscar
'
Set h1 = Sheets("REGISTRO & ACTUALIZACIÓN")
Set h2 = Sheets("DATOS")
'
If h1.Range("I2") = "" Then
MsgBox "Ingrese código a buscar"
Exit Sub
End If
'
Set b = h2.Columns("A").Find(h1.[I2], lookat:=xlWhole)
If Not b Is Nothing Then
ncell = b.Row
h1.[I3] = h2.Cells(ncell, "B")
h1.[I4] = h2.Cells(ncell, "C")
h1.[I5] = h2.Cells(ncell, "D")
h1.[I6] = h2.Cells(ncell, "E")
h1.[I7] = h2.Cells(ncell, "F")
h1.[I8] = h2.Cells(ncell, "G")
h1.[I9] = h2.Cells(ncell, "H")
h1.[I10] = h2.Cells(ncell, "I")
h1.[I11] = h2.Cells(ncell, "J")
h1.[I12] = h2.Cells(ncell, "K")
h1.[I13] = h2.Cells(ncell, "L")
h1.[I14] = h2.Cells(ncell, "M")
h1.[I15] = h2.Cells(ncell, "N")
h1.[I16] = h2.Cells(ncell, "O")
h1.[I17] = h2.Cells(ncell, "P")
h1.[I18] = h2.Cells(ncell, "Q")
h1.[I19] = h2.Cells(ncell, "R")
Else
MsgBox "No existe el código"
End If
End Sub
'
'
Sub actualizar()
'Por Adriel ortiz
'Actualizar
Set h1 = Sheets("REGISTRO & ACTUALIZACIÓN")
Set h2 = Sheets("DATOS")
'
If MsgBox("Es seguro de actualizar los datos?", vbOKCancel) = vbOK Then
Set b = h2.Columns("A").Find(h1.[I2], lookat:=xlWhole)
If Not b Is Nothing Then
ncell = b.Row
h2.Cells(ncell, "B") = CDate(h1.[I3])
h2.Cells(ncell, "C") = h1.[I4]
h2.Cells(ncell, "D") = h1.[I5]
h2.Cells(ncell, "E") = h1.[I6]
h2.Cells(ncell, "F") = h1.[I7]
h2.Cells(ncell, "G") = h1.[I8]
h2.Cells(ncell, "H") = h1.[I9]
h2.Cells(ncell, "I") = h1.[I10]
h2.Cells(ncell, "J") = h1.[I11]
h2.Cells(ncell, "K") = h1.[I12]
h2.Cells(ncell, "L") = h1.[I13]
h2.Cells(ncell, "M") = h1.[I14]
h2.Cells(ncell, "N") = h1.[I15]
h2.Cells(ncell, "O") = h1.[I16]
h2.Cells(ncell, "P") = h1.[I17]
h2.Cells(ncell, "Q") = h1.[I18]
h2.Cells(ncell, "R") = h1.[I19]
MsgBox "Actualizados con exito"
End If
End If
End Sub