Pasar los datos del nuevo hijo a la hoja de excel.
Para Dante
Deseo que le pase los datos del FrmHijo a la hojas
Que pases una FELIZ NAVIDAD!
1 respuesta
Respuesta de Dante Amor
2
H o l oa:
Te anexo el código
Public dni2
'
Private Sub CommandButton1_Click()
'Por.Dante Amor
Set h = Sheets("Hijos")
u = h.Range("A" & Rows.Count).End(xlUp).Row + 1
If TxtNombre = "" Or Txtgrado = "" Or Txtseccion = "" Then
MsgBox "Faltan datos", vbCritical
Exit Sub
End If
h.Cells(u, "A") = CDbl(Label14)
h.Cells(u, "B") = TxtNombre
h.Cells(u, "C") = Txtgrado
h.Cells(u, "D") = Txtseccion
Unload Me
End Sub
'
Private Sub UserForm_Activate()
'Por.Dante Amor
Label14 = dni2
End Sub‘
F e l i z N a v i d a d. Recuerda valorar la respuesta. G r a c i a s
