Ayuda. No cargar datos duplicados en una listbox
Publicado por Daniel (1 intervención) el 19/05/2021 18:35:46
Buen día.
Ultimamente he venido desarrollando un formulario que consiste en actualizar las ventas Pendientes a Entregadas.
Mi problema esque a la hora de cargar los datos de la tabla de ventas a la listbox (Me.lista) me salen valores repetidos porque un Id venta puede tener varios items como lo muestro en la siguiente imagen:
El codigo que uso para cargar la listbox (Me.lista) es el siguiente:
Si alguien me pudiera ayudar con este problema que tengo, estaria muy agradecido.
Ultimamente he venido desarrollando un formulario que consiste en actualizar las ventas Pendientes a Entregadas.
Mi problema esque a la hora de cargar los datos de la tabla de ventas a la listbox (Me.lista) me salen valores repetidos porque un Id venta puede tener varios items como lo muestro en la siguiente imagen:
El codigo que uso para cargar la listbox (Me.lista) es el siguiente:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub UserForm_Activate()
Me.Lista.ColumnCount = 5
Me.Lista.ColumnWidths = "30; 114; 252; 96;96"
NumeroDatos = ThisWorkbook.Worksheets("VENTAS").Range("A" & Rows.Count).End(xlUp).Row
Worksheets("VENTAS").AutoFilterMode = False
Y = 0For fila = 2 To NumeroDatosIf ThisWorkbook.Worksheets("VENTAS").Cells(fila, 10).value = "CONTADO" And ThisWorkbook.Worksheets("VENTAS").Cells(fila, 11).value = "PENDIENTE" Then
Me.Lista.AddItem
Me.Lista.List(Y, 0) = ThisWorkbook.Worksheets("VENTAS").Cells(fila, 1).value
Me.Lista.List(Y, 1) = ThisWorkbook.Worksheets("VENTAS").Cells(fila, 4).value
Me.Lista.List(Y, 2) = ThisWorkbook.Worksheets("VENTAS").Cells(fila, 11).value
Y = Y + 1
End If
Next
End Sub
Si alguien me pudiera ayudar con este problema que tengo, estaria muy agradecido.
Valora esta pregunta
0