Leaderboard

Cálculo de rutas de montaña

@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

Ya esta, pueden probar el archivo. @OAGARCIA Saludos

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.

¡Jo..!, no acierto ni una. Ahora creo que si. Planificación Formulario Final II.xlsm

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.

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

Hola te dejo esta herramienta que hice hace un tiempo te puede ayudar un poco mas para formar el xml

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

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"

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.

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

'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.

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

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. 😏

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

De acuerdo Pedro, a la vez es un gusto verte de nuevo por acá, que todo vaya bien por allá! Saludos

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!!

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

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"

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

Nosotros vamos a por la Champios.🤪🤪😁😁

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

No importa

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

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

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.

Mejor te comparto un enlace con el que puedes aprender bastante, visualiza todos los vídeos sobre ribbon

Nada que añadir ¡Impecable! Nada que añadir. 👍🏽

@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

Hola @JDG no estoy seguro si te entendi pero puedes probar colocando al principio de tu código application.ScreenUpdating=False Saludos

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

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

¡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

@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

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

Ahora ya no estoy delante del ordenador, mañana sin falta te lo miro, sube más pdf y te los incorporo

Es esto lo que necesitas ?

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

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

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

Revisa el adjunto. Y recuerda, me llamo Antoni, no Antonio. ¿De acuerdo? 😏 existencias ayuda Excel 1.xlsm

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.

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.

¡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!

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

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

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