Jump to content

Gerson Pineda

Administrators
  • Content Count

    12,378
  • Joined

  • Last visited

  • Days Won

    422

Everything posted by Gerson Pineda

  1. Pero eso es para interactuar con el usuario, si desea o no, me refiero a que una vez, responde que si y luego piensa que mejor no, le daría cancelar, al cuadro de dialogo "guardar como" y en tu caso, sigue y guarda siempre Para que eso no suceda debes hacer lo siguiente, observa la modificación If .Show = -1 Then .Title = "Guardar archivo como" .AllowMultiSelect = False .InitialFileName = ruta .FilterIndex = 2 If .Show Then march = .SelectedItems(1) march = Replace(march, ".xlsm", "") ActiveWorkbook.SaveAs Filename:=march & ".xlsm", _
  2. El problema radica, que tu empresa o jefe, te pide algo que va contra la productividad, ya eso tu sabrás como afrontarlo o resolverlo Por otro lado, lo que yo haría es ver ese proyecto con mi PC personal donde tengo mi versión actual Otro consejo que te puedo dar es que si tu eres el encargado de realizar análisis, debes repetir hasta el cansancio que todos deben tener la versión actual, de lo contrario estas navegando en el barco equivocado Saludos
  3. Combinar te refieres a concatenar?, si es si, abajo te dejo una solución Dim rango As Range: Set rango = Range("A:A").SpecialCells(2) Dim matriz: vtf = rango.Rows.Count ReDim matriz(1 To vtf) For i = 1 To vtf matriz(i) = Cells(i, 1) & Cells(i, 2) Next Cells(1, 3).Resize(vtf) = matriz Set rango = Nothing Saludos
  4. Que todos estén con la ultima versión y luego re-adaptar el proyecto Saludos
  5. Hola Diego Esa función solo esta disponible en 2019 y 365, en 2013 solo seria posible con VBA Saludos
  6. Pude detectar un fallo, que al elegir una carpeta y luego el usuario se arrepiente y cancela, siempre crea la copia, revisa e intenta resolver, aunque seguro con el aporte de Antoni, queda cubierto Saludos
  7. Hola Anibal Con archivo adjunto y si explicas claramente, con gusto te doy mi colaboración Saludos
  8. Hola Para evitar confusiones al usuario, es mejor que incluyas ambas opciones visualmente, de esta forma, se escoge una, y desde VBA lees la casilla que fue activada y corres el procedimiento correspondiente Además intenta que desde un mismo procedimiento se pueda correr ambas copias, con un simple condicional If Saludos
  9. Disculpa, pero esa UDF que realizaste, no es necesario, a menos que solo sea un ejemplo de tu parte, pues solo es cosa de invocar la funcion Ahora y listo Las UDF son procedimientos para crear o reemplazar hasta cierto punto algo que no existe nativamente en Excel Saludos
  10. Hola Te dejo 2 alternativas como solución Copiar columnas intercaladas_GP.xlsm Saludos
  11. Hola Incluye al inicio esta línea: Application.Volatile Application.Volatile Saludos
  12. Hola Diego Revisa el adjunto te dejo 2 alternativas Saludos Moda en texto_GP.xlsx
  13. Hola! Distinto pero lo mismo Primero cargo los nombres en Listbox directamente de la carpeta, al dar click a un elemento del listbox, concateno la fecha para cargar la imagen y listo Saludos a ambos Cargar nombres imagenes listbox_GP.xlsm
  14. Hola! Te dejo otra alternativa, utilizando formato de tabla, que facilita la elaboración de las formulas por el tema de los rangos dinámicos y además con esa tabla estructurada, puedes realizar una tabla dinámica fácilmente, que en todo caso es mas eficiente que cualquier formula Libro1.xlsx Saludos
  15. Hola Te dejo una solución Saludos DESCRICION DE CONTENIDO.xlsx
  16. Hola Si tienes accesos a ese servidor, solo es cosa de cargar la tabla que deseas Saludos
  17. No importa que esos números sean resultado de formulas, solo se hace un leve ajuste en VBA y listo Estas "loco" jaja se puede, pero evidentemente, no es recomendable, por tema de rendimiento Si gustas pasa el archivo tal cual con formulas pero con pocas filas y unas 3 hojas, para realizar la prueba y adaptarlo Saludos
  18. Hola Revisa el adjunto, a ver si es lo que necesitas Te recomiendo, hacer la consulta en un libro aparte, de modo que si aparecen mas tablas en origen, seria mas simple de agregarlas [ya sea desde el cuadro de dialogo que nos presenta power query o solo escribiendo el nombre de la nueva tabla en la formula directamente] Saludos! Consolidar tablas con registros unicos power query_GP_.xlsx
  19. Hola JSD Hasta donde se, es un comportamiento natural del objeto Saludos
  20. He revisado y no falta ningún registro, VBA me devuelve 744 en total, seguro tu conteo manual/visual esta incorrecto Prueba con una tabla mas pequeña Saludos
  21. Como notaras, con archivo adjunto se entiende mejor la situación Y siendo que deseas filtrar muchas columnas, el método cambia Te adjunto una alternativa Saludos Obtener numeros diferentes columnas_GP.xlsm
  22. Como te lo comente antes, un filtro avanzado o sencillo, resuelve tu caso de golpe, no es necesario utilizar bucles para tu caso Saludos
  23. Hola Seguro lo tuyo es un filtro avanzado... busca por aquí en el foro, sobre ese tema, hay variedad de soluciones que hemos aportado con el tiempo Saludos
  24. Hola Si bien es cierto que esto se puede hacer con Vba, lo que intentas hacer es improductivo, desde el punto de vista sobre el uso adecuado de Excel Te dejo una alternativa para que puedas filtrar a gusto, sin necesidad de ir buscando dentro de la misma base de datos esos criterios de filtro Saludos Libro3.xlsx
×
×
  • Create New...

Important Information

Privacy Policy