Extraer texto de celda en excel con caracteres especiales

[rhofa]

Hola como estan!!!

Necesito ayuda, alguien sabe como se puede estraer un texto de una celda en excel que esta separado por caracteres especiales como el punto y coma (;) y el simbolo numero (#).

Existe alguna funcion que lo permita??

Ejemplo:

Educación Media;#Media Técnica;#Tecnológica;#Técnica;#Profesional;#Univer sitaria;#Educación no formal

Tengo el texto anterior en una celda y necesito separarlo en varias celdas...
En una celda Técnica, en otra Tecnológica, etc...

Por favor ayudenme...
RHOFA ([email protected])

[3pies]

Descárgate este ejemplo desde aquí: http://www.megaupload.com/es/?d=RNIFH6OF

Salu2

[rhofa]

Excelente Muchissisisisisimas gracias... era lo que necesitba

[mjmontes]

Al igual que la persona anterior necesito extraer datos que estan separados por caracteres dentro de una misma celda:
Te resumo.

Necesito extraer: N 09d50'60" E, y que en todas las columnas tendran estos caracteres que quiero que delimiten las columnas: d,',", y espacio, para que me resulte
A B C D
09 50 60 E

Millon de gracias de antemano.

[3pies]

Hola mjmontes. Bienvenido al foro.

Prueba este macro (graba tu hoja de cálculo antes de ejecutar el macro, por si las moscas). Con respecto al macro que colgué, solo hay una novedad, y es que tenemos que reemplazar todos los caracteres "raros" por un solo caracter raro, para posteriormente operar con él. Bueno, aquí te dejo el macro para que lo pruebes:

Código:

Sub reorganizar_todo_que_estoy_desesperada_opcion_1()
'********************************************************************************
'Tenemos que situarnos en la primera celda donde tengamos los datos a reorganizar
'Supondremos que es la celda A4
'********************************************************************************
Range("A4").Select
'Ocultamos el procedimiento para que no se vea en pantalla
'nada de lo que hacemos
Application.ScreenUpdating = False
'Mientras encontremos datos en la fila en cuestión,
'que ejecute el macro
Do While Not IsEmpty(ActiveCell)
    'Primero nos fijaremos en qué celda estamos,
    'para volver a ella una vez arreglada la fila
    dondeestoy = ActiveCell.Address
    'Descomponemos la cadena, en subcadenas,
    'para lo cual indicamos el delimitador ";#"
    ActiveCell = Replace(ActiveCell, "d", ";#")
    ActiveCell = Replace(ActiveCell, "'", ";#")
    ActiveCell = Replace(ActiveCell, """", ";#")
    datos = Split(ActiveCell, ";#")
    For i = 0 To UBound(datos)
        'ponemos cada dato del array, en una columna
        ActiveCell = datos(i)
        'nos desplazamos a la columna adyacente (de la derecha)
        ActiveCell.Offset(0, 1).Select
    Next 'Seguimos con el bucle
 'Volvemos donde estábamos inicialmente
    Range(dondeestoy).Select
    'pasamos a la fila siguiente, y volvemos a recorrer el bucle
    ActiveCell.Offset(1, 0).Select
Loop
'Mostramos todo de nuevo
Application.ScreenUpdating = True
End Sub

Salu2

[parmijo]

Sorry llege tarde pero en el menu datos/Texto en Columnas/ delimitados

[NUNI1985]

Buenos días
Tengo un problema con el excel a ver si me podeis ayudar:

Tengo todos estos textos en uns celda separado por un especie de cuadrado (caracter especial) cada texto

"Atenc.: Sr. Nuria Porte------Tel.: [phone]-----E-mail: [email protected]"

y me gustaría que me apareciera por separado en tres celdas distintas y de la siguiente manera:

Nuria Porte
937654872
[email protected]

Es posible??????
Un saludo a tod@s

[3pies]

Bienvenid@ al foro NUNI1985. Cuando hagas una consulta sobre un tema distinto del que trata un hilo, abre un tema nuevo.

Varias preguntas:

1.- Se supone que el cuadradito ese está donde has puesto tú los guiones esos, ¿no?.
2.- ¿Sabes hacer macros?.