Jump to content

Sanet95

Members
  • Posts

    12
  • Joined

  • Last visited

  • Country

    Mexico

Sanet95's Achievements

  1. Duda, ya copie el código pero solo me quita el primer caracter especial, si la celda trae mas de 2 tengo que correr la macro n veces hasta que ya no haya. ¿hay manera de que la misma macro quite todos?
  2. Hola, buen día. Tengo la siguiente macro que me ayuda a quitar caracteres especiales y/o acentos. Pero actualmente solo busca en un rango o en celda especifica. Como necesito que lo haga en 70 celdas especifcas (sin seguir algun rango o logica) lo que hago es copair y pegar lo mismo solo cambiando la celda. pero al momento de correr no me deja porque el proyectoes muy largo. ¿Alguno de uds podría por favor sugerirme alguna otra manera? Quedo pendiente y nuevamente muchas gracias Dejo el código: Sub Quita_acentos() '(ByVal SaveAsUI As Boolean, Cancel As Boolean) ' Auto run when user hits save or closes Excel. Spanish special characters are ' replaced in the Description column (P). Works for capital letters too. Range("Titulo").Select '*************************************************************************Quita Acentos******************************************************************************************+ Selection.Replace What:="á", Replacement:="a", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="ä", Replacement:="a", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="é", Replacement:="e", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="ë", Replacement:="e", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="í", Replacement:="i", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="ï", Replacement:="i", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="ó", Replacement:="o", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="ö", Replacement:="o", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="ú", Replacement:="u", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="ü", Replacement:="u", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="ñ", Replacement:="n", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False '*************************************************************************Quita Carácteres especiales*********************************************************************** Selection.Replace What:=",", Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="@", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="&", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="=", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="\", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="/", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:=":", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="-", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="%", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="+", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="=", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="^", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="$", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="!", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:=",", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="¨", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="|", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:=">", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="<", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="®", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="#", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="(", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="`", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="_", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="©", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="~", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:=")", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:=";", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Cells(1, 1).Select End Sub
  3. Muchas gracias DiegoLG! justo lo que buscaba
  4. Hola, gracias por el apoyo. En el TXT al abrirlo se ve así, por ahí de la fila 12 viene un caracter(). Si lo abro con excel ese caracter es como un espacio, lo que quiero es poder borrarlo para que quede como el resto de los campos
  5. Hola , buen día a todos. Por favor me podrían apoyar con la siguiente duda. Tengo un txt que a veces el primer campo empieza con número y a veces hay un renglón completo vacío en la celda (como si tuviera un enter). La función TRIM/ESPACIOS no me está sirviendo para poder quitarlo y dejar solo el número. (anexo file, la celda que quiero dejar como el resto es la que tiene color). Cualquier ayuda es agradecida Saludosprueba.txt
  6. Muchas gracias, justo así es como lo ocupo. Pero al momento de yo usarlo (excel 2016) me deja igual que al inicio... En la primer columna varios datos
  7. Hola a todos, espero estén bien. Una favor, busco como poder abrir un csv y separar a columnas por el delimitador ";" el unico problema es que de origen no viene todo el texto en una sola columna, entonces al momento de pasarlo a columnas no se pasa todo. Adjunto archivo para referencia. Como siempre, muchas gracias y cualquier aportación es bienvenida, Bonito día a todos archivocsv.csv
  8. Pesa mas de 5MB, lo intenté pero no pude
  9. Buen día a todos! Soy nuevo en esta comunidad tan padre y me gustaría empezar mi participación con la siguiente duda: Estaba trabajando en una macro y de repente me apareció el mensaje "cant find project or library" y desaparecieron mis módulos. Intenté ver referencias pero ni siquiera me permitió abrirlas. Lo guardé con nombre distinto y aún así me sigue apareciendo mismo mensaje de error y nada en los módulos. Me gustaría por favor si me pudieran orientar en qué es lo que está pasando y cómo lo puedo solucionar? Ya que restauré versiones anteriores pero perdí todo el código que había cambiado antes del error. Muchas gracias por cualquier comentario que pueda ser de ayuda. Saludos,
  10. Hola a todos! Soy nuevo en esta comunidad! un placer ser parte de ella y con muchos ánimos de poder colaborar y aprender al mismo tiempo. Normalmente uso Excel como herramienta de trabajo para procesos.
×
×
  • Create New...

Important Information

Privacy Policy