Foro Excel

hola, !

la muestra es corta, pero con una funcion personalizada podrias resolver ese ejemplo, copia lo siguiente en un modulo de codigo estandar en el editor de vba:

Código: Seleccionar todo

Function Clave(Cadena As String) As String
  With CreateObject("vbscript.regexp")
    .Global = True
    .IgnoreCase = False
    .Pattern = "[^\dA-Z]"
    Clave = .Replace(Cadena, "")
  End With
End Function

despues la usas como ciualquier otra funcion integrada, p.e.:
suponiendo que el texto del ejemplo esta en [B2] 1 Supervisor (Poza Rica, Veracruz Lunes a Sabado)
con la funcion: =Clave(b2) obtienes como resultado: 1SPRVLS

saludos,
hector.

Hola Gente, probé la función y solo le quita los espacios en blnaco (a lo mejor no supe emplearla), porngo función, no es eficiente pero puede ayudar:

Código: Seleccionar todo

Function INICIALES(Cadena As String) As String
Dim Vector, i As Integer, Aux As String
Vector = Split(Cadena, " ")
For i = 0 To UBound(Vector)
 Aux = Aux & Mid(Vector(i), 1, 1)
Next i
INICIALES = Aux
End Function

Probé la función con estos valores:
MICROSOFT EXCEL
LA CASA DE JUAN
1 Supervisor (Poza Rica, Veracruz Lunes a Sabado)

al tercer caso hace lo solicitado, los otros al parecer le quita los espacios.

hola, chicos !

Adrian escribió:Probé la función con estos valores:
MICROSOFT EXCEL
LA CASA DE JUAN
1 Supervisor (Poza Rica, Veracruz Lunes a Sabado)
al tercer caso hace lo solicitado, los otros al parecer le quita los espacios.

las expresiones regulares son muy versatiles, mas alla de solo quitar espacios, pero en tanto regresa OP, solo comentar que mi deduccion fue que necesitaba extraer solo digitos o letras MAYUSCULAS del texto (?), por esto es que la funcion propuesta "pareciera" que solo elimina los espacios (claro, cuando todas las letras son mayusculas ?)

otra (posible) alternativa en la siguiente funcion (mismo uso que la anterior, aunque la muestra sigue corta):

Código: Seleccionar todo

Function Iniciales(Texto As String) As String
  With CreateObject("vbscript.regexp")
    .Global = True
    .Pattern = "[^\dA-Z]"
    Iniciales = .Replace(Application.Proper(Texto), "")
  End With
End Function

saludos,
hector.

p.d. sigo prefiriendo evitar bucles letra-por-letra o celda-por-celda (cuando es posible)

Estuve viendo ese tema, y tienes razón, Caho R me paso esta página, que e ayuda pero no mucho porque no sé inglés:
http://msdn.microsoft.com/en-us/library/f97kw5ka.aspx

[^\dA-Z] deduzco que es ^ coincidencia de entrada \d incluye números 0 - 9 A - Z letras

hola, Adrian !

... esta página, que e ayuda pero no mucho porque no sé inglés:
http://msdn.microsoft.com/en-us/library/f97kw5ka.aspx
[^\dA-Z] deduzco que es ^ coincidencia de entrada \d incluye números 0 - 9 A - Z letras

solo es cuestion de hacer una busqueda "en español" y (cuando menos las explicaciones) seran mas entendibles, p.e.
http://es.wikipedia.org/wiki/Expresi%C3%B3n_regular

saludos,
hector.

Muchas Gracias Héctor.