Sustituir caracteres en bases de datos grandes

TREBUR · el 19 de febrero

Hola, vengo con un nuevo tema, esperando nuevamente me puedan ayudar...

Adjunto un archivo con pocos registros que sirva como ejemplo, pero acoto que trabajo con datas más grandes.

La idea es sustituir a través de macro "caracteres especiales" por sus respectivos equivalentes u otra solución que me puedan aconsejar hacer en esos casos. Cabe destacar que me estoy refiriendo especificamente a los caracteres reseñados en el archivo anexo, pero también debe abarcar solución a muchos otros caracteres especiales existentes.

Dichas datas son importadas posteriormente a manejadores de bd que complican el tratamiento de errores respecto a los mencionados caracteres.

Libro1.rar

Enigma25 · el 12 de marzo

Hola @TREBUR

Aunque Excel tiene su propio reemplazador el cual lo ubicas en la pestaña Inicio-Buscar-Reemplazar, te dejo lo que pude hacer con un procedimiento...

Dim Lin As Long
Lin = 1
    Do While Hoja1.Cells(Lin, 1) &lt;&gt; ""
        Hoja1.Cells(Lin, 1) = Replace(Hoja1.Cells(Lin, 1), TextBox1, TextBox2)
    Lin = Lin + 1
Loop

De todos modos te adjunto el archivo para tu evaluación.

P.D. Ya reemplacé algunos signos.

Reemplazar.zip

Visor · el 13 de marzo

Genial Enigma, Según veo en esta linea expuesta, basta con colocar directamente las letras a buscar y las letras con la que se reemplazara se corregirá directamente. Solo que logre probar con dos letras no con las del resto. Sin embargo lo expongo procurando acotar con la solución basado en tu código, sobre todo si siempre van a ser los mismos símbolos literales



        Hoja1.Cells(Lin, 1) = Replace(Hoja1.Cells(Lin, 1), "Ã", "Á")

        Hoja1.Cells(Lin, 1) = Replace(Hoja1.Cells(Lin, 1), "A‰", "É")

 [/CODE]

Disculpa por meter las narices