Como hacer un libro diario en excel con listbox
Tengo este formulario
Cuando yo le de agregar quiero que me registre el debe o el haber, dependiendo de lo que yo le coloque y que me registre el código y el nombre de la cuenta; todo en un listbox ademas que me sume el total del debe y el haber para después guardarlo en la hoja1.
1 respuesta
Te anexo el código:
Private Sub CommandButton1_Click() 'Por.Dante Amor 'Agregar al listbox ' If TextBox1 = "" Then MsgBox "captura un código" Exit Sub End If If TextBox2 = "" Then MsgBox "captura una cuenta" Exit Sub End If If TextBox3 = "" Or Not IsNumeric(TextBox3) Then MsgBox "captura un monto válido" Exit Sub End If If OptionButton1 = False And OptionButton2 = False Then MsgBox "Selecciona Debe o Haber" Exit Sub End If ' ListBox1.AddItem TextBox1 ListBox1.List(ListBox1.ListCount - 1, 1) = TextBox2 If OptionButton1 Then 'suma debe ListBox1.List(ListBox1.ListCount - 1, 2) = TextBox3 TextBox4 = Val(TextBox4) + Val(TextBox3) Else 'suma haber ListBox1.List(ListBox1.ListCount - 1, 3) = TextBox3 TextBox5 = Val(TextBox5) + Val(TextBox3) End If End Sub
Si tienes formato en los textbox de monto y las sumas, deberás cambiar val( ) por Cdbl( ), pero antes deberás verificar si es diferente de ""
':) ':)
lo que busco es que sume todo lo que esta en el debe del listbox1 y lo que este en el haber. Ejemplo:
1101 caja 1000
1102 bancos 200
1103 capital 1200
la partida completa debe ir el el listbox y sumar lo que esta en la columna 2 y 3.
Eso es lo que hace el código que te envié, cada que presionas el botón "agregar" suma el debe y el haber.
Si tienes problemas para adecuar el código, envíame tu archivo para adaptarlo.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Jonathan Sologaistoa” y el título de esta pregunta.
ya envié el archivo
Solamente te falta poner la propiedad del listbox, de ColumnCount = 4
':) ':)
