Guardar registro de formulario en excel
Para Dante amor
Deseo actualizar mi macro: se guarde la fecha y motivo de la sanción junto el LISTBOX2 que está la "lista de clientes sancionados" en la hoja multas.
Ya te envié el archivo.
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo el código para guardar los datos:
Private Sub CommandButton1_Click()
'Por DAM
If ListBox2.ListCount = 0 Then
MsgBox "No hay clientes sancionados"
Exit Sub
End If
'
If TextBox1 = "" Then
MsgBox "Captura el valor de la multa"
TextBox1.SetFocus
Exit Sub
End If
'
If TextBox3 = "" Then
MsgBox "Captura la fecha"
TextBox3.SetFocus
Exit Sub
End If
'
If ComboBox1 = "" Then
MsgBox "Seleccionar un motivo"
ComboBox1.SetFocus
Exit Sub
End If
'
ListBox2.ColumnCount = 3
Set h2 = Sheets("MULTAS")
u = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
For i = 0 To ListBox2.ListCount - 1
ListBox2.List(i, 2) = TextBox1
h2.Cells(u, "A") = CDate(TextBox3)
h2.Cells(u, "B") = ComboBox1
h2.Cells(u, "C") = ListBox2.List(i, 0)
h2.Cells(u, "D") = ListBox2.List(i, 1)
h2.Cells(u, "E") = Val(TextBox1)
u = u + 1
Next
MsgBox "Los Datos datos se registraron con exito"
End Sub
