Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Excel » ListBox Queda en Blanco al momento de Realizar una Búsqueda

Excel - ListBox Queda en Blanco al momento de Realizar una Búsqueda

Volver
Nuevo Tema
<<>>
 
Vista:

ListBox Queda en Blanco al momento de Realizar una Búsqueda

Publicado por Dani (1 intervención) el 03/01/2023 02:38:07
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
28
29
30
31
32
33
34
Private Sub BT_Buscar_Click()
If Me.TextBuscar = "" Then
MsgBox "Ingrese el Dato a Buscar"
Me.TextBuscar.SetFocus
Exit Sub
End If
Me.Lista.RowSource = Clear
Ulfila = Sheets("Control").Range("A" & Rows.Count).End(xlUp).Row
For Fila = 4 To Ulfila
Linea = Cells(Fila, 1).value
If UCase(Linea) Like "*" & UCase(Me.TextBuscar.value) & "*" Then
Me.Lista.AddItem Cells(Fila, 0)
Me.Lista.List(Me.Lista.ListCount - 1, 0) = Cells(Fila, 1)
Me.Lista.List(Me.Lista.ListCount - 1, 1) = Cells(Fila, 2)
Me.Lista.List(Me.Lista.ListCount - 1, 2) = Cells(Fila, 3)
Me.Lista.List(Me.Lista.ListCount - 1, 3) = Cells(Fila, 4)
Me.Lista.List(Me.Lista.ListCount - 1, 4) = Cells(Fila, 5)
Me.Lista.List(Me.Lista.ListCount - 1, 5) = Cells(Fila, 6)
Me.Lista.List(Me.Lista.ListCount - 1, 6) = Cells(Fila, 7)
Me.Lista.List(Me.Lista.ListCount - 1, 7) = Cells(Fila, 8)
Me.Lista.List(Me.Lista.ListCount - 1, 8) = Cells(Fila, 9)
Me.Lista.List(Me.Lista.ListCount - 1, 9) = Cells(Fila, 10)
Me.Lista.List(Me.Lista.ListCount - 1, 10) = Cells(Fila, 11)
Me.Lista.List(Me.Lista.ListCount - 1, 11) = Cells(Fila, 12)
Me.Lista.List(Me.Lista.ListCount - 1, 12) = Cells(Fila, 13)
 
End If
Next Fila
 
Me.TextBuscar = Empty
Me.TextBuscar.SetFocus
 
 
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 4.908
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

ListBox Queda en Blanco al momento de Realizar una Búsqueda

Publicado por Antoni Masana (2480 intervenciones) el 04/01/2023 17:30:36
Cuando uno tiene un problema y desea que alguien le ayude es por normal por lo general dar una explicación de lo que le pasa y que es lo que desea que le pase.
Otra cosa que también esta muy bien es subir el libro para ver que hace la macro y donde falla.
Para mi viendo tu presentación del problema no veo el problema, además la macro hace exactamente lo que le has dicho que haga.

Voy a ser generoso y te hago un cambio para que ListBox NO SE queda en blanco al momento de Realizar una Búsqueda


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
28
29
30
31
32
33
34
35
36
37
38
Private Sub BT_Buscar_Click()
    Dim Vaciar as Boolean
 
    If Me.TextBuscar = "" Then
        MsgBox "Ingrese el Dato a Buscar"
        Me.TextBuscar.SetFocus
        Exit Sub
    End If
 
    Ulfila = Sheets("Control").Range("A" & Rows.Count).End(xlUp).Row
    Vaciar = True
    For Fila = 4 To Ulfila
        Linea = Cells(Fila, 1).value
        If UCase(Linea) Like "*" & UCase(Me.TextBuscar.value) & "*" Then
            IF Vaciar Then
               Vaciar = False: Me.Lista.RowSource = Clear
            End IF
 
            Me.Lista.AddItem Cells(Fila, 0)
            Me.Lista.List(Me.Lista.ListCount - 1, 0) = Cells(Fila, 1)
            Me.Lista.List(Me.Lista.ListCount - 1, 1) = Cells(Fila, 2)
            Me.Lista.List(Me.Lista.ListCount - 1, 2) = Cells(Fila, 3)
            Me.Lista.List(Me.Lista.ListCount - 1, 3) = Cells(Fila, 4)
            Me.Lista.List(Me.Lista.ListCount - 1, 4) = Cells(Fila, 5)
            Me.Lista.List(Me.Lista.ListCount - 1, 5) = Cells(Fila, 6)
            Me.Lista.List(Me.Lista.ListCount - 1, 6) = Cells(Fila, 7)
            Me.Lista.List(Me.Lista.ListCount - 1, 7) = Cells(Fila, 8)
            Me.Lista.List(Me.Lista.ListCount - 1, 8) = Cells(Fila, 9)
            Me.Lista.List(Me.Lista.ListCount - 1, 9) = Cells(Fila, 10)
            Me.Lista.List(Me.Lista.ListCount - 1, 10) = Cells(Fila, 11)
            Me.Lista.List(Me.Lista.ListCount - 1, 11) = Cells(Fila, 12)
            Me.Lista.List(Me.Lista.ListCount - 1, 12) = Cells(Fila, 13)
        End If
    Next Fila
 
    Me.TextBuscar = Empty
    Me.TextBuscar.SetFocus
End Sub


Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar