Macro Para reemplazar Caracteres ASCI

Tengo una lista de nombres (miles) que salieron de una base de datos que reemplazó los caracteres con acento por caracteres del tipo: ú

O sea, para alguien que se llamaba Raúl, me aparece Raúl.

Encontré una tabla de equivalencias y lo que quiero hacer por Macro es que la macro recorra la columna de los nombre y reemplace los caracteres de tipo ú por un carácter que yo le indique ( en este caso sería una "u" sin el acento).

En resumen, tengo en una solapa una columna con nombres y en otra solapa una tabla de equivalencias tipo:

ASCI Reemplazar

è               e

é              e

ê                e

ë               e

à                 i

î              i 

Necesito que la macro barra la columna de nombres y vaya reemplazando una columna por la otra

1 Respuesta

Respuesta
1

Te anexo la macro, cambia en la macro "hoja1" y "hoja2" por los nombres de tus hojas.

También cambia "A" y "B" por las columnas donde tienes el ascii y el reemplazar.

Sub ReemplazarCaracteres()
'Por.Dante Amor
    Set h1 = Sheets("Hoja1")    'Hoja de nombres
    Set h2 = Sheets("Hoja2")    'Hoja de equivalencias
    c1 = "A"                    'Columna Ascii
    c2 = "B"                    'Columna reemplazar
    '
    For i = 2 To h2.Range(c1 & Rows.Count).End(xlUp).Row
        ori = h2.Cells(i, c1)
        des = h2.Cells(i, c2)
        h1.Cells.Replace What:=ori, Replacement:=des, LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, _
            SearchFormat:=False, ReplaceFormat:=False
    Next
End Sub

Saludos.Dante Amor

Recuerda valorar la respuesta.

¡Gracias!  !! Excelente respuesta. Funcionó perfecto. Te debo horas de mi vida!! jaj. Abz

Dante, estoy teniendo un error Raro, se me llena todo de i el archivo cuando ejecuto la macro

¿Te lo puedo enviar por email?

Revisa en tu hoja de equivalencias el que corresponde a la i

Tal vez tienes un carácter de control que considera cualquier letra y entonces está reemplazando todas las letras por la letra i

Borra ese registro de tu hoja de equivalencias, deberás entonces cambiar manualmente ese carácter.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Exportar tablas de Excel a formato TXT con VBA

Quisiera que me ayudaran con lo siguiente, tengo una serie de tablas llenas de información de clientes, y debo generar una serie de reportes los cuales debo exportar por txt, se hacerlo por el panel, pero necesito exportarla a través de código VBA,...
1 respuesta

Macro:filtrar, copiar, pegar y concatenar.

En la hoja1 tengo este tipo de tabla: Los valores de guía son valores únicos, y los valores de plaza se repiten. El resultado que quiero optener es este: Hoja 2 Ya que manualmente filtro, copio lo filtrado, lo pego en la hoja2 y concateno para que...
1 respuesta

Macro para crear hojas con un nombre y copiar datos en ellas.

Necesito hacer una macro que copie datos e inserte hojas nuevas, apartir de la "Hoja1". En la "Hoja1" tengo una tabla de 14 columnas y 100 filas, La copia se debe de realizar según datos de la columna "A". Al ejecutar la macro, se buscan datos en la...
1 respuesta

Ordenar con un orden repetido, no de menor a mayor, en Excel

Tenemos una tabla, con un identificador delante generado a partir de unas operaciones matemáticas, que comprende entre un rango de 1 al 9. Pongamos que el orden es este: 1,2,3,1,2,3,1,2,3,1,2,3,4,5,6,4,5,6,4,5,6,4,5,6,7,8,9. Ahora estoy intentando...
2 respuestas

Quisiera modificar una macro de Dante Amor, para mantener el ancho de columnas en las hojas nuevas.

Según la siguiente macro. ¿Es posible que las hojas nuevas que se van generando, mantengan el ancho de columnas y alto de filas de la primera hoja? También que lo pegado en las hojas nuevas se establezca como área de impresión. Sub CrearyCopiar()...
1 respuesta

¿ Podria conseguir una macro de Excel con doble condición?

Necesitaría una macro que borrara filas si cumplen una doble condición: COLUMNA A: Fecha COLUMNA B: Proveedor COLUMNA C: Nº Expediente 1ª Condición: 2 o más valores de la columna C son iguales 2ª Condición: Si cumple la 1ª condición, 2 o mas valores...
1 respuesta

Copiar datos por macros de un libro a otro

Necesito realizar una copia de datos de un libro a otro mediante macros. Mi libro de destino es un libro que almacena la copia de la base de datos de otro libro, y me genera un informe. Mi libro de origen, es variable, quiero decir que tiene nombre...
2 respuestas

Recuperar valores de la hoja 1 en la hoja 2

Para el Sr. Dante Amor: Tengo una hoja donde recupero datos del SQL con este formato: Aclaraciones: Nunca existirá una fila igual a la otraPuede existir el mismo valor en las celdas de la columna Cta, pero variando los valores de las columnas Emp,...
1 respuesta

Búsqueda en Combobox activex creado en Excel introduciendo cualquier parte de la palabra

Necesito lo siguiente Ejemplo: Si tenemos estos datos; Auto CaravanaTorreCarroBote Si en el Combobox escribo “car” que me permita seleccionar lo siguiente:
2 respuestas

No se de macro en excel y quiero una que copie en hoja 2 parte de fila, si en columna B de hoja 1 "si"

Ante todo no se de macros. Intento hacer una que me realice en la hoja 2 un resumen de datos siempre que cumpla una condición. Que en hoja 1, columna ($b2) aparece "si", pues que en hoja 2 copie las celdas "A2", "C2", "E2"... Necesitaría que alguien...
1 respuesta