** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - formula quitar acentos en excel
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoformula quitar acentos en excel

 Responder Responder
Autor
Mensaje
fcobrau Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 11/Febrero/2011
Localización: Mexico
Estado: Sin conexión
Puntos: 0
Enlace directo a este mensaje Tema: formula quitar acentos en excel
    Enviado: 11/Febrero/2011 a las 20:32
hola existe una formula o funcion para quitar los acentos en excel 
Arriba
Emilio Ver desplegable
Administrador
Administrador

Santander

Unido: 08/Agosto/2004
Localización: España
Estado: Sin conexión
Puntos: 18830
Enlace directo a este mensaje Enviado: 11/Febrero/2011 a las 22:06
Hola, bienvenido al foro!
 
hasta donde yo sé no la hay, tendrás que hacerlo tu, algo como esto
 
=SUSTITUIR(SUSTITUIR(SUSTITUIR(SUSTITUIR(SUSTITUIR(A1;"á";"a");"é";"e");"í";"i");"ó";"o");"ú";"u")
Saludos a todos desde Huelva

http://www.mvp-access.es/emilio/
Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: Alcalá Meco
Estado: en línea
Puntos: 3618
Enlace directo a este mensaje Enviado: 11/Febrero/2011 a las 22:23
Si quieres una función en VBA, te pongo una que funciona.

Debes ponerla en un módulo



Function fSinTilde(a As Range) As String
Const strTilde = "áéíóúüàèìòùâêîôûÁÉÍÓÚÜÀÈÌÒÙÂÊÎÔÛ"
Const strSinTilde = "aeiouuaeiouaeiouAEIOUUAEIOUAEIOU"
Dim i As Integer
Dim strCadena As String
strCadena = a.Value

For i = 1 To Len(strTilde)
Do While InStr(strCadena, Mid$(strTilde, i, 1)) > 0
&&&Mid$(strCadena, InStr(strCadena, Mid$(strTilde, i, 1)), 1) = Mid$(strSinTilde, i, 1)
Loop
Next i
fSinTilde = strCadena
End Function




Luis

Editado por lbauluz - 11/Febrero/2011 a las 22:24
El Búho es un pajarraco
Arriba
fcobrau Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 11/Febrero/2011
Localización: Mexico
Estado: Sin conexión
Puntos: 0
Enlace directo a este mensaje Enviado: 11/Febrero/2011 a las 23:28
Esta respuesta me parece excelente solo que cuando la aplico me aparece error de sintaxis y en letras rojas esta linea :

&&&Mid$(strCadena, InStr(strCadena, Mid$(strTilde, i, 1)), 1) = Mid$(strSinTilde, i, 1)


No se como arreglarla me puedes explicar por favor.



Editado por fcobrau - 12/Febrero/2011 a las 00:12
Arriba
oirausu Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 25/Diciembre/2005
Localización: España
Estado: Sin conexión
Puntos: 4217
Enlace directo a este mensaje Enviado: 12/Febrero/2011 a las 00:43
Prueba quitando los tres simbolos & (parece que sobran)
Arriba
MexMan70 Ver desplegable
Colaborador
Colaborador


Unido: 17/Julio/2007
Localización: DarkSide
Estado: Sin conexión
Puntos: 9235
Enlace directo a este mensaje Enviado: 12/Febrero/2011 a las 03:16
Si en las lineas consecuentes te aparecen mas de lo mismo, borralos.

Para evitar esos caracteres copia y pega lo que te recomendo ibauluz en una hoja de word y luego copia y pegalo en tu modulo.
OneDrive: http://sdrv.ms/Vk6eJd
Arriba
fcobrau Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 11/Febrero/2011
Localización: Mexico
Estado: Sin conexión
Puntos: 0
Enlace directo a este mensaje Enviado: 13/Febrero/2011 a las 21:37
Editado (AnSanVal) para quitar una cita innecesaria.
 
 
 
" lbauluz "
 
Muchas gracias
 
En este foro el conocimiento, su divulgacion y aplicación es libre y gratuito.
 
Asi sea.


Editado por AnSanVal - 14/Febrero/2011 a las 01:27
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable