Macro..

Creo que no te tomaste tiempo de analizar el caso Userforms1: es más claro verlo que explicarlo... pero intentemos:
Tu userforms debe tener tantos textbox como col de datos tenga tu registro.
Cuando encuentres el registro (parece que ya tenés una rutina para ello) te devolverá el valor en Textbox2 por lo que veo. Si no utilizás Set (como en mi ejemplo) debes guardar la fila del Activecell en una variable:
filalibre = activecell.row
Luego de llenar el resto de los textbox y con otro botón de Aceptar o actualizar devolvés la información a la hoja:
Private Sub cmdAceptar_Click()
'selecciona la hoja
Sheets("Hoja1").Select
'actualiza los datos en las distintas columnas
Cells(filalibre, 1).Value = TextBox1
Cells(filalibre, 2).Value = TextBox2
Cells(filalibre, 3).Value = Val(TextBox3)
End If
'limpia los textbox permitiendo un nuevo ingreso
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3 = ""
TextBox1.SetFocus

Buen día.. gracias por la respuesta anterior...
No puedo adaptar la instrucción que has enviado.. necesito que una vez encontrado por ejemplo el "nombre" con
privatesubConsulta()
(Cells.Find...)
ActiveCell.Offset(0, 1).Select
TextBox2 = ActiveCell
Entonces ubicada esta fila:
¿Cómo hago para poder insertar nuevos datos desde esta ubicación mediante la misma fila a las siguientes 3 columnas?
¿Dónde inserto la instrucción?
Atentamente.
SesionanTe.