Jump to content

Leaderboard


Popular Content

Showing content with the highest reputation since 06/26/2020 in all areas

  1. 6 points
    Cálculo de rutas de montaña
  2. 4 points
    AlexanderS

    Ayuda a como hacerlo

    @Marcos14, lo que pides no es tan sencillo pero es posible, en el adjunto esta el formulario y funciona de la siguiente forma: Para mover los números debes dar click encima de uno de ellos no debes mantener presionado basta con un simple click encima Con el mause te mueves por la imagen de los círculos y cuando estés en la posición que quieras debes presionar de nuevo un click sobre el numero no sobre la imagen En caso de que quieras eliminar uno de los números que moviste debes dar un dobleClick sobre este, con eso volverá a colocarse a la derecha en la lista. Ahora se que este era un ejemplo y para trasladarlo a otro libro debes tomar en cuanta lo siguiente: Tuve que crear un modulo de clase (ClassControl), este contiene el código para que los controles funcionen, debes copiar este modulo competo. También el modulo 1 contiene código para el funcionamiento del formulario. El Formulario debe llamarse (frmbiomicroscopia), si cambias el nombre debes modificar el código del modulo de clase. No importa la cantidad de Etiquetas que crees el código se adapta. Los controles donde van los números deben ser Labels de lo contrario el código no funcionara. Como ves debes tener cuidado si lo vas a trasladar a otro libro ya que el código no esta solo en el formulario. Comentas, saludos. Libro1 (2).xlsm
  3. 3 points
    Ya esta, pueden probar el archivo. @OAGARCIA Saludos
  4. 3 points
    Hola Lo primero es recordar que la programación es sobre todo entender qué es lo que hace cada instrucción que se usa en las macros. Sugiero que vuelvas a revisar el mismo archivo que has enviado y trates de, justamente, entender que hace cada linea y cada macro. PAra ayudarte a entender, este enlace te ayudará: http://www.cpearson.com/excel/vbe.aspx Una vez que entiendas, algo importante es que sepas que solo podrías hacer los cambios si los archivos que mencionas están en carpetas que estén "mapeadas" y a las que tengas acceso a través de la red de tu empresa. De ser el acceso por nube, intranet o internet, lamentablemente no podrás realizar los cambios requeridos. Ah, ojo, entiendo que no tengas los conocimiento sobre el tema, pero lo que pides no es una modificación a lo que envías, es el desarrollo de algo nuevo, y es complicado que en los foros se haga todo eso ya que se ayuda de modo gratuito. Intenta avanzar algo y ya sobre esos avances se te brinda ayuda.
  5. 3 points
    ¡Jo..!, no acierto ni una. Ahora creo que si. Planificación Formulario Final II.xlsm
  6. 3 points
    JSDJSD

    Ayuda a como hacerlo

    Hola a ambos, me quedan que hacer algunas pruebas y te comparto otra opción, menos sofisticada que la del Maestro AlexanderS pero creo que te funcionará igualmente, eso si el código estaría todo en el formulario no tienes que crear modulo de clase.
  7. 3 points
    He eliminado todas las fórmulas y formatos condicionales a partir de la columna E y he incluido las acciones en las macros. Esto te permitirá borrar/copiar la información de entrada sin el peligro de borrar las fórmulas y los formatos. Abre el adjunto y pulsa sobre el botón Calcular, a ver que te parece. Planificación con rumbo, tiempo y pendiente-TOTAL.xlsm
  8. 2 points
    LeandroA

    Consulta custom ui editor office

    Hola te dejo esta herramienta que hice hace un tiempo te puede ayudar un poco mas para formar el xml
  9. 2 points
    tierra_pampa

    Recibos de Pagos en PDF

    Hola @alexanderch Te dejo un archivo para que pruebes si es lo que necesitas. Es una modificación del archivo subido por @Mauricio_ODN Como te indicaran en la primera respuesta, tienes que indicar la ruta dónde dejar los archivos en la celda "D1" de la hoja "Directivo". Si te ayudó la colaboración recibida, puedes agradecerlo con un click en el corazón que se encuentra en la parte inferior derecha del comentario Suerte! ae20200701_post43715_RECIBOS PAGOS PRUEBA1.xlsb
  10. 2 points
    Mauricio_ODN

    Recibos de Pagos en PDF

    Hola de nuevo @alexanderch Lo único que necesitas es crear un ciclo en el código que te envie. Sigo atento a tu comentarios. Saludos PD: "Dar un excelente es una manera de agradecer"
  11. 2 points
    Mauricio_ODN

    Concatenar de forma inversa.

    Hola de nuevo @manzano Realmente solo cambie el orden y la condición que tenías en tu If para concatenar. En el archivo que te envie cambie el If por el select case, no por nada en particular, solo por costumbre. Si surge otra consulta, sigo atento, de lo contrario te pido de favor que puedas dar el tema por solucionado. Ten buena Tarde-Noche.
  12. 2 points
    tierra_pampa

    Ayuda con Plantilla de Servicio

    Hola @PATILARGO Disculpas amigo, era tarde en mi país y creí que podrías reemplazarlo. Espero que te sirva la posible solución. Cualquier problema que puedas tener, por aquí andarán siempre personas dispuestos a ayudarte. Suerte! ae20200630_post43702_Plani.xlsm
  13. 2 points
    Antoni

    Posición del cursor

    'Posicionar después de la posición 3 TextBox1.SetFocus TextBox1.SelStart = 3 No estaría de más que que te documentases acerca de las propiedades de los controles que vas a utilizar y así te ahorrarías tiempo, tú y nosotros.
  14. 2 points
    Revisa el adjunto. Observa que he relacionado el nombre del conector con la celda de la columna E. Seguro que se puede hacer con un gráfico, pero ni idea. GRAFICO.xlsm
  15. 2 points
    Solo por culturilla, las variables, si están definidas dentro del procedimiento, se inicializan cada vez que se ejecuta el procedimiento, por eso están definidas a nivel módulo, pero entonces ocurre lo contrario, es decir, mantienen su valor y por eso es necesario inicializarlas en el procedimiento principal. 😏
  16. 2 points
    Hola @PATILARGO Te dejo una opción modificando tan solo una línea de la macro. Si te ayudó la colaboración recibida, puedes agradecerlo con un click en el corazón que se encuentra en la parte inferior derecha del comentario Suerte! For Each x In Range(vci, vci.End(xlDown)) If x <> "6011" Then i = i + 1 If i > 1 Then vpc = x + 0 & "-" & vpc 'vpc = vpc & "-" & x + 0 Else vpc = vpc & x + 0 End If End If Next
  17. 2 points
    De acuerdo Pedro, a la vez es un gusto verte de nuevo por acá, que todo vaya bien por allá! Saludos
  18. 2 points
    Hola @OAGARCIA, es cierto lo que nos comenta @avalencia, el foro es para responder consultas puntuales y aprender, ese aporte cuando lo realice fue porque tenia un problema similar al tuyo y decidí compartirlo en el foro para que al que le fuera de utilidad pudiera aprovecharlo. Esta ahí para que cualquiera pueda usar mi idea y transformarla a su gusto, ademas aprender de ello. De igual forma no es la primera vez que me plantean lo de la actualización de varios módulos con ese código, así que aprovechando que llevo tiempo sin subir algún aporte al foro, voy a pensar en algo y ya te aviso cuando lo tenga en la sección de aportes, eso si incluirlo y adaptarlo a tu archivo deberás intentarlo tu. Saludos a ambos!!
  19. 2 points
    Saludos @marcosab, te dejo el archivo funcionando, en el modulo mDB, te deje varias macros ejemplo que puedes analizar para ir mejorando tu archivo, el sistema valida si existen datos para el funcionario y fecha, si existe te da la opción de borrarlos y cargar nuevamente los registros suerte Indicadores SACI.xlsm
  20. 2 points
    Antoni

    Encabezado de un ComboBox

    Los encabezados solo son compatibles si el llenado del combobox/listbox se hace a través de la propiedad RowSource con un rango continuo. Ejemplo: ComboBo1.RowSource = "Hoja1!A2:F20"
  21. 2 points
    avalencia

    Error 4601 desde Excel a Word

    Hola Como te dije en un grupo de Facebook, sugiero leer todos estos artículos y probar: https://abrahamexcel.blogspot.com/search?q=word Saludos
  22. 2 points
  23. 2 points
    Hola haplox Lo siento si doy esta impresión: Pero no !!!!! Por el contrario, me ayudas mucho Tengo mucho que aprender de ti No te preocupes: Es solo que a veces me desanimo al no poder hacer lo que quiero; Por aquí te pido ayuda y estoy feliz de hacerlo 1) Porque gracias a ti, repasé mucho de lo que había aprendido en español hace muchos años. 2) Porque siempre hay mucho que aprender contigo en todos los frentes. Solo tenga una cuenta y hable mi o su idioma. Es una cuenta y uso el traductor de google que se traduce como puede y, por mi parte, trato de encontrar palabras simples para que entiendas lo que realmente quiero; Eso es todo ! De hecho, soy yo quien a veces me pregunto si no estás agobiado con mis extravagantes solicitudes, tengo programadores no profesionales para ti, tengo profesionales en el sector. Pero, naturalmente, ya me encanta salir de la caja ¿Siempre en el contexto de la programación te refieres? Porque estoy cansado de mirar páginas y páginas de (Internet) que siempre explican las mismas cosas. Si bien he encontrado profesionalidad con ustedes y es por eso que estoy feliz de ser parte integral, casi tengo la suya (Foro) Incluso cuando me permito darle mi trabajo, ¡nunca lo hago con la presunción de sentirme mejor que usted! Pero simplemente para compartir mis trabajos con personas que nunca dejan de sorprenderte con tu profesionalismo. Además, en mi pequeña manera dejo un punto de encuentro para otras personas (miembros) a su foro Justo como salir de la caja; Mientras persigue el mismo resultado final. Hola y buen fin de semana. (P.s) El día que estés cansado de mis solicitudes, avísame. Feliz fin de semana con verdadera simpatía y amistad de A.Maurizio ################################## Hi Haplox Sorry if I give this impression: But no !!!!! On the contrary, you help me a lot I have a lot to learn from you do not worry: It's just that sometimes I get discouraged by not being able to do what I want; For here I ask you for help and I'm happy to do it 1) Because thanks to you, I brush up on much of what I learned in Spanish many years ago. 2) Because there is always a lot to learn with you on all fronts. Just have an account and speak both my or your language. It is an account and use the google translator which translates as it can and for my part try to find simple words to make you understand what I really want; That's all ! In fact, it is I who sometimes wonder if you are not burdened with my quirky requests, I have unprofessional programmers for you, I have professionals in the sector. But I already naturally love to go outside the box Always in the context of programming you mean? Because I'm tired of looking at pages and pages of (the Internet) that always explain the same things. While I have found professionalism with you and that is why I am happy to be an integral part I almost have yours (Forum) Even when I allow myself to give you my work, I never do it with the presumption of feeling better than you! But simply to share my works with people who never cease to amaze you with your professionalism. In addition, in my small way leave a meeting point for other people (members) to your forum Just like getting out of the box; While pursuing the same end result. Hello and good weekend. (P.s) The day you are tired of my requests, please let me know. Happy weekend with real sympathy and friendship from A.Maurizio
  24. 2 points
    No importa
  25. 2 points
    Buenas Matías, una alternativa a la función avanzada MIN.SI.CONJUNTO() es usar una fórmula matricial que se introduce con: Ctrl + Mayús + Intro (Excel automáticamente encierra la fórmula entre llaves para indicar que es una fórmula matricial) Fórmula para versiones superiores de Excel: =MIN.SI.CONJUNTO($C$2:$C$31;$B$2:$B$31;$G$2;$E$2:$E$31;$H$2) Fórmula matricial alternativa para versiones de Excel que no soportan la función MIN.SI.CONJUNTO(): =MIN(SI(($B$2:$B$31=$G$2)*($E$2:$E$31=$H$2);$C$2:$C$31)) Seleccionar los valores en los desplegables de estas dos celdas: $G$2 el DiaProd $H$2 el Mes Adjunto archivo de ejemplo con las dos fórmulas. Consulta_MIN.SI.CONJUNTO_PW1.xlsx
  26. 2 points
    Saludos amigo @Daniel Montoya, hoy tenia ganas de hacer algo diferente y le dedique un rato a este archivo, espero que te sea de mucha ayuda. hoja Carga, desde allí puedes ver mes a mes los datos cargados y puedes actualizar la información, seleccionas el equipo, actividad, etc, y automáticamente el calendario se actualiza con al información que coincida, si no coincide nada pues solo se muestran los días del mes. arriba tienes los botones de cada mes, al presionar, se muestra la información de dicho mes para actualizar los datos, simplemente modifica el día que necesites y presionas el botón actualizar DB, así de simple con el botón Mostrar Plan, se muestra tu hoja original con la información respectiva (se toma todo de la hoja DB) en la hoja resumen, coloque las formulas que leen la información desde la hoja DB para agregar nuevos equipos o actividades, lo haces en la tabla respectiva de la hoja tablas (te paras al final de la tabla y escribes el texto) suerte plan de mantenimiento.xlsm
  27. 1 point
    Sergio

    AyudaExcel Cuántico

    Hola Visor, Algunos usuarios están experimentando lo mismo que tú. Parece que tarda en actualizar los mensajes. Estamos tratando de identificar el error para poder subsanarlo.
  28. 1 point

    Version 1.0.0

    10 downloads

    La pandemia del coronavirus hace que sea de rabiosa actualidad la crisis económica que está provocando en todo el mundo y, en concreto, las enormes tasas de desempleo que se están padeciendo en todos los países. Acabo de publicar datos históricos de las tasas de desempleo anuales en los países de la UE desde 1990 hasta 2019 para poder compararlos mas adelante con el desempleo provocado en 2020 por el Covid-19. Puedes leerlo en mi blog: Tasas de desempleo de la UE https://pedrowave.blogspot.com/2020/06/tasas-de-desempleo-de-la-ue.html No he usado ninguna herramienta MS Power pues la plantilla está diseñada totalmente en Excel, para que sea de mayor difusión, partiendo de un artículo del gran Robert Mundigl, autor del magnífico blog Clearly and Simply, como puedes leer en la nueva entrada de mi blog, desde donde puedes descargarte la plantilla e interactuar con ella. Gracias anticipadas por tus comentarios que, aunque no sean benévolos pueden ayudarme a mejorar.
  29. 1 point
    JSDJSD

    Consulta custom ui editor office

    Mejor te comparto un enlace con el que puedes aprender bastante, visualiza todos los vídeos sobre ribbon
  30. 1 point
    Nada que añadir ¡Impecable! Nada que añadir. 👍🏽
  31. 1 point
    Visor

    Como controlar la apertura de excel?

    @JDGNo se será que lo que necesitas es así?? Private Sub Workbook_Open() 'Apertura With Hoja1 uf = Hoja1.Cells(Rows.Count, "A").End(xlUp).Row Hoja1.Range("A" & uf + 1) = Now End With End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Cierre With Hoja1 uf = Hoja1.Cells(Rows.Count, "A").End(xlUp).Row Hoja1.Range("B" & uf) = Now 'Tiempo de uso Hoja1.Range("C" & uf) = Hoja1.Range("B" & uf) - Hoja1.Range("A" & uf) End With End Sub Eso es lo que te están indicando Mauricio_ODN y AlexanderS Pero le he puesto unos toque adicionales, es decir que al abrir se registra el tiempo de apertura del archivo, al salir te registra el tiempo de cierre y además se calcula el tiempo de uso. Si te sirve, espero el Sandwich que ponen aqui abajo, para todos los aquí participantes
  32. 1 point
    Hola @JDG no estoy seguro si te entendi pero puedes probar colocando al principio de tu código application.ScreenUpdating=False Saludos
  33. 1 point
    Gerson Pineda

    Tasas de desempleo de la UE

    Pedro, este aporte esta sencillamente fenomenal, el informe es genial!, te felicito y como siempre aportes de gran calidad El eje horizontal no me agrada verlo, ademas que se ven "a" repetidas Saludos
  34. 1 point
    AlexanderS

    Ayuda a como hacerlo

    Es es fácil simplemente has de agregar al inicio del código del botón una linea así: Me.CommandButton1.Visible = False Me.CommandButton2.Visible = False Me.CommandButton3.Visible = False Y así para todos los botones o controles que no quieres que aparezcan. Saludos @Marcos14 y @JSDJSD
  35. 1 point
    JSDJSD

    Ayuda a como hacerlo

    No tienes que añadir más controles, es poner el código en el evento doble clic del formulario, y eliminar el botón
  36. 1 point
    ¡Hola, a todos! Aquí el vivo ejemplo que, organizando convenientemente los datos, se pueden lograr cosas que a primera vista parecerían complicadas, pero en la práctica, no lo son tanto. ¡Bendiciones! ReasignaciónFondos.xlsx
  37. 1 point
    Marcos14

    Ayuda a como hacerlo

    @AlexanderS me he quedado sin palabras es justo lo que necesitaba para el proyecto que estoy realizando, gracias por toda la ayuda que me estáis prestando varios de vosotros para poder realizar este proyecto
  38. 1 point
    amigo @Predi credo que el problema principal es que en tu tabla principal hoja "Detalle de facturas" tienes el campo descripción en dos filas, eso está muy mal, pues duplicas la linea pero sin todos los datos, y eso, 100% seguro te va a generar muchos problemas, prueba acomodando eso y comentas suerte
  39. 1 point
    Ahora ya no estoy delante del ordenador, mañana sin falta te lo miro, sube más pdf y te los incorporo
  40. 1 point
    JSDJSD

    AYUDA CON UNA MACRO

    Es esto lo que necesitas ?
  41. 1 point
    Hola Manuel te muestro como funciona perfectamente el archivo que has subido, lo único que pasa es que no tienes en la misma ruta el archivo y la carpeta que contiene los pdf, en el ejemplo que te muestro a continuación veras que yo tengo tanto el archivo como la carpeta de Pdf dentro de una carpeta llamada Prueba, esto quiere decir que si tu archivo lo tienes en el escritorio por ejemplo la carpeta también debe estar en el escritorio, si por ejemplo tienes tu archivo en una carpeta llamada Pipita pues la carpeta que contiene los Pdf también debe estar dentro de la carpeta Pipita. Prueba y comenta. Pincha el enlace y te lo muestro. https://drive.google.com/file/d/1iPO98zE_AHSMeaLzUnu3IWJYZfu4NhUj/view?usp=sharing
  42. 1 point
    JSDJSD

    Tres Combobox Dependientes

    El error esta que no le indicas la hoja de la que tiene que coger los datos y entonces cuando ejecutas el formulario te los coge de la hoja en la que te encuentres, cambia el código tanto en el combo1 como del 2 por lo siguiente. Prueba y comenta
  43. 1 point
    Antoni

    DETALLES EN EJECUTAR LA MACRO

    Sub Guardar() Dim Fila As Long Dim H1 As Worksheet Dim H2 As Worksheet '-- Application.ScreenUpdating = Falso 'Evita el parpadeo Set H1 = Sheets("INSERT") Set H2 = Sheets("DATOS") 'PARA GUARDAR LOS DATOS EN LA FICHA BD-- For x = 1 To 3 Fila = H2.Range("B" & Rows.Count).End(xlUp).Row + 1 H2.Range("B" & Fila) = H1.Range("D3") 'Hab. H2.Range("C" & Fila) = H1.Range("D4") 'Nombre H2.Range("D" & Fila) = H1.Range("D5") 'Entra H2.Range("E" & Fila) = H1.Range("D6") 'Dias H2.Range("F" & Fila) = H1.Range("D7") 'Salida H2.Range("G" & Fila) = H1.Range("D8") 'Turno H2.Range("h" & Fila) = H1.Range("D9") 'Pax Next 'Limpiar FICHA UNA VEZ SE HAYA GRABADO LOS DATOS H1.Activate ' H1.Range("D3").ClearContents 'Hab. H1.Range("D4").ClearContents 'Nombre H1.Range("D5").ClearContents 'Entra H1.Range("D6").ClearContents 'Dias 'H1.Range("D7").ClearContents 'Salida H1.Range("D8").ClearContents 'Turno H1.Range("D9").ClearContents 'Pax H1.Range("D3").Select Application.ScreenUpdating = True End Sub
  44. 1 point
    Revisa el adjunto. Y recuerda, me llamo Antoni, no Antonio. ¿De acuerdo? 😏 existencias ayuda Excel 1.xlsm
  45. 1 point
    Hola Las TD no muestran datos como lo que necesitas, quizá te sea más útil las opciones de Esquema (Agrupar/Desagrupar) de la pestaña "Datos". Comentas.
  46. 1 point
    Hola. Cuando la selección es múltiple no puedes utilizar la propiedad Value para obtener los resultados. En este caso te recomiendo cambiar todo "List_Cta.Value" por "List_Cta.List(i)". Un saludo.
  47. 1 point
    ¡Hola, @Alejandro Z! El 8^5 es mayor en una unidad a la máxima cantidad de caracteres que Excel permite en una celda, el cual es 32767. Como el HALLAR da la posición numérica de un valor dentro de una celda, este número dentro de la función BUSCAR siempre debe ser mayor a donde lo encuentre. ¡Bendiciones!
  48. 1 point
    te dejo una solución @lulatown . Por cierto, en cuanto a esto: Cada uno usa las cosas según le parezca, aunque no sea la mejor opción base.xlsm
  49. 1 point
    DiegoLG

    Filtrar informacion!!!

    Te dejo otra propuesta, Sub FILTRAR() Application.ScreenUpdating = False Hoja1.Range("C1:C500").AutoFilter Field:=1, Criteria1:=Hoja2.Range("B2") Hoja2.Range("C1:F500").Clear: Hoja1.Range("C1:F500").Copy Destination:=Hoja2.Cells(1, 3) If Hoja2.Range("C2") = "" Then Hoja2.Range("C1:F500").Clear: MsgBox "DATO NO ENCONTRADO", vbCritical For Each Hoja In Sheets If Hoja.AutoFilterMode Then Hoja.AutoFilterMode = 0 Next End Sub Saludos Cordiales Copia de FILTRO.xlsm
  50. 1 point
    JSDJSD

    Dos ComboBox dependientes llenan datos

    Hola EMIRO ERAZO, prueba el adjunto y comenta Combobox Departamento, Municipio, Región,Habitantes (Prueba 1).xlsm


  • Newsletter

    Want to keep up to date with all our latest news and information?
    Sign Up
×
×
  • Create New...

Important Information

Privacy Policy