Pasar la modificación del formulario a la hoja Excel

H o l a:

Te anexo el código:

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
'

sal u dos