error acceso a algunas macros de la libreria de macros
-
72 ¿Te parecen útiles los tips de las funciones? (ver tema completo)
-
1. ¿Te parecen útiles los tips de las funciones?
-
Sí
-
No
-
Ni me he fijado en ellos
-
- Please sign in or register to vote in this poll.
- View topic
-
-
Ayúdanos a mejorar la comunidad
-
Mantenimiento de la comunidadDonaciones recibidas este mes: 0.00 EUR
Objetivo: 130.00 EUR
-
-
Files
-
-
Download Statistics
-
Files170
-
Comments89
-
Reviews26
-
-
-
Posts
-
Utilizando la función WorksheetFunction.Clean se eliminan la mayoría de caracteres no imprimibles. Eliminar caracteres no imprimibles -
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 -
-
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
-
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
-
-
Recently Browsing
- No registered users viewing this page.
Recommended Posts
Archived
This topic is now archived and is closed to further replies.