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