Enlazar Búsqueda con diferentes parámetros.

publicado el 21 de agosto21 ago

Y unos meses después...

Hola,

He visto su tema en consultas sin respuestas, además que por el tiempo que ha pasado y las descargas en su libro no es común no haber recibido alguna propuesta, aunque por los meses transcurridos es posible que usted haya resuelto su necesidad.

Por aportar algo que pudiera servir (no sé a usted pero tal vez) a los lectores futuros dejaré una idea de acuerdo a lo que entendí en su descripción. Entiendo que su Listview1 de momento solo está filtrando por el ROL, así que agregare que también filtre por el NÚMERO.

En caso de servir, bastaría replicar para los demás Combobox.

Dim Número As Variant
Dim Celda As Range

Private Sub ListView1_DblClick()
    Set Celda = Hoja2.Columns("A").Find(Número, , , xlWhole)
    Celda.Offset(, 7).Hyperlinks(1).Follow NewWindow:=True
End Sub

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    Número = Item
End Sub

Private Sub Buscar_Change()
    FiltrarDatos
End Sub

Private Sub Buscar1_Change()
    FiltrarDatos
End Sub

Private Sub FiltrarDatos()
    Dim Vb As String, Vb1 As String
    Dim Fx As Integer
    Dim co As Integer, co1 As Integer
    Dim Ve As String, Ve1 As String

    Vb = Buscar.Text
    Vb1 = Buscar1.Text

    If BUOP = "ROL" Then
        co = 2
    ElseIf BUOP = "NUMERO" Then
        co = 3
    ElseIf BUOP = "FECHA" Then
        co = 4
    ElseIf BUOP = "MATERIA" Then
        co = 5
    ElseIf BUOP = "LOTEO O SECTOR" Then
        co = 6
    ElseIf BUOP = "DEPARTAMENTO" Then
        co = 7
    ElseIf BUOP = "CO" Then
        co = 8
    End If

    If BUOP1 = "ROL" Then
        co1 = 2
    ElseIf BUOP1 = "NUMERO" Then
        co1 = 3
    ElseIf BUOP1 = "FECHA" Then
        co1 = 4
    ElseIf BUOP1 = "MATERIA" Then
        co1 = 5
    ElseIf BUOP1 = "LOTEO O SECTOR" Then
        co1 = 6
    ElseIf BUOP1 = "DEPARTAMENTO" Then
        co1 = 7
    ElseIf BUOP1 = "CO" Then
        co1 = 8
    End If

    Fx = 2
    ListView1.ListItems.Clear

    With Hoja2
        While .Cells(Fx, 1).Value <> Empty
            Ve = .Cells(Fx, co).Value
            Ve1 = .Cells(Fx, co1).Value
            If UCase(Ve) Like "*" & UCase(Vb) & "*" And UCase(Ve1) Like "*" & UCase(Vb1) & "*" Then
                Set LI = ListView1.ListItems.Add(Text:=.Cells(Fx, 1).Value)
                LI.SubItems(1) = .Cells(Fx, 2).Value
                LI.SubItems(2) = .Cells(Fx, 3).Value
                LI.SubItems(3) = .Cells(Fx, 4).Value
                LI.SubItems(4) = .Cells(Fx, 5).Value
                LI.SubItems(5) = .Cells(Fx, 6).Value
                LI.SubItems(6) = .Cells(Fx, 7).Value
                LI.SubItems(7) = .Cells(Fx, 8).Value
            End If
            Fx = Fx + 1
        Wend
    End With

    Me.Lblsku = "Archivos: " & ListView1.ListItems.Count
End Sub

Private Sub UserForm_Initialize()
    With Me
        .Width = Application.Width
        .Height = Application.Height
    End With

    BUOP = "ROL"
    With Me.BUOP
        .Clear
        .AddItem "ROL"
    End With
    BUOP1 = "NUMERO"
    With Me.BUOP1
        .Clear
        .AddItem "NUMERO"
    End With
    BUOP2 = "FECHA"
    With Me.BUOP2
        .Clear
        .AddItem "FECHA"
        End With
    BUOP3 = "MATERIA"
    With Me.BUOP3
        .Clear
        .AddItem "MATERIA"
    End With
    BUOP4 = "LOTEO O SECTOR"
    With Me.BUOP4
        .Clear
        .AddItem "LOTEO O SECTOR"
    End With
    BUOP5 = "DEPARTAMENTO"
    With Me.BUOP5
        .Clear
        .AddItem "DEPARTAMENTO"
    End With
    
    Dim Fx As Integer
    Dim LI As ListItem

    With ListView1
        .Gridlines = True
        .CheckBoxes = False
        .View = lvwReport
        .FullRowSelect = True
        With .ColumnHeaders
            .Clear
            .Add , , "CO", 0
            .Add , , "ROL", 50, 0
            .Add , , "NUMERO", 60, 0
            .Add , , "FECHA", 60, 2
            .Add , , "MATERIA", 300, 0
            .Add , , "LOTEO O SECTOR", 150, 0
            .Add , , "DEPARTAMENTO", 100, 0
            .Add , , "ENLACE", 50, 0
        End With
    End With
    Fx = 2
    With Hoja2
        Do Until .Cells(Fx, 1) = ""
            Set LI = ListView1.ListItems.Add(Text:=.Cells(Fx, 1).Value)
            LI.SubItems(1) = .Cells(Fx, 2).Value
            LI.SubItems(2) = .Cells(Fx, 3).Value
            LI.SubItems(3) = .Cells(Fx, 4).Value
            LI.SubItems(4) = .Cells(Fx, 5).Value
            LI.SubItems(5) = .Cells(Fx, 6).Value
            LI.SubItems(6) = .Cells(Fx, 7).Value
            LI.SubItems(7) = .Cells(Fx, 8).Value
            Fx = Fx + 1
        Loop
    End With
    Me.Lblsku = "Archivos: " & ListView1.ListItems.Count
End Sub

Lamento no ser de más ayuda y en modo de excusa casi no participo por la sección de Macros donde aún sigo practicando.

Saludines

Editado el el 21 de agosto21 ago por Israel Cassales