Iniciales

05/02/2004 - 19:12 por alexinho | Informe spam
Hola, en una celda tengo 2 Apellidos y en la celda de la
derecha tengo 1, 2 o mas nombres, asi en 900 filas. ¿Como
puedo hacer para que en la celda de la derecha de cada
registro aparezca las iniciales de los apellidos y las
iniciales de los nombres? mediante formula o macro?
Gracias. Alexinho::.
 

Leer las respuestas

#1 Manuel Romero
05/02/2004 - 19:31 | Informe spam
Function Iniciales(Palabras As String) As String
Pal=Split(Palabras," ")
Iniciales=""
For Each P In Pal
Iniciales=Iniciales & Left(P,1)
Next
End Function

Y la llamas en la celdas =Iniciales(<celda apellidos>)&" "&Iniciales(<celda
nombres>)

alexinho wrote:
Hola, en una celda tengo 2 Apellidos y en la celda de la
derecha tengo 1, 2 o mas nombres, asi en 900 filas. ¿Como
puedo hacer para que en la celda de la derecha de cada
registro aparezca las iniciales de los apellidos y las
iniciales de los nombres? mediante formula o macro?
Gracias. Alexinho::.

Preguntas similares