Jump to content

DiegoPC

Members
  • Content Count

    834
  • Joined

  • Last visited

  • Days Won

    32

Everything posted by DiegoPC

  1. Hola Javier Creo que hay varias cosas que no están hechas de la manera "idónea". Si planteamos una solución complicada, se nos hará difícil todo el trabajo con la plantilla. Los cambios que yo haría son los siguientes: Una sola hoja en lugar de una hoja mensual, pero se tendría que agregar una columna donde se ponga el periodo (enero 2021, febrero 2021, etc) Los conceptos que se puedan elegir de una lista desplegable (validaciones), cosa que no hay opción de equivocarse. El resumen se haría con una tabla dinámica.
  2. Buenas noches MAESTRO @John Jairo V, el gusto es mío. Muy interesante tu solución.
  3. Bueno, a veces no vemos las soluciones más simples.... tienes razón, nos complicamos por las puras jajaja
  4. Hola maestros.... Reduciendo un poquitín el código de Antoni: Sub SRT() Cells(asc(progreso)-48, instante).Resize(1, tiempo - instante + 1).Value = "E" End Sub
  5. Hola, la tabla no es necesaria si se dinamiza el rango. =MAX(DESREF(A1,0,0,1,CONTAR(1:1)))
  6. Hola El problema no es solo si el usuario coloca un nombre repetido, también hay que considerar que no ponga caracteres inválidos en el nombre de hoja como ?*/[].... y además que respete el máximo de caracteres en el nombre de hoja (31 caracteres) Este código te puede servir Sub Copiar() Dim Nombre As String On Error Resume Next Sheets("NuevaEmpresa").Copy after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count) Do Err.Clear Do Nombre = InputBox("Ponle un nombre a la nueva hoja", "Nombre de Hoja", Nombre) If Trim(Nombre
  7. Hola! Adjunto el que yo uso cada vez que tengo un proyecto en construcción, espero que te sirva. 😁 Proyecto en construcción.xlsx
  8. Hola El código está bien, tiene que funcionar. me parece que tienes activada la opción Mostrar Fórmulas, solo tienes que desactivarla.
  9. Hola! Que yo sepa eso no se puede hacer en Excel y tampoco en Word (hoy en día) pero hace mucho tiempo, en una versión muy antigua, Word permitía hacer animaciones de ese tipo. Si no me equivoco, era en la versión Word2000 y Word2003. Notarás en el vídeo que la interfaz es distinta a la actual.... se trata de la anterior UI de Office, con la extinta barra de menús.
  10. Y me olvidaba.... si no te gusta usar fórmulas, puede hacerse con FLASH FILL
  11. Hola!! Excelentes formas de solucionar el reto. Planteo una forma distinta.... veo que los dos aportes anteriores usan funciones de texto, yo me he decantado por usar matemática pura y no incluir nada de textos. Demo_extraccción04.xlsx
  12. Hola!! En realidad Excel no te está cambiando los vínculos. Si te fijas, luego de ordenar el rango descendentemente por la columna "F" las fórmulas no han cambiado. Es más, no importa cual columna (que tenga fórmulas) ordenes, el cuadro B seguirá en el mismo orden que el cuadro A y eso te lleva a un gran error: Las etiquetas de la columna "B" del cuadro B sí se mueven, pero todo lo que tiene fórmulas no se mueve.
  13. Hola a todos. La idea de @Antoni es muy buena, esa es la que yo usaría en la mayoría de veces PEROOOOOOOO resulta que la protección no es la mejor opción porque Excel no es nada seguro!! y además: Existen aplicaciones de terceros que rompen las claves Existen otras aplicaciones de hoja de cálculo que pasan por alto las contraseñas Existen Keyloggers..... Otra solución (muy agresiva, pero muy efectiva) es la autodestrucción dirigida..... Sub Soy_un_Kamikaze() Msgbox "Me voy a morir!!", vbinformation ThisWorkbook.VBProject.VBComponents("Módulo1").Cod
  14. Gracias Gerson, ya probé de todo, incluso hice lo que me indicó John pero nada. Creo que me resignaré, igual hay otros métodos para lograr lo mismo.
  15. Hola John Muchas gracias por las referencias. Ya probé lo que dice allí pero no se arregla. Ni modo.... a hacerlo con el mouse como el resto de primates! Ahora seré el pan Paniscus peruvianus.
  16. Buenas tardes Luis y John El problema se da en cualquier libro, no tengo macros con atajos de teclado e incluso probé iniciando Excel sin complementos (modo save) Tampoco va por el tema de la configuración regional ni del idioma, ya probé y tengo el mismo de siempre. Es una locura.... solo 1 de las combinaciones dejó de funcionar
  17. Buenas noches con todos. Lo usualmente uso estos atajos de teclado: CTRL + 0: Ocultar columna CTRL + 9: Ocultar fila CTRL + SHIFT + 9: Mostrar columna CTRL + SHIFT + 8: Mostrar fila Los he usado durante muuuuuuucho tiempo, pero ahora el de mostrar columna no funciona, los otros 3 sí. Pensé que se había desactivado por algún add-in, he iniciado Excel sin Add-ins pero aun así no funciona. ¿A alguien le ha pasado? ¿Saben cómo puedo arreglarlo? Gracias
  18. Hola! Si te fijas en tu primera imagen, en la fila 9, el primer encabezado dice "24" y en tu macro dice que la columna se llama "codigo" así que arregla ese 24 y debería funcionar
  19. Hola JuanP 🙄 bueno, no puedo imaginar qué pueda estar causando el problema. Tendría que ver le código para analizarlo y determinar una posible razón. Si puedes sube un libro con datos falsos para que podamos verlo y encontrar la falla
  20. Hola! No sé exactamente a qué te refieres con actualizar pero según entiendo es un tema del modo de cálculo. Tendrías que ir a Fórmulas y seleccionar la opción de cálculo automático. Si no es eso, intenta explicar mejor a ver si llegamos a ayudarte.
  21. Hola! En realidad hay muchísimas formas de hacerlo, te adjunto algunas con formulitas (pero hay también maneras de hacerlo con PowerQuery y con macros. Ejemplo Para Comparar Columnas.xlsx
  22. Otra opción es que Power Query saque los datos y los transforme para que ya los entregue en una tabla normalizados y limpios.
  23. Hola @Leonardo Briceño En lugar de evitar que el usuario le cambie de nombre a la hoja, tal vez te sería más sencillo no usar ese nombre en tu código, de esa forma el usuario puede cambiar lo que quiera y tu código aun funcionará. Recuerda que las hojas tienen dos nombres: 1.- El nombre para los usuarios y demás primates (el que se ve en las etiquetas de hojas) 2.- El nombre interno del objeto, que se puede ver y cambiar desde el editor de VBA. Dicho de otra forma, puedes cambiar esta línea: If Not Intersect(Sheets("COLORES").Cells(ActiveCell.Row, ActiveCell
  24. Hola @paikerr Si no quieres usar el Workbook_Open entonces no te queda más que usar el Activate de cada hoja y para evitar que se ejecute una y otra vez, podrías tener una variable "STATIC" en cada hoja con un flag (true/false) para saber si debes correr la macro o no y que la misma macro haga el cambio de valor de la variable para que no vuelva a ejecutarse. https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/static-statement
×
×
  • Create New...

Important Information

Privacy Policy