Guardar los datos del padre y del hijo en sus respectivas hojas
Para Dante amor.
Hola amigo Dante buen día.
Le envió el archivo con los encabezados de padre e hijo para realizar el guardado de datos.
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro para guardar padres e hijos
Private Sub cmdguardar_Click()
'Por.Dante Amor
If TxtDNI = "" Or TxtApellidos = "" Or _
TxtDireccion = "" Or TxtTelefono = "" Then
MsgBox "Falta información del Padre"
Exit Sub
End If
'
If Listaregistro_Hijos.ListCount = 0 Then
MsgBox "No hay hijos agregados"
Exit Sub
End If
'
Set h5 = Sheets("Padres")
Set h6 = Sheets("Hijos")
u1 = h5.Range("A" & Rows.Count).End(xlUp).Row + 1
h5.Cells(u1, "A") = TxtDNI
h5.Cells(u1, "B") = TxtApellidos
h5.Cells(u1, "C") = TxtDireccion
h5.Cells(u1, "D") = TxtTelefono
'
For i = 0 To Listaregistro_Hijos.ListCount - 1
u2 = h6.Range("A" & Rows.Count).End(xlUp).Row + 1
h6.Cells(u2, "A") = TxtDNI
h6.Cells(u2, "B") = Listaregistro_Hijos.List(i, 0)
h6.Cells(u2, "C") = Listaregistro_Hijos.List(i, 1)
h6.Cells(u2, "D") = Listaregistro_Hijos.List(i, 2)
Next
'
MsgBox "Registro guardado"
TxtDNI = "": TxtApellidos = ""
TxtDireccion = "": TxtTelefono = ""
Listaregistro_Hijos.Clear
End Subsal u dos
