Como quitar letras y dejar numeros

Rafa,

1) Ve al editor VBA, crea un nuevo modulo y copia alli la funcion de abajo:

Function SOLO_NUMEROS(In_Str)
Application.Volatile
Dim Temp_Str As String, Letra As String
Temp_Str = ""
On Error Resume Next
For c = 0 To Len(In_Str)
Letra = Mid(In_Str, c, 1)
If InStr("0123456789", Letra) > 0 Then
Temp_Str = Temp_Str & Letra
End If
Next
SOLO_NUMEROS = Temp_Str
End Function

2) Supongamos que en la celda A1 tienes "yeuiopp223ffr5679p,ff rr". En la
celda B1 pones lo siguiente:

=VALOR(Solo_Numeros(A1))

y te devolvera 2235679 como numero.

Saludos,
KL

"Rafa" wrote in message
news:

Como puedo quitar de las celdas de una columna las letras de una celda y
espacios y signos dejando solo los numeros y viceversa, yo hasta ahora lo
hacia con remplazr letra a letra jejeje :O)

Se me olvidaba decir q obviamente para invertir el efecto de la funcion
tienes q cambiar la siguiente linea del codigo:
If InStr("0123456789", Letra) > 0 Then
para q lea asi:
If InStr("0123456789", Letra) = 0 Then

KL



"KL" wrote in message
news:

Rafa,

1) Ve al editor VBA, crea un nuevo modulo y copia alli la funcion de
abajo:

Function SOLO_NUMEROS(In_Str)
Application.Volatile
Dim Temp_Str As String, Letra As String
Temp_Str = ""
On Error Resume Next
For c = 0 To Len(In_Str)
Letra = Mid(In_Str, c, 1)
If InStr("0123456789", Letra) > 0 Then
Temp_Str = Temp_Str & Letra
End If
Next
SOLO_NUMEROS = Temp_Str
End Function

2) Supongamos que en la celda A1 tienes "yeuiopp223ffr5679p,ff rr". En la
celda B1 pones lo siguiente:

=VALOR(Solo_Numeros(A1))

y te devolvera 2235679 como numero.

Saludos,
KL

"Rafa" wrote in message
news:

Como puedo quitar de las celdas de una columna las letras de una celda y
espacios y signos dejando solo los numeros y viceversa, yo hasta ahora lo
hacia con remplazr letra a letra jejeje :O)