por Hola a todos!.
¿Qué tal estáis?, espero que bien.
Hoy voy a publicar una función muy sencilla que nos va a ayudar a eliminar las tildes de las palabras que hayamos seleccionado.
Cuando cruzamos datos, en muchas ocasiones tenemos problemas a la hora de determinar coincidencias cuando en una palabra tenemos una tilde y en otra no.
Para solucionar este problema acabo de crear una función, se llamará SIN_TILDES.
Este es el código que utilizaremos:
Function SIN_TILDE(ByVal Rango As String)
'Reemplazamos tildes en vocales minúsculas
Rango = Replace(Rango, "á", "a")
Rango = Replace(Rango, "é", "e")
Rango = Replace(Rango, "í", "i")
Rango = Replace(Rango, "ó", "o")
Rango = Replace(Rango, "ú", "u")
'Reemplazamos tildes en vocales mayúsculas
Rango = Replace(Rango, "Á", "A")
Rango = Replace(Rango, "É", "E")
Rango = Replace(Rango, "Í", "I")
Rango = Replace(Rango, "Ó", "O")
Rango = Replace(Rango, "Ú", "U")
SIN_TILDE = Rango
End Function
Como podéis observar, es muy sencilla y básicamente programamos la función Replace() para poder eliminar las tildes en las palabras.
Por ejemplo:
No hay mucho más que explicar … obviamente, la podéis combinar con buscarv y otras funciones.
Y esto es todo, espero que os sea de utilidad.
Descarga el archivo de ejemplo pulsando en: FUNCIÓN PARA ELIMINAR TILDES EN CELDA SELECCIONADA
¿Te ha resultado de interés?, puedes apoyar a Excel Signum con una pequeña donación.
¡¡Muchas gracias!!
Mediante la suscripción al blog, la realización comentarios o el uso del formulario de contacto estás dando tu consentimiento expreso al tratamiento de los datos personales proporcionados según lo dispuesto en la ley vigente (LOPD). Tienes más información al respecto en esta página del blog: Política de Privacidad y Cookies
