extraer texto entre dos caracteres

Solo consultas sobre macros y código VBA Excel.
Reglas del Foro 1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!

extraer texto entre dos caracteres

Notapor wilmersaz » 04 Ene 2018 15:31

BUENA TARDE,

estoy intentando extraer un texto de entre 2 caracteres en una misma celda. por ejemplo:

este es el texto de las celdas de la columna A:

este_es_m:campo1 de_la_celda
este_es_el:campo2 de_la_celda
mi:campo3 de_la_celda
este:campo4 de_la_celda
el:campo5 de_la_celda

y quiero que me extraiga lo que esta en medio de los dos puntos (:) y el espacio( ) es decir:
campo1
campo2
campo3
campo4
campo5
y me los muestre en la columna B

Agradecería enteramente me ayudaran con este tema.
Avatar de Usuario
wilmersaz
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 11
Registrado: 18 Oct 2017 18:14
Ubicación: Colombia

Re: extraer texto entre dos caracteres

Notapor eavjperu » 05 Ene 2018 00:18

Hola:

Suponiendo que ese espacio es solo "un" espacio, algo así te ayudará:

=EXTRAE(A1,(HALLAR(":",A1))+1,HALLAR(" ",A1)-HALLAR(":",A1))

Comentas

Abraham Valencia
Avatar de Usuario
eavjperu
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 60
Registrado: 07 Nov 2017 11:59
Ubicación: Perú

Re: extraer texto entre dos caracteres

Notapor Antoni » 05 Ene 2018 06:50

Selecciona el rango y ejecuta esta macro:

Código: Seleccionar todo
Sub Separar(): On Error Resume Next
   Application.ScreenUpdating = False
   For Each celda In Selection
      p1 = Split(celda.Value, ":")
      p2 = Split(Trim(p1(1)), " ")
      celda.Offset(0, 1).Value = p2(0)
   Next
End Sub
Avatar de Usuario
Antoni
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 5028
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)

Re: extraer texto entre dos caracteres

Notapor wilmersaz » 05 Ene 2018 09:48

eavjperu escribió:Hola:

Suponiendo que ese espacio es solo "un" espacio, algo así te ayudará:

=EXTRAE(A1,(HALLAR(":",A1))+1,HALLAR(" ",A1)-HALLAR(":",A1))

Comentas

Abraham Valencia



Amigo gracias por tu respuesta me sirvió para el ejemplo que coloque pero para mi ejercicio no me trae todos los fragmentos de texto que hay.
Avatar de Usuario
wilmersaz
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 11
Registrado: 18 Oct 2017 18:14
Ubicación: Colombia

Re: extraer texto entre dos caracteres

Notapor wilmersaz » 05 Ene 2018 09:50

Antoni escribió:Selecciona el rango y ejecuta esta macro:

Código: Seleccionar todo
Sub Separar(): On Error Resume Next
   Application.ScreenUpdating = False
   For Each celda In Selection
      p1 = Split(celda.Value, ":")
      p2 = Split(Trim(p1(1)), " ")
      celda.Offset(0, 1).Value = p2(0)
   Next
End Sub


Antoni, Muchas gracias , tu código me ha servido de maravilla.
Avatar de Usuario
wilmersaz
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 11
Registrado: 18 Oct 2017 18:14
Ubicación: Colombia


Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 6 invitados
cron