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:

Respuesta
1

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:

1 respuesta más de otro experto

Respuesta
1

[Hola. Prueba este código.

Sub reemplazar_puntos()
Range("a1").CurrentRegion.Replace what:=".", replacement:=""
End Sub

Amplia 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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas