Eliminar caracteres "extraños" de una hoja.

[pinoji]

Buenos días colegas. Espero se encuentren con buena salud.

Tengo un par de preguntas a ustedes para ver en qué me pueden ayudar.

Yo tengo en mi PC del trabajo instalado Office 2016, pero no tengo la opción de convertir o importar archivos PDF, mi pregunta, existe algunamanera que pueda tener en esta versión esa opción.

La otra; yo obtuve un reporte de una aplicación de terceros que necesito tener, pero tiene al final de cada celda un caracter que necesito quitar, para despues convertir los numeros que están en  formatos de texto a numero. Mi pregunta, existe alguna macro que me elimine este o cualquier otro caracter.

Gracias a todos de antemano.

Pino.

[JSDJSD]

Puedes subir el archivo?

[pinoji]

Buenas tardes profesor. Que alegría saber de usted.

Disculpa a todos. Lo olvidé.

Ahí va...

Vacaciones.xls

[Antoni]

En todas las celdas hay un carácter ASCII(001) al final, esta macro los elimina:

Sub EliminarCaracter()
Application.ScreenUpdating = False
For Each celda In ActiveSheet.UsedRange
   celda.Value = Replace(celda.Value, Chr(1), "")
Next
End Sub

 

[JSDJSD]

Hola Antoni, te adelantaste, bueno dejo lo mismo de otra manera

Sub EliminarCaracteres(): Application.ScreenUpdating = False
    Dim rango As Range
    Dim datos As Variant
    Dim i As Long, j As Long

    With Hoja2 '>>>>> pon la hoja donde quieras trabajar
        Set rango = .Range("A4:M" & .Cells(.Rows.Count, "A").End(xlUp).Row)
        datos = rango.Value
        For i = 1 To UBound(datos, 1)
            For j = 1 To UBound(datos, 2)
                datos(i, j) = Application.WorksheetFunction.Clean _
                (datos(i, j))
            Next j
        Next i
        rango.Value = datos
    End With
End Sub

 

[JSDJSD]

[pinoji]

Buenas tardes reiteradas.

Que bien que se sumó el profesor Antoni a la solución. Qué provilegio, JSD y Antoni, no podría estar en mejores manos.

Gracias a ambos por su respuestas, pero tengo una duda más. En el caso de Antoni manifiesta que el caracter es el 001 del ASCII, pero pregunto, si fuera otro caracter este códiogo me serviría también o hay que modificarle algo?

Mis respetos a todos los miembros del Foro y en especial a Antoni y JSD.

Agradecido.

Pino

[Antoni]

Utilizando la función  WorksheetFunction.Clean se eliminan la mayoría de caracteres no imprimibles.

Eliminar caracteres no imprimibles

[pinoji]

Buenas noches profesor Antoni y demás miembros del foro.

Tanto con la solución suya como la del profesor HDD resuelvo el problema y está es una tercera variante que nunca viene mal, porque todo lo que se aprende no pesa ni estorba

Gracias por el enlace, en cuanto tenga el chance lo reviso.

Necesito una última petición a ustedes. He tratado de convertir los números en texto a números y no he podido lograrlo. Lo hice con la función Sustituir por si hubiera algunos espacios de más, con el Texto en columna, lo multiplique x 1, le sumé +0, lo trate con un ciclo For Each, creando una variable Celda de tipo Range y un condicional If/End if y nada. Por favor, si fuera tan amables de sugerirme algo que no haya probado.

Agradecido como siempre y mis respetos a ustedes.

Pino