Hola, estoy realizando un buscador de productos pero el problema que tengo ahora es que no busca todos los registros, solo busca en la primera fila o solo por la primera letra. Por favor si alguien pudiera ayudarme con este problema estaria muy agradecido...

Adjunto el archivo para que tengan una idea clara...

Formulario_Buscador.xls

Saludos.

Prueba con la siguiente macro.

Private Sub Buscador_Change()
Rem declaramos variables
Dim i As Long, Texto As String
Rem cargamos variable de busqueda
Texto = "*" & UCase(Buscador.Text) & "*"
With ListBox1
    Rem verificamos que el textbox no este vacio
    If Len(Buscador.Text) > 0 Then
            Rem recorremos los items del listbox
            For i = .ListCount - 1 To 0 Step -1
                Rem si el item no es igual
                Rem a la variable de busqueda se elimina
                If Not UCase(.List(i, 1)) Like Texto Then
                    .RemoveItem i
                End If
            Next i
        Else
            Rem si el textbox esta vacio se cargan
            Rem todos los datos y se da formato
            .ColumnCount = 7
            .ColumnWidths = _
            "50pt; 250pt; 60pt; 60pt; 60pt; 60pt; 60pt"
            .TextAlign = fmTextAlignCenter
            Rem se ejecuta macro
            Mostrador
            Rem se registra el total de items
            TotalRegistros.Caption = .ListCount
    End If
End With
End Sub
[/HTML]

Atte.

Joshua

Gracias por la ayuda Joshua, pero no se en que estoy fallando pero no me corre tu código... Serias tan amable de enviar un ejemplo... Gracias, de antemano...

Saludos.

Adjuntando tu archivo.

Atte.

Joshua

Formulario_Buscador.xls

Gracias, ahora ya me di cuenta cual fue mi error...

.ColumnWidths

= _

"50pt; 250pt;

60pt; 60pt; 60pt; 60pt;

60pt"

Yo no copie el guión bajo no se por que... Pero genial funciona... Y una duda cual la diferencia en usar o no el guión bajo y en que casos se usa.? Perdón, pero indago porque no se mucho de esto, lo poco que se es por este tipo de foros. Espero terminar pronto mi proyecto y te lo envio para que puedan calificar. Gracias nuevamente...

Saludos.

Basicamente sirve para que el compilador reconosca el corte y continuidad de una linea de codigo larga, y si no la colocas el compilador interrumpira la macro y te marcara un error.

Atte.

Joshua

Ahora entiendo, gracias por la explicación...