ELIMINAR ITEM DE LISTBOX DE EXCEL
En este post se muestra como eliminar un item de un Listbox de Excel, aplicado al ejemplo Punto de Venta en Excel, se muestra como eliminar un registro que se facturó o se puso en el listado de productos a facturar y luego se desea eliminar, ya sea porque por que se ha cometido un error o simplemente porque no se desea facturar el producto elegido.
Aprende Excel en forma fácil y sencilla, click acá, si quieres aprender sobre Excel en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet, te lo recomiendo no te arrepentirás.
Mira la macro en acción, una explicación más detallada de su codificación y funcionamiento, recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestro canal de You Tube, mira el playlist con vídeos relacionados donde podrás ver la macros relacionadas en acción con una explicación en forma visual que ayudará a entender el ejemplo en forma más fácil.
PUNTO DE VENTA en EXCEL – ELIMINAR ELEMENTO DE UN LISTBOX
Este ejemplo forma parte de la saga de ejemplos destinados a realizar un punto de venta en Excel, se muestra específicamente como quitar o eliminar un registro del Listbox donde se listan los productos que se van facturando.
Haciendo doble click en el Listbox se ejecuta una macro que elimina el ítem o registro seleccionado en el Listbox, cabe recordar que los items previo a llenar en el Listbox de Excel son consultados en la base de datos de Access vinculada, en dicha base de datos se guardan todos los registros del ejemplo denominado Punto de Venta en Excel.
Explicación del código para Quitar un Registro del Listbox del Formulario Punto de Venta en Excel
El código se encuentra en el evento doble click del Listbox donde se registran los datos a facturar.
Primero antes de eliminar el registro, se pregunta si realmente desea eliminar el registro seleccionado, en caso que la respuesta sea positiva (la respuesta positiva es igual a 6), procede a realizar la macro caso contrario no hace nada, se usa el siguiente código:
If UserForm1.ListBox2.ListCount – 1 < 1 Then MsgBox («No existen registros para eliminar»), vbCritical, «AVISO»: Exit Sub
respuesta = MsgBox(«¿Seguro desea eliminar el articulo seleccionado?», vbCritical + vbYesNo)
Si se ha seleccionado que se desea eliminar el registro que está marcado en el Listbox procede a Removerlo o quitarlo del Listbox se usa el siguiente código:
If respuesta = 6 Then
fila = UserForm1.ListBox2.ListIndex
UserForm1.ListBox2.RemoveItem UserForm1.ListBox2.ListIndex
End If
Seguidamente a remover el ítem del Listbox la macro recalcula los subtotales, recorriendo todas las filas del Listbox y sumando la columna importe, de la siguiente manera:
For x = 1 To UserForm1.ListBox2.ListCount – 1
t = CDec(UserForm1.ListBox2.List(x, 5))
tot = tot + t
t = 0
Next x
Luego determina, con los códigos que se muestran a continuación, el total y descuento que van en los distintos textbox, otorgando formato, lo cual fue explicado en anteriores vídeos, si requieres ver los vídeos anteriores podrás hacerlo desde este link Punto de Venta en Excel:
subtototal = tot
Desc = CDec(UserForm1.TextBox28)
If IsNull(Desc) Or Desc = Empty Then Desc = 0
Impu = (subtototal – Desc) * 0.16
Total = subtototal – Desc + Impu
UserForm1.TextBox27 = Format(subtototal, «#,##0.00;-#.##0,00»)
UserForm1.TextBox28 = Format(Desc, «#,##0.00;-#.##0,00»)
UserForm1.TextBox29 = Format(Impu, «#,##0.00;-#.##0,00»)
UserForm1.TextBox30 = Format(Total, » «»€»» #,##0.00 «)
Select Case Total
Case Is > 1000000
UserForm1.TextBox30.Font.Size = 11
Case Is > 100000
UserForm1.TextBox30.Font.Size = 16
Case Is < 10000
UserForm1.TextBox30.Font.Size = 22
End Select
Descarga el Libro PUNTO DE VENTA EN EXCEL – Suprimir Elemento de Listbox VBA
Encontrarás el link de descarga al final del post luego del código del ejemplo mostrado, el mismo es totalmente gratuito y libre su uso, solicito aportar para sostener esta web, si está dentro de tus posibilidades, desde ya muchas gracias.
Código VBA para Quitar un Item o Registro de un Listbox de Excel VBA
Código que se ingresa en Listbox 2
Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
If UserForm1.ListBox2.ListCount – 1 < 1 Then MsgBox («No existen registros para eliminar»), vbCritical, «AVISO»: Exit Sub
respuesta = MsgBox(«¿Seguro desea eliminar el articulo seleccionado?», vbCritical + vbYesNo)
If respuesta = 6 Then
fila = UserForm1.ListBox2.ListIndex
UserForm1.ListBox2.RemoveItem UserForm1.ListBox2.ListIndex
End If
For x = 1 To UserForm1.ListBox2.ListCount – 1
t = CDec(UserForm1.ListBox2.List(x, 5))
tot = tot + t
t = 0
Next x
subtototal = tot
Desc = CDec(UserForm1.TextBox28)
If IsNull(Desc) Or Desc = Empty Then Desc = 0
Impu = (subtototal – Desc) * 0.16
Total = subtototal – Desc + Impu
UserForm1.TextBox27 = Format(subtototal, «#,##0.00;-#.##0,00»)
UserForm1.TextBox28 = Format(Desc, «#,##0.00;-#.##0,00»)
UserForm1.TextBox29 = Format(Impu, «#,##0.00;-#.##0,00»)
UserForm1.TextBox30 = Format(Total, » «»€»» #,##0.00 «)
Select Case Total
Case Is > 1000000
UserForm1.TextBox30.Font.Size = 11
Case Is > 100000
UserForm1.TextBox30.Font.Size = 16
Case Is < 10000
UserForm1.TextBox30.Font.Size = 22
End Select
End Sub
Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.
If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.
Donate:
Cuenta Paypal: https://paypal.me/programarexcel
Cuenta Bitcoin: 1KBGGb8fyDzyR3X1Rie6m7VguzaAfngNbd
Cuenta Ether: 0x41Bbd24556914C83a31217eBb3BC49789b66e407
