Evitar datos repetidos en listbox
Hace ya un tiempo me habías respondido a la pregunta de cómo evitar datos repetidos en un listbox.. Lo cual funciona perfecto
Pero tengo un problema que al momento de alcanzar el límite del listbox ya no me suman los datos repetidos
Lo que te pido por favor que me ayudes en que sí es igual a un dato en el listbox aunque ya este lleno lo siga sumando.. Solo si es diferente a algún dato del listbox me salga el msgbox de listbox lleno
1 Respuesta
Respuesta de Dante Amor
1
H o l a : envíame tu archivo con el formulario y me explicas con un ejemplo cuál es el problema que tienes.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Ricardo Gonzalez” y el título de esta pregunta.
amigo ya te lo he enviado a tu correo
gracias
Te anexo la macro actualizada
Public Sub AgregarItems() With UserForm1 existe = False For i = 0 To Me.ListBox_FACTURA.ListCount - 1 If Me.ListBox_FACTURA.List(i, 0) = user_facturar.TextBox7 Then existe = True Exit For End If Next If existe Then .ListBox_FACTURA.List(i, 1) = CDbl(.ListBox_FACTURA.List(i, 1)) + CDbl(user_facturar.TextBox5.Text) .ListBox_FACTURA.List(i, 4) = CDbl(.ListBox_FACTURA.List(i, 4)) + CDbl(user_facturar.TextBox6.Text) Else 'Límite de registros en la factura If .ListBox_FACTURA.ListCount = 3 Then MsgBox "FACTURA LLENA", vbExclamation Exit Sub End If .ListBox_FACTURA.AddItem (user_facturar.TextBox7.Text) .ListBox_FACTURA.List(i, 1) = user_facturar.TextBox5.Text .ListBox_FACTURA.List(i, 2) = user_facturar.TextBox1.Text .ListBox_FACTURA.List(i, 3) = user_facturar.TextBox4.Text .ListBox_FACTURA.List(i, 4) = user_facturar.TextBox6.Text i = i + i End If End With sumarImporte With user_facturar .TextBox1 = "" .TextBox5 = "" .TextBox2 = "" .TextBox4 = "" .TextBox3 = "" End With End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
