Como guardar datos del formulario de excel VBA
Para Dante Amor
Hola amigo Dante deseo seguir mejorando la macro.
Quiero que se guarde los datos del formulario a la hoja "PAGOS" como te muesto.
La fecha, dni, nombre y apellidos, Total a pagar se repetirá el número de veces del Listbox1 de la columna MOTIVO. Por ejemplo según la imagen
16/10/15 //00114230 //PUA PIZANGO DAVID WHOLER//Trabajo de campo//120/135
16/10/15 //00114230 //PUA PIZANGO DAVID WHOLER//Trabajo de campo//15/135
En la "hoja Pagos" iré guardando los datos de pagos realizados; si realizo otro pago irá registrando a partir del ultimo registro guardado.
Estaré muy agradecido
Le envié el archivo Saludos!
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro para pasar los datos a la hoja
Private Sub CmdPagos_Click()
'Por DAM
If Lsmulta.ListCount = 0 Then
MsgBox "No hay Padres con multas"
Exit Sub
End If
'
If TxtTotal.Text = "" Then
MsgBox "No hay Padres con multas"
TextBox1.SetFocus
Exit Sub
End If
'
Set h3 = Sheets("PAGOS")
u = 5
Do While h3.Cells(u, "A") <> ""
u = u + 1
Loop
For i = 0 To Lsmulta.ListCount - 1
h3.Cells(u, "A") = CDate(Txtfecha)
h3.Cells(u, "B") = TextBox1.Text
h3.Cells(u, "C") = CboLista
h3.Cells(u, "D") = Lsmulta.List(i, 1)
h3.Cells(u, "E") = Val(Lsmulta.List(i, 2))
h3.Cells(u, "F") = Val(TxtTotal)
u = u + 1
Next
MsgBox "Los Datos datos se registraron con éxito"
End SubSal u dos
