extraer unicamente letras de una celda en excel macro

[gerardo_goh]

hola buenas noches, soy novato en esto pero necesito de su apoyo,quiero extraer unicamente las letras de una celda pero por medio de una macro, ejemplo contenido de la celda A1:
"hola %$a todos de este foro", el resultado en la celda B1:holaatodosdeesteforo, muchas gracias por su apoyo,saludos!!!

[erbuson]

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:

Public Function SoloLetras(Cadena As String) As String
  Dim Validos As String, Posicion As Integer, Caracter As String
  Validos = "abcdefghijklmnopqrstuvwxyz"
  Validos = Validos & "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  Validos = Validos & "áéíóúàèìòù" ' ...
  For Posicion = 1 To Len(Cadena)
    Caracter = Mid$(Cadena, Posicion, 1)
    If InStr(Validos, Caracter) > 0 Then SoloLetras = SoloLetras & Caracter
  Next
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

[gerardo_goh]

Iniciado por erbuson

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:

Public Function SoloLetras(Cadena As String) As String
  Dim Validos As String, Posicion As Integer, Caracter As String
  Validos = "abcdefghijklmnopqrstuvwxyz"
  Validos = Validos & "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  Validos = Validos & "áéíóúàèìòù" ' ...
  For Posicion = 1 To Len(Cadena)
    Caracter = Mid$(Cadena, Posicion, 1)
    If InStr(Validos, Caracter) > 0 Then SoloLetras = SoloLetras & Caracter
  Next
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

[gerardo_goh]

Iniciado por erbuson

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:

Public Function SoloLetras(Cadena As String) As String
  Dim Validos As String, Posicion As Integer, Caracter As String
  Validos = "abcdefghijklmnopqrstuvwxyz"
  Validos = Validos & "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  Validos = Validos & "áéíóúàèìòù" ' ...
  For Posicion = 1 To Len(Cadena)
    Caracter = Mid$(Cadena, Posicion, 1)
    If InStr(Validos, Caracter) > 0 Then SoloLetras = SoloLetras & Caracter
  Next
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

Muchisimas gracias por tu ayuda me funciono de maravilla, ahora entiendo mas del ciclo form Saludos!!!

[erbuson]

Un saludo y hasta otra ocasión.