VBA - Buscar aguja en pajar

Laufwerk · #1 (**permalink**) 08/10/2008, 03:57

Hola!!
Necesito la tipica funcion de buscar un string dentro de otro, la teneis por ahi?

Gracias!!

Laufwerk · #2 (**permalink**) 08/10/2008, 04:26

lo hice mediante InStr (Pajar, Aguja)

Gracias!!!!

3pies · #3 (**permalink**) 08/10/2008, 04:33

Con la función EXTRAE y con alguna más, seguro que se puede...

Para no tener conflictos si la cadena buscada está en mayúsculas y la cadena donde se busca está en minúsculas, o viceversa, te recomiendo un ligero cambio:

Código:

Function encuentra(pajar As String, aguja As String)
encuentra = InStr(LCase(pajar), LCase(aguja))
End Function

Y la llamas desde excel así:

Código:

=encuentra(pajar;aguja)

Donde...

pajar = A1, A55, B44, "casa", "pepito", etc...
aguja = A1, A55, B44, "casa", "pepito", etc...

Salu2

Laufwerk · #4 (**permalink**) 08/10/2008, 06:48

GRacias!!!!