MACRO PARA ELIMINAR TILDES

 MACRO PARA ELIMINAR TILDES 

Ejemplo : Eliminar las tildes que se encuentran en  el rango de celdas A3:A16.

Procedimiento :

PASO 01:Clic en la pestaña programador, luego en Visual Basic.

PASO 02: Clic en la pestaña insertar, clic en módulo.

PASO 03: Copiar el siguiente código en el módulo insertado.

Sub ELIMINAR_TILDES()

    Selection.Replace what:="á", replacement:="a", lookat:=xlPart, _

    searchorder:=xlByRows, MatchCase:=True

    Selection.Replace what:="é", replacement:="e", lookat:=xlPart, _

    searchorder:=xlByRows, MatchCase:=True

    Selection.Replace what:="í", replacement:="i", lookat:=xlPart, _

    searchorder:=xlByRows, MatchCase:=True

    Selection.Replace what:="ó", replacement:="o", lookat:=xlPart, _

    searchorder:=xlByRows, MatchCase:=True

    Selection.Replace what:="ú", replacement:="u", lookat:=xlPart, _

    searchorder:=xlByRows, MatchCase:=True

    Selection.Replace what:="Á", replacement:="A", lookat:=xlPart, _

    searchorder:=xlByRows, MatchCase:=True

    Selection.Replace what:="É", replacement:="E", lookat:=xlPart, _

    searchorder:=xlByRows, MatchCase:=True

    Selection.Replace what:="Í", replacement:="I", lookat:=xlPart, _

    searchorder:=xlByRows, MatchCase:=True

    Selection.Replace what:="Ó", replacement:="O", lookat:=xlPart, _

    searchorder:=xlByRows, MatchCase:=True

    Selection.Replace what:="Ú", replacement:="U", lookat:=xlPart, _

    searchorder:=xlByRows, MatchCase:=True

End Sub

PASO 04: Vamos insertar un botón.Para eso damos clic en la pestaña programador, luego clic en insertar y clic en botón.

PASO 05: Al botón insertado vamos editar texto y colocar ELIMINAR TILDES.

PASO 06: Al botón insertado vamos asignar la macro creada de nombre ELIMINAR_TILDES() 

PASO 07: Seleccionamos el rango de celdas A3:A16 que contiene las tildes que deseamos eliminar y observamos que se han eliminado todas las tildes.