Obtener texto a partir de segundo carácter pasado como parámetro
No se si el titulo es representativo a lo que necesito pero voy a explicarlo lo más claro que me sea posible.
Necesito realizar una función en una sola celda que me extraiga los caracteres a partir de un carácter que le meta como parámetro, en el ejemplo es >, la gracia de esto es que no tiene que ser con el primer > que aparezca si no el segundo, es decir:
PrimeraParte>SegundaParte>TerceraParte>CuartaParte ---> Obtener TerceraParte>CuartaParte
o
PrimeraParte>SegundaParte>TerceraParte --> obtener TerceraParte
No se si me he explicado correctamente.
1 respuesta
Pon el siguiente código de función en un módulo
Function ExtraeCadena(celda As Range, caracter As String, posicion As Integer) 'Por.Dante Amor dato = celda.Value For i = 1 To posicion res = InStr(1, dato, caracter) If res > 0 Then dato = Mid(dato, res + 1) Else dato = "No existe el carecter buscado después de la posición" End If Next ExtraeCadena = dato End Function
Sigue las Instrucciones para una Función
- Abre tu libro de excel
- Para abrir VBa y poder pegar la función, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la función
- En cualquier celda utiliza la función, como cualquier otra función de excel
Por ejemplo, si el texto lo tienes en la celda C4, en la celda D4 pon la siguiente función:
=ExtraeCadena(C4;">";2)
En mi ejemplo
El primer parámetro "C4" se refiere a la celda donde tienes el texto.
El segundo parámetro ">" corresponde al carácter que vas a buscar
Y el último parámetro "2", es la posición a partir de la cual te debe regresar el resultado.
Avísame cualquier duda.
