Eliminar un registro de un listbox en excel
PARA DANTE:
Quiero eliminar un registro de un listbox y que me reste la cantidad que elimino ya sea en el debe o el haber y que no quede seleccionada la línea.
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo el código
Private Sub cmdEliminar_Click() 'Por.Dante Amor If ListBox1.ListCount = 0 Then MsgBox "No hay registros a eliminar" Exit Sub End If If ListBox1.ListIndex = -1 Then MsgBox "Selecciona el movimiento a eliminar" Exit Sub End If ListBox1.RemoveItem ListBox1.ListIndex txtTotalDebe = 0 txtTotalHaber = 0 For i = 0 To ListBox1.ListCount - 1 If ListBox1.List(i, 2) <> "" Then debe = Val(ListBox1.List(i, 2)) Else debe = 0 End If If ListBox1.List(i, 3) <> "" Then habe = Val(ListBox1.List(i, 3)) Else habe = 0 End If Tdebe = Tdebe + debe Thabe = Thabe + habe Next txtTotalDebe = Format(Tdebe, "#,##0.00") txtTotalHaber = Format(Thabe, "#,##0.00") txtCuadre = Tdebe - Thabe txtCuadre = Format(txtCuadre, "#,##0.00") End Sub
' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
muchas gracias, funciona de muy bien.
el problema de los decimales ya lo solucione, pero tengo que cambiarle la configuración regional cada vez que ingreso los decimales. A que se debe.
H o l a:
No sé cuál sea el problema, pero puede establecer la configuración regional con estas líneas
Investiga sobre estas líneas
Thread.CurrentThread.CurrentCulture = new
System. Globalization. CultureInfo("es-MX", false)
' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
