Se puede crear una macro que elimine puntos, coma, numeral y otros caracteres?
La presente es para saber si se puede crear una macro que sea capaz de eliminar puntos, coma, ¿numeral u otros caracteres distintos a letras y números?
Ver ejemplo:
2 Respuestas
Para borrar todos los caracteres no Alfanuméricos (pero manteniendo el espacio), puedes usar esta función:
Function LimpiarCelda(Rng As Range) Dim strTemp As String Dim i As Long For i = 1 To Len(Rng) Select Case Asc(Mid(Rng, i, 1)) Case 32, 48 To 57, 65 To 90, 97 To 122 strTemp = strTemp & Mid(Rng, i, 1) End Select Next LimpiarCelda = strTemp End Function
Luego puedes usar la función en una celda como cuando usas una formula, así:
=LimpiarCelda(A1)
Te dejo un video demo: video demo
Si también quieres eliminar el espacio, quita el carácter 32 de la función
Andy como puedes ver, después de colocar el código y poner la función dentro de la celda, me sale error.
Porque has puesto el código en el modulo de la hoja, debe ir en un modulo estándar:
[Hola. Prueba este código.
Sub reemplazar_puntos()
Range("a1").CurrentRegion.Replace what:=".", replacement:=""
End SubAmplia el rango si quieres, pero para que funcione no puede haber filas vacías
Solo está para puntos, pero lo puedes ampliar a comas.
Salu2 Carlos Arrocha