Buscar por código y reemplazar algunos campos en excel por formulario en visual basic
Tengo esta base en excel, lo que guarda es el código, nombre, apellido y fecha de nacimiento, la edad se genera solo por formula excel por eso lo pinte con plomo, lo que deseo es buscar por código que esta en la columna A y que me retorne la posición en el que se encuentra y reemplazar ya sea el nombre, apellido o fecha de nacimiento pero que lo haga por un formulario en visual basic para aplicaciones.
1 respuesta
Respuesta de Adriel Ortiz Mangia
1
[Hola
Te paso la macro, cambia los nombres de los textbox y de la hoja por el tuyo
Para finalizar hay 2 opciones Excelente o bueno saludos.
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Set h1 = Sheets("Hoja3")
Set b = h1.Columns("A").Find(TextBox1, lookat:=xlWhole)
'
If Not b Is Nothing Then
TextBox1 = h1.Cells(b.Row, "A")
TextBox2 = h1.Cells(b.Row, "B")
TextBox3 = h1.Cells(b.Row, "C")
TextBox4 = h1.Cells(b.Row, "D")
TextBox5 = h1.Cells(b.Row, "E")
End If
End SubPrivate Sub CommandButton1_Click()
Set h1 = Sheets("Hoja3")
Set b = h1.Columns("A").Find(TextBox1, lookat:=xlWhole)
'
If Not b Is Nothing Then
h1.Cells(b.Row, "A") = Val(TextBox1)
h1.Cells(b.Row, "B") = TextBox2
h1.Cells(b.Row, "C") = TextBox3
h1.Cells(b.Row, "D") = Val(TextBox4)
h1.Cells(b.Row, "E") = CDate(TextBox5)
End If
MsgBox "Datos actualizados"
End Subme pasas tu email si deseas el archivo saludos!
