Ver Mensaje Individual
  #2 (permalink)  
Antiguo 21/01/2011, 10:17
Avatar de erbuson
erbuson
 
Fecha de Ingreso: noviembre-2009
Mensajes: 701
Antigüedad: 14 años, 3 meses
Puntos: 53
Respuesta: extraer unicamente letras de una celda en excel macro

Hola, en primer lugar debes tener muy claro que caracteres deseas filtrar, te dejo una posible opción aunque tal vez no sea la más idónea, te aseguro que funciona:


Código vb:
Ver original
  1. Public Function SoloLetras(Cadena As String) As String
  2.   Dim Validos As String, Posicion As Integer, Caracter As String
  3.   Validos = "abcdefghijklmnopqrstuvwxyz"
  4.   Validos = Validos & "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  5.   Validos = Validos & "áéíóúàèìòù" ' ...
  6.  For Posicion = 1 To Len(Cadena)
  7.     Caracter = Mid$(Cadena, Posicion, 1)
  8.     If InStr(Validos, Caracter) > 0 Then SoloLetras = SoloLetras & Caracter
  9.   Next
  10. End Function

Te comento lo de la más idonea porque probablemente si coges la tabla Ascii y comparas el valor numérico de la tecla, tal vez sea mas rápido.

Saludos
__________________
Agradecer a quien te enseñó, es enseñar lo que de él aprendiste.
Recuerda: Decir gracias, poco cuesta y mucho vale ...