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

1 respuesta

Respuesta
1

Podrías explicar con detalle y con ejemplos lo que tienes y lo que esperas en el listbox

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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas