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.

ELIMINAR TILDES EN EXCEL EN VBA

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

 

Anuncios

2 pensamientos en “ELIMINAR TILDES EN EXCEL CON VBA

  1. SEGU!!!!!
    Como estas!!!!!!

    Amigo!!! Este post lo habías publicado hace mucho tiempo y te cuento que hoy en mis labores diarias me encontré con esta bendita tarea que puede ser demasiado complicada si hablamos de quitarle las tildes o remplazar la Ñ por la N a cerca de 600.000 registros con nombres en una hoja de excel..

    Que buen Codigo Segu!!!! no sabes el trabajo que me he ahorrado con esta maravillosa macro…

    mil y mil gracias mi hermanoooo…..

    Un abrazo desde Medellin Colombia!

    Me gusta

¿Te ha gustado?. Deja un comentario

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s