Extraer iniciales de un nombre

En uno módulo:

Public Function iniciales(cellTxt As String) As String
Dim i As Integer
Dim s As String
s = UCase(Left(cellTxt, 1))
For i = 1 To Len(cellTxt)
If Asc(Mid(cellTxt, i, 1)) = 32 Then s = s & UCase(Mid(cellTxt, (i +
1), 1))
Next
iniciales = s
End Function




"Ariel FC" schreef in bericht
news:

Tengo en una columna una lista de nombres completos. Estoy necesitando
extraer las iniciales:

Por ejemplo, una celda contiene "Ariel Fernando Comba" y necesito obtener
en
otra celda "AFC".

Tengo instalado Ms Excel 2002.

Necesito ayuda para saber como puedo hacer esto en Excel.

Desde ya muchas gracias

Organiza esta Formula de acuerdo a tus necesidades.
=IZQUIERDA(B91;1)&EXTRAE(B91;ENCONTRAR(" ";B91)+1;1)&EXTRAE(B91;ENCONTRAR("
";B91;ENCONTRAR(" ";B91)+1)+1;1)

Cordialmente
http://es.geocities.com/asesoriasyprogramas


"Ariel FC" escribió en el mensaje
news:
Tengo en una columna una lista de nombres completos. Estoy necesitando
extraer las iniciales:

Por ejemplo, una celda contiene "Ariel Fernando Comba" y necesito obtener en
otra celda "AFC".

Tengo instalado Ms Excel 2002.

Necesito ayuda para saber como puedo hacer esto en Excel.

Desde ya muchas gracias

Hola chicos,

Tambien se puede hacer por formula:

=IZQUIERDA(A1)&EXTRAE(A1;ENCONTRAR(" ";A1)+1;1)&EXTRAE(A1;ENCONTRAR(" ";A1;ENCONTRAR(" ";A1)+1)+1;1)

O mediante la siguiente funcion mas eficente:

Function Iniciales(Texto As String) As String
Dim RegExp As Object
Set RegExp = CreateObject("vbscript.regexp")
With RegExp
.Pattern = "[^A-Z]"
.Global = True
Iniciales = .Replace(Application.Proper(Texto), "")
End With
End Function

Saludos,
KL


"moon" wrote in message news:44f5df5b$0$2022$

En uno módulo:

Public Function iniciales(cellTxt As String) As String
Dim i As Integer
Dim s As String
s = UCase(Left(cellTxt, 1))
For i = 1 To Len(cellTxt)
If Asc(Mid(cellTxt, i, 1)) = 32 Then s = s & UCase(Mid(cellTxt, (i + 1), 1))
Next
iniciales = s
End Function




"Ariel FC" schreef in bericht news:

Tengo en una columna una lista de nombres completos. Estoy necesitando
extraer las iniciales:

Por ejemplo, una celda contiene "Ariel Fernando Comba" y necesito obtener en
otra celda "AFC".

Tengo instalado Ms Excel 2002.

Necesito ayuda para saber como puedo hacer esto en Excel.

Desde ya muchas gracias

por aca te puedes bajar un manual con las funciones de texto por si te sirve
de algo

http://esnips.com/web/RaigosaTexto

Gabriel Raigosa

news://msnews.microsoft.com/microso...c.es.excel
"Ariel FC" escribió en el mensaje
news:
| Tengo en una columna una lista de nombres completos. Estoy necesitando
| extraer las iniciales:
|
| Por ejemplo, una celda contiene "Ariel Fernando Comba" y necesito obtener
en
| otra celda "AFC".
|
| Tengo instalado Ms Excel 2002.
|
| Necesito ayuda para saber como puedo hacer esto en Excel.
|
| Desde ya muchas gracias

Funciona perfecto.

Muchas Gracias.

"moon" escribió:

En uno módulo:

Public Function iniciales(cellTxt As String) As String
Dim i As Integer
Dim s As String
s = UCase(Left(cellTxt, 1))
For i = 1 To Len(cellTxt)
If Asc(Mid(cellTxt, i, 1)) = 32 Then s = s & UCase(Mid(cellTxt, (i +
1), 1))
Next
iniciales = s
End Function




"Ariel FC" schreef in bericht
news:
> Tengo en una columna una lista de nombres completos. Estoy necesitando
> extraer las iniciales:
>
> Por ejemplo, una celda contiene "Ariel Fernando Comba" y necesito obtener
> en
> otra celda "AFC".
>
> Tengo instalado Ms Excel 2002.
>
> Necesito ayuda para saber como puedo hacer esto en Excel.
>
> Desde ya muchas gracias