ELIMINAR TILDES EN EXCEL CON VBA

La primera entrada de esta web fue Eliminar acentos en Excel el 28 de Enero de 2013 (ya han pasado unos años). Si la leéis veréis que se proponían dos alternativas, una era mediante fórmula en hoja de cálculo y otra mediante una macro.

Hoy he estado «trasteando» un poco y he querido realizar la misma tarea pero con diferente programación. Creo que ilustrar las diferentes alternativas para llegar a un mismo objetivo enriquecen mucho el aprendizaje y el conocimiento.

Pues comencemos 🙂

Será un post sencillo, la macro que vamos a utilizar es la siguiente:

Sub ELIMINAR_TILDES()
'Declaramos variables
Dim Item As Range
'Tomamos el rango seleccionado como el área donde aplicaremos la macro
Set Area = Application.Intersect(Selection, ActiveSheet.UsedRange)
'Controlamos error si seleccionamos un rango sin datos
On Error GoTo Control
'Mediante un bucle For Each inciamos el proceso
For Each Item In Area
If Application.IsText(Item) Then
'Reemplazamos acentos en vocales minúsculas
Item = Replace(Item, "á", "a")
Item = Replace(Item, "é", "e")
Item = Replace(Item, "í", "i")
Item = Replace(Item, "ó", "o")
Item = Replace(Item, "ú", "u")
'Reemplazamos acentos en vocales mayúsculas
Item = Replace(Item, "Á", "A")
Item = Replace(Item, "É", "E")
Item = Replace(Item, "Í", "I")
Item = Replace(Item, "Ó", "O")
Item = Replace(Item, "Ú", "U")
End If
Next Item
'Si se produce error 424 mostramos mensaje
Control: If Err.Number = "424" Then
MsgBox ("EL RANGO SELECCIONADO NO CONTIENE DATOS"), vbExclamation, "ELIMINAR TILDES"
End If
End Sub

Como podéis ver, mediante un bucle for each por cada Item en el Area seleccionada, si en el Item está alguna vocal con tilde, lo eliminaremos. He aprovechado para incluir un contro de error, dado que si seleccionamos en un área sin datos, salta el error «424» en tiempo de ejcución. Objeto requerido. Así evitamos ver el error e indicamos que es necesario seleccionar un rango con datos.

Pues hasta aquí el post de hoy. Espero que os sea de utilidad 🙂

Descarga el archivo de ejemplo pulsando en: ELIMINAR TILDES EN EXCEL CON EXCEL