Evitar datos repetidos y poner un limite de datos en listbox
Alguien me podría ayudar por favor necesito cargar dotos en un listbox hasta cierto limite y también evitar datos repetidos
1 Respuesta
H o l a:
Envíame tu archivo y me explicas con un ejemplo qué es lo que quieres cargar en el listbox.
Utiliza otra hoja para simular qué datos quieres cargar. Por ejemplo, en tu hoja de datos dime dónde están los datos que pueden cargarse y en otra hoja me pones los datos que deben cargarse, ahí deberás quitar los duplicados y la cantidad de datos que quieres cargar.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Ricardo Gonzalez” y el título de esta pregunta.
¡Gracias! Te lo he enviado a tu correo
H o l a:
Te anexo el código actualizado
Public Sub agregarItems()
'Act.Por.Dante Amor
If user_facturar.ComboBox1.Text = "" Then MsgBox ("Eliga un codigo"): Exit Sub
If Trim(user_facturar.TextBox5.Text) = "" Then MsgBox ("debe ingresar cantidad"): Exit Sub
If Len(Trim(user_facturar.TextBox1.Text)) = 0 Then MsgBox ("Esta vacio"): Exit Sub
'
With UserForm1
If ListBox1.ListCount = 17 Then
MsgBox "MAXIMO"
Else
existe = False
For i = 0 To ListBox1.ListCount - 1
If LCase(ListBox1.List(i, 1)) = LCase(user_facturar.ComboBox1) Then
existe = True
Exit For
End If
Next
'
If existe Then
.ListBox1.List(i, 0) = CDbl(.ListBox1.List(i, 0)) + CDbl(user_facturar.TextBox5.Text)
.ListBox1.List(i, 0) = Space(10 - 2 * Len(.ListBox1.List(i, 0))) & .ListBox1.List(i, 0)
.ListBox1.List(i, 3) = CDbl(.ListBox1.List(i, 3)) + CDbl(user_facturar.TextBox6.Text)
Else
.ListBox1.AddItem Val(user_facturar.TextBox5.Text)
.ListBox1.List(i, 1) = user_facturar.ComboBox1
.ListBox1.List(i, 0) = Space(10 - 2 * Len(.ListBox1.List(i, 0))) & .ListBox1.List(i, 0)
.ListBox1.List(i, 2) = user_facturar.TextBox4
.ListBox1.List(i, 2) = Space(20 - 2 * Len(.ListBox1.List(i, 2))) & .ListBox1.List(i, 2)
.ListBox1.List(i, 3) = user_facturar.TextBox6
'i = i + i
End If
End If
End With
sumarImporte
'With user_facturar
'.ComboBox1.ListIndex = -1
'.TextBox1 = ""
'.TextBox5 = ""
'.TextBox2 = ""
'.TextBox4 = ""
'.TextBox3 = ""
'End With
End Sub:)
Saludos. D a n t e A m o r. Recuerda valorar la respuesta. G r a c i a s
:)
