none
COMO EJECUTAR FUNCION VLOOKUP RRS feed

  • Pregunta

  • SOY NUEVO EN ESTO DE PROGRAMAR EN VISUAL STUDIO Y ESTOY TRATANDO DE ARMAR UNA FUNCION DE BUSQUEDA (VLOOKUP)

      Function VLOOKUP(EXCEL As Object, ByRef LIBRO As excel.Workbook, HOJA As excel.Worksheet, ByVal CODIGO As String, RANGO As excel.Range, COLUMNA As Object, COINCIDENCIA As Object) As Object

            Dim BUSCAR As WorksheetFunction
            Dim RESULTADO As Object
            LIBRO = EXCEL.Workbooks.Open("C:\pharmatools\datos\CODIGOS DE PRODUCTOS.xlsx")
            HOJA = LIBRO.Worksheets("TERMINADOS")
            RANGO = HOJA.Range("A2:B367").Select
            COLUMNA = 2
            COINCIDENCIA = False

            TextBox9.Text = CODIGO (SE INGRESA DESDE FORMULARIO)
            RESULTADO = BUSCAR.VLookup(CODIGO, RANGO, COLUMNA, COINCIDENCIA)
            TextBox5 = RESULTADO (ME LO ENVIA AL FORMULARIO)
            Exit Function
        End Function

    Y HASTA AQUI LLEGUE, NO SE COMO SEGUIR, CREO QUE HAY ERRORES DE SINTAXIS Y UNA ULTIMA CONSULTA, COMO HAGO PARA QUE SE EJECUTE LA FUNCION AL PRESIONAR UN BOTON EN EL FORMULRIO?

    GRACIAS TOTALES Y SEPAN DISCULPAR MI IGNORANCIA



    Andrés Papini

    sábado, 2 de septiembre de 2017 11:05