Extraer texto

[hamirokuay]

Hola, uso excel 2003 y necesito por favor que me ayuden con unas fórmulas. Se trata de dado estas entradas:
A
C/Estrella, 18 - CÁRTAMA ESTACIÓN - 656187081 - ver más
C/ Carreteros 12, bajo derecha - ANTEQUERA - 952 705 248 - ver más


Pueda extraer en una celda a la derecha en la columna B, el texto que hay hasta el primer guión

Y en la columna C el texto que hay entre el primer y el segundo guión, lo demás no lo necesito. Quedaria asi:

B
C/Estrella, 18
C/ Carreteros 12, bajo derecha


C
CÁRTAMA ESTACIÓN
ANTEQUERA

Muchisimas gracias, tengo que hacer mas de 3000 entradas de este tipo y me vendria muy bien automatizarlo.

[3pies]

Suponiendo que tengas esto en A1:

Código:

C/ Carreteros 12, bajo derecha - ANTEQUERA - 952 705 248 - ver más

Por esto en A2:

Código:

=EXTRAE(A1;1;HALLAR("-";A1;1)-2)

y esto en A3:

Código:

=EXTRAE(A1;HALLAR("-";A1;1)+2;HALLAR("-";A1;HALLAR("-";A1;1)+2)-HALLAR("-";A1;1)-2)

Saludos.

[hamirokuay]

Ferfecto, muchisimas gracias, por favor me dirias otra duda que me ha surgido?

supónte texto en A1 y A2, A3 vacia y asi sucesivamente dos si y una no hacia abajo, necesito una macro que lleve el contenido y deje vacia la celda A2 y me lo lleve a B1, osea una hacia la derecha y una hacia arriba, gracias de nuevo

[3pies]

Prueba esto (guarda tu fichero antes de ejecutar este macro, por si las moscas):

Código:

Sub Ejemplo()
Range("A2").Select
For i = 1 To 100
    Selection.Cut
    ActiveCell.Offset(-1, 1).Select
    ActiveSheet.Paste
    ActiveCell.Offset(4, -1).Select
Next
End Sub

De nada

[hamirokuay]

Gracias por tu respuesta tan rapida, la macro trabaja pero no como yo desearia, me mueve de las dos celdas que tienen texto la de arriba, y lo que quiero es que mueva la de abajo y la ponga a la derecha de la de arriba

[3pies]

Ese macro te debería hacer esto:

[hamirokuay]

Exacto, es así como lo has planteado como lo quiero pero ya te digo no me lo hace asi, es esto lo que me hace, no se si hare algo mal, pero creo que no.

[hamirokuay]

Ya he encontrado mi error, no empezaba desde la fila 1 sino desde la 2, ponia A en A2, te estoy muy agradecido por tu dedicación, perdón por haberte entretenido más de la cuenta. Un saludo amigo

[3pies]

Pues te garantizo que el pantallazo que te he puesto, es el resultado de ejecutar ese macro.

Vamos a comentarlo:

Código:

Sub Ejemplo()
'nos situamos en la celda A2
Range("A2").Select
'desde la fila 1 a la 100...
For i = 1 To 100
    'cortamos el dato de la celda
    Selection.Cut
    'nos movemos una fila menos (-1) y una columna más (1)
    'es decir, a la fila anterior, y a la columna de la derecha
    ActiveCell.Offset(-1, 1).Select
    'pegamos el dato en esa celda
    ActiveSheet.Paste
    'desde donde estamos, y donde hemos pegado el dato
    'bajamos 4 filas (4), y una columna antes (-1)
    ActiveCell.Offset(4, -1).Select
    'seguimos con el bucle
Next
End Sub

Edito, para comentar que estaba con mil cosas a la vez, y no vi tu respuesta anterior, donde ya habías solucionado el tema.

[hamirokuay]

Me ha venido de fábula la macro comentada para poder entenderla, donde puedo encontrar macros asi comentadas para ir aprendiendo algo?

[mrocf]

¿Quieres encontrar macros comentadas?...
Pues lée la mayoría de las respuestas de 3pies en este mismo Foro, y "te llenarás" de comentarios (je je je).

Saludos, Cacho.

[3pies]

Pues aquí: http://www.google.es/search?hl=es&so...i=g10&aql=&oq=

El primer resultado, me es familiar

[3pies]

Iniciado por mrocf

¿Quieres encontrar macros comentadas?...
Pues lée la mayoría de las respuestas de 3pies en este mismo Foro, y "te llenarás" de comentarios (je je je).

Saludos, Cacho.

Y si quieres calidad de la buena, el amigo mrocf, da unas respuestas, que a veces me dejan impresionado

[mrocf]

¡¡¡ Flores que van !!!
¡¡¡ Flores que vienen !!!

Ja ja ja ja

[hamirokuay]

3pies muy buena la pagina a la que me has enviado, te copio.. jeje

Aprovecho para hacer una pregunta, tengo un archivo PERSONAL.xls en el cual voy incluyendo las macros que utilizo habitualmente, como ya dije en el primer post uso excel 2003 y no me he pasado al 2007 porque no se si será compatible ese archivo que tengo con el office 2007.

Podeis aconsejarme algo al respecto? me cambio? sigo como estoy? es compatible o perderé parte de mis macros?

[3pies]

hamirokuay, yo hago como tú, sigo utilizando Excel 2003, a pesar de que también tengo Excel 2007. En principio todo debería funcionarte en Excel 2007, si haces el cambio.

Por cierto, para no mezclar en un mismo hilo, temas diferentes, te aconsejo que a cada pregunta nueva y no relacionada con la anterior, abras un nuevo tema.

Saludos.