PARA MANUEL ROMERO

También puedes hacerlo sin necesidad de código.
Suponiendo que los apellidos estén en A1 y el nombre en
B1, prueba esta fórmula en C1:

=MAYUSC(IZQUIERDA(A1;1)&""&EXTRAE(A1;ENCONTRAR(" ";A1)
+1;1)&""&SI(ESERROR(ENCONTRAR(" ";B1)=0);IZQUIERDA
(B1;1);IZQUIERDA(B1;1)&""&EXTRAE(B1;ENCONTRAR(" ";B1)
+1;1)))

:-)

Hola, me dejaste un ejemplo de como extraer iniciales de
celdas con apellidos y nombres. Ese codigo donde lo
coloco? luego el codigo "=Iniciales(<celda apellidos>)
&" "&Iniciales(<celda
nombres>)" lo coloco en la barra de formulas? por favor
ayuda, gracias. Alexinho
.

¿que tal, chicos?

Víctor escribio
... sin necesidad de codigo suponiendo ... los apellidos ... en A1 y el nombre en B1 ... formula en C1
=MAYUSC(IZQUIERDA(A1;1)&""&EXTRAE(A1;ENCONTRAR(" ";A1)
+1;1)&""&SI(ESERROR(ENCONTRAR(" ";B1)=0);IZQUIERDA
(B1;1);IZQUIERDA(B1;1)&""&EXTRAE(B1;ENCONTRAR(" ";B1)+1;1)))

______________
[me parece que]...
- 'requiere' de un espacio 'inicial' en 'A1'
- 'falla' con mas de un espacio 'inicial' en 'A1'
- NO 'considera' [posibles] espacios 'adicionales' en 'el resto' de la cadena 'completa' de nombres [a1+b1]
[segun la solicitud 'original' de Alexinho]... =>en la celda de la derecha tengo 1, 2 o mas nombres<= :((
¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨
antes de 'llegarle' a las macros [o alguna formula 'matricial'] ...
[yo creo que]... hay que 'echar a perder' [y 'solo para estar seguros'] dos celdas 'intermedias' con lo siguiente [p.e.]
- A1 = primer nombre/apellido
- B1 = [posibles] 1, 2 o mas nombres
=> C1 = formula... =Espacios(A1&" "&B1)
=> D1 = formula... =Largo(C1)-Largo(Sustituir(C1," ","")) =>nos da cuantos nombres 'aparecen' en B1<- E1 = la siguiente formula [dependiendo de 'cuantos' nombres 'extras' indique la celda 'D1']
[la separo 'por lineas', dependiendo de si 'llegan a ocuparse' o no] =>si hay mas de 3 nombres en 'B1'... va a 'crecer' :((
=Izquierda(C1,1)
&Si(D1>0,Extrae(C1,Encontrar(" ",C1)+1,1),"")
&Si(D1>1,Extrae(C1,Encontrar(" ",C1,Encontrar(" ",C1)+1)+1,1),"")
&Si(D1>2,Extrae(C1,Encontrar(" ",C1,Encontrar(" ",C1,Encontrar(" ",C1)+1)+1)+1,1),"")
[...]

saludos,
hector.

Complemetando mi respuesta, sin demeritar las respuestas de Victor y Hector
(siempre sera mejor una respuesta sin macros, pero como Alexinho decia que
podia haber dos o mas nombres y no se me ocurrio otra forma)

1- En Excel, presionas Alt+F11
2- En el menu Insertar, selecciona modulo BAS
3- Copias el codigo de la funcion Insertar en el modulo
4- Suponiendo que A1 sea la celda de los apellidos y B1 la celda de los
nombres, la funcion seria
=Iniciales(A1)&" "&Iniciales(B1)

Alexinho wrote:

Hola, me dejaste un ejemplo de como extraer iniciales de
celdas con apellidos y nombres. Ese codigo donde lo
coloco? luego el codigo "=Iniciales(<celda apellidos>)
&" "&Iniciales(<celda
nombres>)" lo coloco en la barra de formulas? por favor
ayuda, gracias. Alexinho