Modificar registro de hijo excel VBA
Para Dante amor
Amigo Dante necesito modificar los datos de los hijo de los campos : GRADO Y SECCIÓN
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Este es el formulario para modificar hijos.
Esta es la macro para cuando se activa el formulario:
' Private Sub UserForm_Activate() 'Por.Dante Amor Label14 = dni2 Label15 = nom2 Txtgrado = gdo2 Txtseccion = sec2 Txtgrado.SetFocus End Sub
Crea una pregunta para Llamar al formulario FrmHijos y otra pregunta para pasar la modificación del formulario a la hoja.
Sal u dos
Te anexo el código completo del formulario hijos:
Public dni2, nom2, gdo2, sec2
Private Sub CommandButton1_Click()
'Por.Dante Amor
Set h6 = Sheets("Hijos")
Set r = h6.Columns("A")
Set b = r.Find(Label14, lookat:=xlWhole)
If Not b Is Nothing Then
ncell = b.Address
Do
If h6.Cells(b.Row, "B") = Label15 Then
h6.Cells(b.Row, "C") = TxtGrado
h6.Cells(b.Row, "D") = TxtSeccion
MsgBox "Datos actualizados"
Unload Me
Exit Do
End If
Set b = r.FindNext(b)
Loop While Not b Is Nothing And b.Address <> ncell
End If
End Sub
'
Private Sub UserForm_Activate()
'Por.Dante Amor
Label14 = dni2
Label15 = nom2
TxtGrado = gdo2
TxtSeccion = sec2
TxtGrado.SetFocus
End Subsal u dos
