none
Macro en Excel RRS feed

  • Pregunta

  • Hola comunidad de programadores estaré muy agrecido si me ayudaran con este problemita que tengo sobre un formulario es sobre la función buscar. El problema que tengo es que no puedo hacer que muestre los datos en un listbox por ejemplo en la siquiente data tengo un listado de productoss y quiero que  al momento de seleccionar con el combobox me aparezca los datos que seleccione esto se pueden repetir por nombre.

    Nombre de Producto --     Descripción    ------------------- Costo

    Radio                           es de 2 parlantes  ----------------1466

    televisor                      es de 46 pulgadas ----------------12000

    Mp3                             es de color blanco ----------------15000

    televisor                     es de LED de 35 pulgadas------ 3000

     Yo tengo un botón de búsqueda y al momento de pulsarlo quiero que me salga la descripción y costos por ejemplo si selecciono televisor me tiene que aparecer en el listbox los 2 televisores con sus datos. Este fue mi avance

    Private Sub btnBuscarOk_Click()

        Dim oRange As Range, aCell As Range, bCell As Range
        Dim ws As Worksheet
        Dim SearchString As String 

        On Error GoTo Err

        Set ws = Worksheets("Hoja1")
        Set oRange = ws.Columns(1)

        SearchString = cmbNombre.SelText


        Set aCell = oRange.Find(What:=cmbNombre.SelText, LookIn:=xlValues, _
                    LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                    MatchCase:=False, SearchFormat:=False)

      If Not aCell  Is Nothing Then
        Do
           
                ListBoxconsulta.AddItem aCell.Value 
               
                Set aCell = .FindNext(acell)
    Loop While Not aCell Is Nothing 
     End If
    End With 
    Err:
        MsgBox Err.Description
    End Sub

    Estaré de una pronta respuesta por parte de ustedes. Gracias

    miércoles, 1 de enero de 2014 7:51

Todas las respuestas

  • Buenas Lobo1088,

    Parece más sencillo crear una cabecera con filtros y filtrar por nombre.

    No obstante, te adjunto un link donde explica de forma detallada y sencilla como crear una macro de búsqueda en excel:

    http://www.todoexpertos.com/categorias/tecnologia-e-internet/software-y-aplicaciones/microsoft-excel/respuestas/i5zwboazmnuho/macro-para-buscar-datos

    Saludos.

    jueves, 2 de octubre de 2014 7:32