Excel - Separa Nombres

Hola

comando para separa nombres
ejemplo:
Tengo en la columna A PEREZ RODRIGUEZ JUAN
de tal forma que quede en la columna B PEREZ y en la C RODRIGUEZ y en la D JUAN

Gracias

En la versión office 2007 dentro de Datos viene la función

Texto en Columnas, que puede "partir" por espacios, comas, caracteres, etc

y en el 2003 no recuerdo pero sino lo podrías hacer con Extraer identificando los espacios.

Es decir usando EXTRAER y ENCONTRAR.

Saludos desde Pereira Colombia

Saludos desde Saltillo,Coahuila Mexico

Si, es Con EXTRAER si tuvieras los apellidos y nombres del mismo tamaño, pero unos son mas largos o mas cortos alguna otra opcion te lo agradecere. para chatear mi cuenta es: [email protected]

Aqui una macro, solo pegala en un boton de comando, la verdad no recuerdo quien fue el autor, se ve dificil pero cuando la pegues en el boton ya lo veras mejor...

'*********************************************************************
'Tenemos que situarnos en la primera celda donde tengamos los datos a reorganizar
'Supondremos que es la celda A1
'*********************************************************************
Sub Separarnombre()
Range("A1").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 " ", aunque
'por defecto, podríamos haberlo omitido, pues es ese mismo (espacio)
datos = Split(ActiveCell, " ")
For i = 0 To UBound(datos)
'ponemos cada dato del array, en una columna
ActiveCell.Offset(0, 1) = 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

Saludos desde Guatemala

Estupendo Marvin gracias

solo un detalle se podra, que si tiene uno o mas nombres queden en una sola columna

No era necesario tener los nombres con el mismo largo, para eso era la funcíón ENCONTRAR para saber el largo de cada nombre, pero ya con la Macro tienes tu solución.

Saludos

http://excelgali.mejorforo.net/funciones-y-formulas-f4/separar-palabras-de-una-frase-con-formula-t96.htm#195

Aca pueden encontrar como hacerlo con formula, sin necesidad de ENCONTRAR ni de que las palabras tengan un largo determinado. Obviamente si se trata de Frases con muchas palabras, lña fromula se pondra lenta comparada con cualquier UDF o macro

Galileogali

Pues que pena con esta ayuda pero sigo pensando que aun con ENCONTRAR es más facil que las cuatro formulas largar propuestas en su http:://excelgali.....

este resultado

ESTEBAN ANDRES LOPEZ HERRERA 8 ESTEBAN
ANDRES LOPEZ HERRERA 7 ANDRES
LOPEZ HERRERA 6 LOPEZ
HERRERA

se logra con solo las funciones propuestas anteriormente que son:

=ENCONTRAR(" ";A15)
=EXTRAE(A15;1;ENCONTRAR(" ";A15)-1)
=EXTRAE(A15;B15+1;50)

la explicación es:

=ENCONTRAR(" ";A15) para "encontar los espacios" ejemplo en 8

=EXTRAE(A15;1;ENCONTRAR(" ";A15)-1) para la columna de los nombres separados ejemplo "ESTEBAN"

y =EXTRAE(A15;B15+1;50) para encontar "ANDRES LOPEZ HERRERA"

Jose ahi te envío el archivo

Si quieres tambien la puedes colocar en http:://excelgali.....

No entiendo a que le llamas pena, el que se presenten numerosas propuestas o alternativas, La formula que puse, simplemente devuleve la Palabra que se quiera segun el orden , tercera, cuarta, la que sea, sin necesidad de obtener las demas, contempla
La aplicacion de la funcion espacios en el interior, puede elminarse ya que esta solamente a fin de salvar la posibilidad de que hubiera mas de un espacio entre palabras o al principio o al final

Acepta palabras repetidas todas las veces que aparezcan

Sigo sin entender a qué atribuyes pena.....

GALILEOGALI

En mi caso la abundancia de aportes siempre la agradezco, pues me enriquece, pero nunca me produce pena...

Pues si Galileo relee mi respuesta verá que no uso la funcion espacios, entonces como eliminar lo que no tengo en mi respuesta ?.

Solo como él mismo en otro momento sugirió, se debe utilizar ESPACIOS para quitar solo los espacios extras, es decir dejando solo individuales entre palabras.

Ah y la pena se refiere a que da lástima que alguien que evidentemente sabe mucho, se dedique a criticar las respuestas de otros, pues desde un principio criticó el usar la funcion ENCONTRAR y como puede ver si es muy útil en este caso.

No, recuerdo en que mensaje puse esa palabra "pena" y si la puse fue error de "dedo" por decirlo asi, asi que de la manera mas atenta te pido disculpas, y siempre agradecere tus aportaciones y la de los demas.

sigo produciendo:
que tal esta UDF??

Function separa(stCadena As String, n As Long) As String
Dim x() As String
x = Split(Trim(stCadena), " ")
separa = x(n - 1)
End Function

GALILEOGALI

Amigos, este foro es para enriquecernos dia a día no para discutir, cada uno de nosotros aporta algo de lo que ha hecho, sabe o tiene, y siempre es enriquecedor estar aprendiendo variedad de soluciones para un mismo problema.

Salu2

Amigos todos, por favor, tengamos la fiesta en paz. Cada uno da la solución que cree más conveniente y no se debe menospreciar las respuestas de los demás foristas.
José, en cuanto a tu pregunta, yo haría lo siguiente;
DATOS > TEXTO EN COLUMNAS > SIGUIENTE < SIGUIENTE y ACEPTAR. yA TIENES LA SOLUCIÓN.
Saludos
Josean.

Gracias Josean de mi parte mil disculpas a todos y sin rencores con absolutamente nadie.

Ah y hablando del tema yo recomendé lo del TEXTO EN COLUMNAS desde mi primer correo, pero como dije en ese correo yo se que lo tiene el office 2007 pero no recuerdo en el 2003.


Cordial saludo a todos desde Pereira Colombia

Luis Fernando, excel 2003 si tiene texto en columnas.
Otra cosa, da gusto ver como actúan las personas de este foro, entre las que lógicamente te encuentras; he aprendido tanto en mis cursos como con las preguntas y respuestas que aquí se ven.
Que esto siga siempre igual.
Un cordial saludo desde Zaragoza, España.
Josean.

Ok gracias por tus palabras ah y por despejarme la duda, pues tengo el office 2007 y es con este que lo he usado pero no recordaba respecto al 2003.

Slds

Hola Jose si recuerdas ya te habia proporcionado una formula que te daba esos resultados en una sola celda lo unico que tienes que hacer es pornerlas por separado.
las formulas quedarian asi
A1 Juarez Guzman Rocio del Carmen
A2 =IZQUIERDA(A1;HALLAR(" ";A1;1))
A3 =EXTRAE(A1;HALLAR(" ";A1;1)+1;HALLAR(" ";A1;HALLAR(" ";A1;1)+1)-HALLAR(" ";A1;1)-1)
A4 =DERECHA(A1;LARGO(A1)-HALLAR(" ";A1;HALLAR(" ";A1;1)+1))

Ahora, bien te comentan que las formulas si son muchas te pueden hacer lenta tu consulta.
saludos a todos.

si ya me dio el resultado que buscaba.
Gracias a ti y cada uno de los que me mandaron sus metodos.

Es una PENA que se acabó el hilo.......
Existen varias soluciones... de las mas simples (utilizando funciones del propio excell) y de las soluciones de esas que matan moscas a cañonazos...
Tenia un amigo que desarrollo un funcion que volcaba lo que estaba en pantalla a una impressora todo esto en MSDOS 6.2 ... recuerdo haberle comentado .. y para ke coño esta la tecla PrinScreen ;) es mejopr usar las "cosas" que ya estan hechas ;)

Saludos... [ ]'s

Ricardo Ramírez!