Como guardar registro y recuperar datos Excel VBA
Para Dante amor
Hola amigo buenas tardes
Deseo que me ayude en el análisis y programación para guardar los datos del formulario que le muestro.
Por ejemplo.
Datos del Padre
Apellidos y Nombres // DNI // Telf // Dirección
Black Cooper, Patrick // 87985654 // 00-000 // Panamericana #125
Datos Hijos
Nombre // Grado // Sección
Tom Cooper // 4 // A
Gladys // 3 // B
No sé como realizar el guardado de los Datos del Padre e hijos. Si irá en una sola Hoja o en hojas diferentes, Porque realizaré consultas atreves del Textbox DNI
Cuando ingrese el DNI me muestre los datos del padre e hijos como lo guardé.
No sé si la pregunta es mas de 2; de ser así me indicas por donde empezar.
Un agradecimiento amigo ilustre en la programación
Ya le envié el archivo Saludos!
1 respuesta
H o l a:
Te anexo la macro para agregar los hijos al listbox.
Private Sub Cmdagregar_Click()
'Por.Dante Amor
Set h5 = Sheets("Padres")
Set h6 = Sheets("Hijos")
If TxtDNI = "" Or TxtApellidos = "" Or _
TxtDireccion = "" Or TxtTelefono = "" Then
MsgBox "Falta información del Padre"
Exit Sub
End If
'
If Txtnombrehijo = "" Or Txtgrado = "" Or Txtseccion = "" Then
MsgBox "Falta información del Hijo"
Exit Sub
End If
'
With Listaregistro_Hijos
.AddItem Txtnombrehijo
.List(.ListCount - 1, 1) = Txtgrado
.List(.ListCount - 1, 2) = Txtseccion
End With
Txtnombrehijo = "": Txtgrado = "": Txtseccion = ""
Txtnombrehijo.SetFocus
End Sub