Filtrar datos en listbox, pero no repetidos excel vba
Para Dante
Muy agradecido Dante por la atención a mi pregunta estoy aprendiendo mucho
Tengo la siguiente pregunta, deseo filtrar datos en un lisbox de la hoja "Pagosxciclo" pero que no se repitan.
Te envié el archivo con las indicaciones G r a c i a s.
1 Respuesta
Respuesta de Dante Amor
1
H o l a: Dante
Ya te envié la explicación a tu Email gracias Dante
Ya te envié la explicación a tu Email gracias Dante
Va:
Private Sub Txtbuscareport_Change()
'Por.Dante Amor
' BUSCAR X NOMBRES
Txtbuscareport.Text = UCase(Txtbuscareport.Text)
Set h7 = Sheets("Pagosxciclo")
Listreport.Clear
For i = 5 To h7.Range("C" & Rows.Count).End(xlUp).Row
cad = h7.Cells(i, "B") & UCase(h7.Cells(i, "C"))
dni = Mid(h7.Cells(i, "B"), 1)
If cad Like "*" & UCase(Txtbuscareport) & "*" Then
With Listreport
existe = False
For j = 0 To .ListCount - 1
If dni = .List(j, 0) Then
existe = True
Exit For
End If
Next
If existe = False Then
.AddItem h7.Cells(i, "B")
.List(.ListCount - 1, 1) = h7.Cells(i, "C")
.List(.ListCount - 1, 2) = h7.Cells(i, "D")
End If
End With
End If
Next
End Sub
Me muestra error
Va
Private Sub Txtbuscareport_Change()
'Por.Dante Amor
' BUSCAR X NOMBRES
Txtbuscareport.Text = UCase(Txtbuscareport.Text)
Set h7 = Sheets("Pagosxciclo")
Listreport.Clear
For i = 5 To h7.Range("C" & Rows.Count).End(xlUp).Row
cad = h7.Cells(i, "B") & UCase(h7.Cells(i, "C"))
dni = Mid(h7.Cells(i, "B"), 1)
If cad Like "*" & UCase(Txtbuscareport) & "*" Then
With Listreport
existe = False
For j = 0 To .ListCount - 1
If dni = .List(j, 0) Then
existe = True
Exit For
End If
Next
If existe = False Then
.AddItem h7.Cells(i, "B")
.List(.ListCount - 1, 1) = h7.Cells(i, "C")
.List(.ListCount - 1, 2) = h7.Cells(i, "D")
End If
End With
End If
Next
End Sub
