Voy a tener una serie de celdas con texto y también voy a tener un rango de 2 columnas, por ejemplo, en A2:B50. Me gustaría crear una función que tuviera 2 inputs, la celda sobre la que quiero trabajar y un rango que será el que tengo en A2:B50.
La función debe buscar si en la celda hay alguna de las palabras de la columna A y, si es así, que me devuelva la palabra contigua en la columna B con una especie de VLOOKUP o similar. Caso de que no encuentre ninguna de las palabras de la columna A que directamente devuelva algún mensaje de error.
Estoy intentando crear la función con InStr y algo parecido a:
Function DEVUELVE(rango, celda)
Dim rango As Range
For Each palabra In rango
If InStr(palabra, celda) > 0 Then
DEVUELVE = VLOOKUP(palabra;rango;2;FALSE)
Else: DEVUELVE = "???"
End If
Next
End Function
Pero claramente estoy muy verde aún para tanta sofisticación.