Un visitante del blog, me ha escrito en un comentario que tiene una lista en Excel de números que contienen una letra, pero a él solo le interesa el número, y me comenta si existe mediante una formula, quitar esta letra automáticamente y dejar únicamente el número, en caso contrario debe de celda por celda eliminar manualmente la letra con el consiguiente coste en tiempo que esto supone. Voy a aprovechar este comentario no solo para explicárselo a él sino a todos vosotros por si en alguna ocasión esto os puede servir de ayuda.
Mediante este Truco os voy a explicar como quitar letras, espacios, símbolos de una celda y dejar exclusivamente el numero.
NOTA. Este truco requiere de programación en Visual Basic, no os preocupéis seguir con atención cada uno de los pasos, por que el código del programa os lo voy a dar ya escrito, vosotros solo tenéis que copiar y pegar.
Comenzamos, la explicación del truco con una hoja de Excel en la que nos encontramos con diez celdas (quien dice 10 dice 3000 celdas) que contienen datos combinados de letras, números, caracteres, espacios, etc.
1º Si no tenemos activado el cuadro de edición de Visual Basic, vamos activarlo, (Saber si lo tenemos activado o no lo observamos si en la barra de menús tenemos el menú "Programador), para ello:
a) Le damos a la flecha que aparece en la barra de herramientas de acceso rápido de Excel, y le damos a la opción Mas Comandos.
b) Le damos a la opción "Mas Frecuentes", y activamos la casilla de verificación de la opción "Mostrar Ficha programador en la cinta de opciones" y le damos a "Aceptar".
Ahora vemos que nuestra hoja de calculo dentro de la barra de menús nos aparece el menú "Programador"
2º Ahora que tenemos el menú Programador, pinchamos sobre él, y de los botones que nos aparecen, pinchamos sobre Visual Basic.
3º Nos aparece una nueva ventana para realizar la programación en Visual Basic, para acceder a la ventana de programación, pinchamos sobre el botón "Agregar Modulo", y elegimos la opción "Modulo".
4º En el espacio en blanco que nos aparece copiamos y pegamos el código que os escribo a continuación:
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
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
Este es un código programado en Visual Basic para eliminar letras, símbolos y espacios de una celda y dejar solo los números.
Una vez pegado este código en nuestra ventana de Visual Basic nos aparecerá así:
A continuación vamos a Guardar nuestro programa, para ello le damos al botón Guardar.
En la siguiente ventana que nos aparece en la opción Guardar como tipo elegimos la opción "Libro de Excel Habilitado para Macros", le ponemos un nombre y le damos a Guardar.
Por último sobre la ventana de Visual Basic la cerramos pulsando sobre la X roja de la ventana superior derecha.
5º Una vez que tenemos el programa diseñado y guardado en nuestro hoja de calculo, vamos a proceder a convertir las celdas con letras, símbolos y espacios en celdas con solo los números. Para ellos nos situamos en la celda donde queremos que nos aparezca el resultado.
6º En la barra de formulas ponemos el signo igual = y a continuación escribimos la siguiente formula: VALOR(Solo_Numeros(A1))
Tener en cuenta que donde pone A1, es donde esta la celda que queremos convertir, si estuviera en otra celda, sustituimos A1 por la celda en cuestión, en nuestro ejemplo esta en la celda A1.
8º A continuación pinchamos sobre esta celda, y pinchamos sobre el cuadradito que nos aparece en la esquina inferior derecha. Y sin solar el botón del ratón arrastramos hasta el final de las celdas, convirtiendo cada una de ellas en números exclusivamente.
Espero que este truco especialmente dedicado a la persona que me envió el comentario solicitándome, si podía resolverle el problema, os sirva a todos en vuestro trabajo.
Chao!
