Foro Excel

NO PUEDO ENCONTRAR LA MANERA PARA SEPARAR DE UNA CELDA EL APELLIDO Y QUE LO INSERTE EN LA CELDA SIGUIENTE Y QUE EN LA CELDA ORIGINAL DEJE SOLAMENTE EL NOMBRE/S.
ESPERO HABER SIDO CLARO

SALUDOS Y GRACIAS POR SU AYUDA

saludos:

puede usar el comando texto en columnas del menu datos.

Seleccione la columna "A"
Menu;
Datos \ texto en columnas
"Delimitados" > siguiente
"separadores", seleccionar espacio > siguiente
"destino", seleccionar B1 > siguiente

Hola,
suponiendo que siempre el apellido es la última palabra en la celda y que las palabras están separadas por espacios, puedes usar esta fórmula

=DERECHA(A1,LARGO(A1)-ENCONTRAR("*",SUSTITUIR(A1," ","*",LARGO(A1)-LARGO(SUSTITUIR(A1," ","")))))

donde A1 es la celda que contiene el nombre completo. Esta fórmula te dara siempre la última palabra de la celda como resultado.

Si la celda A1 tiene espacios al final de la última palabra (sucede a veces cuando se importan los nombre de una base de datos), puedes usar esta variante:

=DERECHA(ESPACIOS(A1);LARGO(ESPACIOS(A1))-ENCONTRAR("*";SUSTITUIR(ESPACIOS(A1);" ";"*";LARGO(ESPACIOS(A1))-LARGO(SUSTITUIR(ESPACIOS(A1);" ";"")))))

cuando me vi en esta disyuntiva, opte por grabar una macro, aunque al opción de 'Texto en Columnas' sirve.
Antes que nada deberás usar un separador entre Apellido Paterno, Apellido Materno y Nombre(s), luego usar una de las 2 opciones

Código: Seleccionar todo

Sub SeparaNombres()
' Separa Nombres con división "/" en columnas con encabezado
' Posicionarse en la primera celda a separar
' Macro recorded 02/10/2004 ByPaco
' actualizada el 01/09/2005 daba error, si los datos estaban al tope superior de la hoja
' 22/08/2006 Se agregó la opción para poder elegir un separador

    'Solicita un separador
    Sepa = InputBox("Escriba aquí­ el tipo de separador que usa para distinguir Nombres de apellidos", "Separador de Nombres", "/")
    If Sepa = " " Or Sepa = "" Or Sepa = "  " Then msg = MsgBox("No se permiten espacios", vbOKOnly, "¡¡ A T E N C I í“ N !!")
    If msg = vbOK Then GoTo fin 'Si el separador es un espacio o no pone nada termina el proceso
    If Cells(ActiveCell.Row, ActiveCell.Column).Value = Empty Then GoTo fin
    'Insera tres columnas una para nombre(s) y dos para los apellidos
    ActiveCell.EntireColumn.Insert
    ActiveCell.EntireColumn.Insert
    ActiveCell.EntireColumn.Insert
    Cells(ActiveCell.Row, ActiveCell.Column + 3).Select 'Se posiciona en la primera celda despues de las columnas insertadas
    Range(Selection, Selection.End(xlDown)).Select 'Selecciona toda la cadena de filas
    'Realiza la separación
    Selection.TextToColumns Destination:=Cells(ActiveCell.Row, ActiveCell.Column - 3), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Space:=False, Other:=True, OtherChar:=Sepa, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1))
    Selection.EntireColumn.Delete 'Borra la última columna
    On Error GoTo Ins 'si causa error por no tener vacia la celda superior, inserta una
    ActiveCell.Offset(-1, 0).Range("A1").Select
Ins:
    If Err = 1004 Then
    Selection.End(xlUp).Select
    Selection.EntireRow.Insert
    Cells(ActiveCell.Row, ActiveCell.Column).Select
    End If
    'Pone los encabezados de las columnas
    On Error Resume Next
    ActiveCell.Offset(0, -3).Range("A1").Select
    ActiveCell.FormulaR1C1 = InputBox("Primer encabezado, normalmente Apellido Paterno", "Encabezado", "Ap.Paterno")
    ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = InputBox("Segundo encabezado, normalmente Apellido Materno", "Encabezado", "Ap.Materno")
    ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = InputBox("Tercer encabezado, normalmente Nombre(s)", "Encabezado", "Nombre(s)")
    ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit 'Ajusta el ancho del rango
'Termina el proceso
fin:
End Sub

Matricial mas , matricial menos.....

=EXTRAE(A1,MAX(SI(ESERROR(HALLAR(" ",A1,FILA(INDIRECTO("1:"&LARGO(A1))))),0,HALLAR(" ",A1,FILA(INDIRECTO("1:"&LARGO(A1)))))),255)

ingresar con CTRL+SHIFT+ENTER

Correccion:
=EXTRAE(A1,MAX(SI(ESERROR(HALLAR(" ",A1,FILA(INDIRECTO("1:"&LARGO(A1))))),0,HALLAR(" ",A1,FILA(INDIRECTO("1:"&LARGO(A1))))))+1,255)

Esta me parece mejor y no es MATRICIAL....

EXTRAE(A1,BUSCAR(256,HALLAR(" ",A1,FILA(INDIRECTO("1:"&LARGO(A1)))))+1,255)

Una mas

KL: estoy tratando de entender sin lograrlo.
Words devuelve una matriz horizontal formada por tantos elementos como palabras haya, No obstante no entiendo cómo funciona...
Cuando tengas un poco de tiempo....

KL: ya cai....
tantas comillas juntas, inevitables por cierto, me confundieron....pero las llaves me condujeron al la construccion de la constante matricial, despues el Buscar("zzzz" de siempre....

galileogali";p="39215 escribió:KL: estoy tratando de entender sin lograrlo.
Words devuelve una matriz horizontal formada por tantos elementos como palabras haya, No obstante no entiendo cómo funciona...
Cuando tengas un poco de tiempo....

Voy a traducir una respuesta que publique en un foro de Excel en ruso

La idea:
Todo lo que esta dentro de EVALUATE(...) esta destinado a construir la formula final en formato texto(!) mediante concatenacion(!) y sustitucion(!). Mas o menos lo mismo hacemos cuando construimos una formula para introducirla en una celda desde un codigo VBA(!)

Lo Que Tenemos:
Texto en celda: "Jose Luis Sanchez"

Lo que Buscamos:
construir la siguiente formula como texto:
"{""Jose"";""Luis"";""Sanchez""}"
para luego calcularla mediante EVALUATE() y finalmente obtener la siguiente matriz: {"Jose";"Luis";"Sanchez"}

La Solucion:

Paso 1:
Creamos el inicio de la formula-texto que seria el primer corchete y la primera comilla de la primera palabra:
"{"""

Nota: Para obtener comillas dentro de una cadena de texto tenemos que duplicarlas

Paso 2:
Creamos la parte interior de la formula sustituyendo mediante la funcion SUSTITUIR() los espacios por el siguiente texto:
""";"""
y obtenemos : "Jose"";""Luis"";""Sanchez"

Paso 3:
Creamos el final de la formula que incluye la segunda comilla del ultimo elemento y el segundo corchete:
"""}"

Paso 4:
Concatenamos los resultados de los pasos 1, 2 y 3:
"{"""&"Jose"";""Luis"";""Sanchez"&"""}"

Paso 5:
Solo falta realizar el calculo final mediante la macrofuncion EVALUATE(), o sea
=EVALUATE("{""Jose"";""Luis"";""Sanchez""}")

Espero haber podido explicarlo. La solucion se basa en la idea contenida en una UDF que simula la funcion Split para Excel 97, cuya autoria, segun entiendo, pertenece a Tom Ogilvy:

Código: Seleccionar todo

Function Split(sStr As Variant, sdelim As String) As Variant
    Split = Evaluate("{""" & Application.Substitute(sStr, sdelim, """,""") & """}")
End Function

Solo falta añadir que esta solucion la publique mas bien como algo exotico. Tiene unas limitaciones, y especialmente la del maximo de 255 caracteres en la cadena de texto dentro de EVALUATE, cosa que hace esta solucion poco fiable para textos mas o menos largos. Cuidado, lo que cuenta contra el limite de 255 caracteres no es lo que vemos sino el resultado "invisible" de la formula:
"{""Jose"";""Luis"";""Sanchez""}"

EXCELENTE, ademas sigue abriendo puertas a la construcción de CONSTANTES MATRICIALES
Ahora bien aca va Mi camino CONSTRUCTIVO de la CADENA FORMULA para someter despues a EVALUAR...
sumar explicaciones, espero no sembrar confusión....

Hola Jolufe
Mi aporte de forma un poco diferente = TRIM(PROPER(RIGHT(A1,LEN(A1)-FIND(" ",A1,1+FIND(" ",A1)))&", "&LEFT(A1,FIND(" ",A1,1+FIND(" ",A1)))))
Borra espacios innecesarios y convierte a nombre propio por si hay mala ortografia. Espero te sirva tambien.

Saludos...

En excel 2003, ¿se puede ver las macros '97?, si es así­ ¿como?