|
07/Jul/05 12:12
DIVIDIR NOMBRES COMPLETOS
A veces nos topamos con listas de nombres completos en una sola celda, y lo que queremos es tener el apellido paterno en una celda, el materno en otra, y el nombre en otra celda tambien. Esta formula me ha sido de mucha utilidad pricipalmete en la preparacion de la carga batch de la declaracion de sueldos y salarios.
A lo que vamos:
Vamos a utlizar 4 columnas: columa A, B,C y D, en la primer fila pondremos los encabezados A1=NOMBRES COMPLETOS, B1=APELLIDO PATERNO, C1=APELLIDO MATERNO y por ultimo D1=NOMBRE(S).
CELDA A2[/b:85440e9aee]= EL NOMBRE COMPLETO QUE VAYAMOS A DIVIDIR
[b:85440e9aee]CELDA B2[/b:85440e9aee]=EXTRAE(A2,1,((ENCONTRAR(" ",A2))-1))
[b:85440e9aee]CELDA C2[/b:85440e9aee]=EXTRAE((EXTRAE(A2,((ENCONTRAR(" ",A2))+1),99)),1,((ENCONTRAR(" ",(EXTRAE(A2,((ENCONTRAR(" ",A2))+1),99))))-1))
[b:85440e9aee]CELDA D2=EXTRAE((EXTRAE(A2,((ENCONTRAR(" ",A2))+1),99)),((ENCONTRAR(" ",(EXTRAE(A2,((ENCONTRAR(" ",A2))+1),99))))+1),99)
Nota: Esta formula solo funciona para apellidos de una sola palabra, es decir no funciona con apellidos como "De la Cruz", "De la Fuente", etc.
Nota2: El formato de la celda A2 debe ser -apellido paterno-apellido materno-nombre-
Espero les sea de utilidad. Hasta pronto
|
arturo
Soldado
Mensajes:
19
Ingresó:
Mayo 18, 2004
Ubicación:
|
No Conectado |
Agregar como amigo
|
|
07/Jul/05 12:30
Re: DIVIDIR NOMBRES COMPLETOS
Gracias por la aportacion, y yo tambien la utlizo pero para las cartas patronales de IMSS, INFONAVIT, y ademas para confrontar SUA-NOMINA-(EMA/EBA) es muy buena esa formula, ademas cuando son formatos que manda el IMSS, se pone "$", en lugar de " "
saludos
Visiten mi espacio elnidodelseguro.com .mx
|
lcgabrielaranda
Mayor
Mensajes:
1191
Ingresó:
Mayo 18, 2004
Ubicación:
|
|
No Conectado |
Agregar como amigo
|
|
07/Jul/05 12:50
Re: DIVIDIR NOMBRES COMPLETOS
LO QUE SE MENCIONA ES CORRECTO, YO ASI LO MANEJO AL EXPORTAR LAS EMISIONES A EXCEL Y TENGO LOS MISMOS PROBLEMAS CON LOS NOMBRES
|
Edgar_Ruben10
Subteniente
Mensajes:
175
Ingresó:
Marzo 04, 2005
Ubicación:
|
|
No Conectado |
Agregar como amigo
|
|
07/Jul/05 19:25
Re: DIVIDIR NOMBRES COMPLETOS
Ya que estamos con el tema, esta es la macro que uso, no requiere usar una cuarta celda, solo se posiciona en la columna que tiene el nombre y lo reemplazará e insertará las columnas de [i:f95b4b0423]Ap.Paterno, Ap.Materno y Nombre(s)[/i:f95b4b0423]
[code:1:f95b4b0423]Sub SeparaNombres()
' Separa Nombres con división "/" en columnas con encabezado
' Macro recorded 02/10/2004 ByPaco
' Posicionarse en la primera celda a separar
If Cells(ActiveCell.Row, ActiveCell.Column).Value = Empty Then GoTo fin
ActiveCell.EntireColumn.Insert
ActiveCell.EntireColumn.Insert
ActiveCell.EntireColumn.Insert
Cells(ActiveCell.Row, ActiveCell.Column + 3).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Cells(ActiveCell.Row, ActiveCell.Column - 3), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1))
Selection.EntireColumn.Delete
ActiveCell.Offset(-1, -3).Range("A1").Select
ActiveCell.FormulaR1C1 = "Ap.Paterno"
ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "Ap.Materno"
ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "Nombre(s)"
ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit
fin:
End Sub[/code:1:f95b4b0423]
«Antes que cambien los reinos, los hombres deberán cambiar»
═╬═
|
ByPaco
Teniente Coronel
Mensajes:
2132
Ingresó:
Junio 05, 2004
Ubicación:
|
Conectado |
Agregar como amigo
|
|
11/Jul/05 12:03
Re: DIVIDIR NOMBRES COMPLETOS
Solo le cambié en Space:=False por Space:=true, para que me funcionara ya que no tenia el nombre dividido por la diagonal "/"
|
arturo
Soldado
Mensajes:
19
Ingresó:
Mayo 18, 2004
Ubicación:
|
|
No Conectado |
Agregar como amigo
|
|
11/Jul/05 12:10
Arturo aqui en lo que fallará es en los apellidos de dos o mas silabas, y también en los nombres de igual caracteristicas
«Antes que cambien los reinos, los hombres deberán cambiar»
═╬═
|
ByPaco
Teniente Coronel
Mensajes:
2132
Ingresó:
Junio 05, 2004
Ubicación:
|
|
Conectado |
Agregar como amigo
|
|
11/Jul/05 17:00
Re: DIVIDIR NOMBRES COMPLETOS
Muy interesante y útil. Ahora bien, que función debo aplicar para hacer la operación a la inversa, es decir, unir datos (en este caso nombres), alguien me menciono que la función se llama CONCATENAR, pero desconozco como funciona, si alguien me pudiera explicar mucho se lo agradeceré
MARLA
'Nadie puede llegar a la cima armado sólo de talento. Dios da el talento; el trabajo transforma el talento en genio', Anna Pavlova.
'Todo lo que claramente imaginamos, ardientemente deseamos, sinceramente creamos y entusiastamente e
|
MARLA
Subteniente
Mensajes:
140
Ingresó:
Mayo 18, 2004
Ubicación:
|
|
No Conectado |
Agregar como amigo
|
|
11/Jul/05 17:23
En este foro hay un tópico de concatenar, checalo
«Antes que cambien los reinos, los hombres deberán cambiar»
═╬═
|
ByPaco
Teniente Coronel
Mensajes:
2132
Ingresó:
Junio 05, 2004
Ubicación:
|
|
Conectado |
Agregar como amigo
|
|
11/Jul/05 19:51
Re: DIVIDIR NOMBRES COMPLETOS
Puedes utilizar la funcion =CONCATENAR(CELDA AP PATERNO,CELDA CON UN ESPACIO,CELDA AP MATERNO,CELDA CON UN ESPACIO,CELDA NOMBRE)
O tambien puedes utilizar el simbolo "&" para unir las celdas,
=CELDA AP PATERNO&CELDA CON UN ESPACIO&CELDA AP MATERNO&CELDA CON UN ESPACIO&CELDA NOMBRE
Cualquiera de las dos funciona igual
|
arturo
Soldado
Mensajes:
19
Ingresó:
Mayo 18, 2004
Ubicación:
|
|
No Conectado |
Agregar como amigo
|
|
12/Jul/05 8:29
Re: DIVIDIR NOMBRES COMPLETOS
[quote:861a14c24d="arturo"]Puedes utilizar la funcion =CONCATENAR(CELDA AP PATERNO,CELDA CON UN ESPACIO,CELDA AP MATERNO,CELDA CON UN ESPACIO,CELDA NOMBRE)
O tambien puedes utilizar el simbolo "&" para unir las celdas,
=CELDA AP PATERNO&CELDA CON UN ESPACIO&CELDA AP MATERNO&CELDA CON UN ESPACIO&CELDA NOMBRE
Cualquiera de las dos funciona igual[/quote:861a14c24d]
Estoy de acuerdo, pero en lugar de utilizar una celda que contenga un espacio, yo pondría un espacio entre comillas, o sea:
=CONCATENAR(CELDA AP PATERNO," ",CELDA AP MATERNO," ",CELDA NOMBRE)
o
=CELDA AP PATERNO&" "&CELDA AP MATERNO&" "&CELDA NOMBRE
Funciona igual.
Saludos.
|
Silver
Sargento Primero
Mensajes:
128
Ingresó:
Mayo 19, 2004
Ubicación:
|
|
No Conectado |
Agregar como amigo
|
|
