Jump to content

Leaderboard

Popular Content

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

  1. Cálculo de rutas de montaña
    8 points
  2. LeandroA

    Nuevo Aporte

    Les comparto este ultimo proyecto en que estado jugando espero que les sea de utilidad.
    6 points
  3. No tenemos la BD Access, no sabemos la tabla y no tenemos el formulario. ¿Asi pretendes que alguien te ayude? ☹️
    6 points
  4. Antoni

    ¡ 5.000 likes !

    A por los 10.000. 🙂
    5 points
  5. Hola a los dos Yo creo que entendí otra cosa.. 😆🤪 Saludos, Silvia Ejemplo asignacion de ID a cada semana de acuerdo a historial sq.xlsx
    5 points
  6. A mi se me ha ocurrido esto, a ver que tal. consulta filtro combobox (2).xlsb
    5 points
  7. Antoni, no sé si eres consciente, pero en más de una ocasión nos has sacado de apuros (por lo menos a mí). Por algo encabezas la lista de máximos contribuidores, ¿no? Aprovechando el mensaje, quiero agradecerte personalmente la labor valiosísima que haces en el foro.
    5 points
  8. DiegoPC

    Contar los Vecinos

    Hola @Lázaro, @Janlui y @Silvia @Silvia Yo también lo iba a hacer con rangos con nombre y me ganaste!!! Muy buena solución. Para no quedarme atrás... lo hice de dos formas diferentes. Con megafórmula, sin nombres de rango, tomando como idea fundamental el uso de desref Con una UDF (User Defined Function) que, mediante macros, se crea una función de Excel para ser usada. Desde el punto de vista del usuario es la forma más "limpia". ¿Servira? Dado que Lázaro se autodefine como macrofílico, supongo que será de interés.Contar Vecinos 2.xlsb
    5 points
  9. Hoy, 14/02/2021, se cumple el 75 aniversario de la creación del primer ordenador. Se programaba por cables conectando funciones preestablecidas por hardware, podía hacer hasta 500 sumas por segundo, ocupaba 170 metros cuadrados y gastaba como 18.000 bombillas. (180 Kw/hora) Os dejo el artículo de El País. 75 aniversario de la creación de ENIAC, el primer ordenador electrónico
    4 points
  10. Hola JOCAMI90 la formula tenía una falla =SUMAR.SI.CONJUNTO(Datos!$D$3:$D$5000,Datos!$B$3:$B$5000,"*WH/"&B$3&"*",Datos!$C$3:$C$5000,$A4,Datos!$A$3:$A$5000,">="&$B$1,Datos!$A$3:$A$5000,"<="&FIN.MES($B$1,0)) considera que mi separador de argumentos es la coma (,), si el tuyo es otro, corriges. esto solo funciona para las columnas B y C que pertenecen a Setiembre, deberás cambiar manualmente B1, por D1 en Octubre, esa situación se dá , debido a que utilizaste celdas combinadas, lo que podrías hacer es descombinar las celdas y colocar las fechas en todas l
    4 points
  11. Como @Antoni debe estar muy ocupado, adjunto un archivo con 3 macros para obtener el día de la semana desde el 0100-01-01 (aaaa-mm-dd), en formato ISO 8601, que es el primer día admitido por VBA. La función GetWeekDayName() devuelve el día de la semana si se le pasa una cadena de texto en formato ISO 8601, llamando a las otras dos macros. Es fácil convertir una string con una fecha en formato de texto al formato estándar ISO. Option Explicit Function GetWeekDayName(sDate As String) As String ' ' VBA WeekdayName Function ' Dim iWeekDay As Integer iWeekDay = GetWeekDay(sDa
    4 points
  12. Nunca debes utilizar los textbox, la función Val(), ni la función Format() en los cálculos, utiliza las variables y las funciones de conversión del tipo adecuado. He añadido un pequeño calendario. PRUEBA1.xlsm
    4 points
  13. Hola Esas fallas no están relacionadas a la versión del VBA o de Window (7, 10, etc.) sino a: - Uso de objetos ActiveX no compatibles entre ediciones de Office (32 o 64 bits, ojo, bits del Office, no importa lo de Windows). - Uso de objetos ActiveX compatible pero no registrados/instalados entre distintas PC. Recuerden que las librerías y objetos ActiveX (o similares), no "viajan" con los archivos de Excel. - "Llamadas" a funciones de la API de Windows solo para 32 bits. - Uso de propiedades y/u objetos de Excel "nuevas". Recuerden que las versiones más recientes de E
    4 points
  14. John Jairo V

    si(y y si juntos

    ¡Hola a ambos! Se debe tener en cuenta un principio de Excel a la hora de construir este tipo de fórmulas: los números, si quieres que se reconozcan como tal, no deben ir entre comillas. Teniendo en cuenta esto, verifica la siguiente fórmula propuesta: =SI(F8="efectivo a";36000;SI(F8="efectivo b";48000;SI(M8>0;SI(F8="cuotas a";6000;8000);SI(F8="cuotas a";18000;24000)))) ¡Bendiciones!
    4 points
  15. hola a todos Dieguinho, yo tengo la mejor solución: Resetea tu máquina e instala todo de nuevo... y una mas radical: CAMBIA DE COMPUTADORA😂😂 la antigüita me la puedes donar. 😄 jaja saludos, Silvia
    4 points
  16. @jhon fredy tus datos personales están seguros en Ayuda Excel. No son cedidos, vendidos o puestos a disposición de terceros. Cuando publicas tu proyecto en el foro lo estás poniendo a disposición de 25.730 usuarios, los cuales tienen permisos para descargarlos y manipularlos para darte una respuesta.. Cuando publicas un archivo en Ayuda Excel lo haces bajo tu responsabilidad, quedando Ayuda Excel exonerado de cualquier uso que los usuarios de la web puedan hacer de él. Por favor, echa un vistazo a este post publicado en la carpeta de Normas: Al registrarte en Ayuda
    4 points
  17. Hola! Hace 10 años, subí un aporte similar a lo que necesitas, abajo el tema Saludos
    4 points
  18. ¿Y porqué no ejecutar la macro directamente? Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row > 4 And _ Target.Column = 5 And _ Target(1, 1) <> "" Then Call MacroA End If End Sub
    4 points
  19. Hola @MauriciodeAbreu Selecciona el formulario y busca la propiedad "StartUpPosition". Te dejo una img Eres nuevo. Por favor ten en cuenta que, para una mejor resolución de los problemas, debes subir un archivo ejemplo (no necesariamente el original ni con datos verdaderos, pero que tenga la estructura de aquel). Si deseas retribuir el tiempo invertido en procurar la solución del problema planteado, puedes hacerlo con un click en el corazón que se encuentra en la parte derecha del comentario. Qué tengas un buen día! Suerte!
    4 points
  20. Me aburría y he hecho esto. Abre el adjunto y pulsa sobre la flecha verde. Nota: Si utilizas una tabla en la propiedad RowSource de un listbox/combobox e intentas añadir/eliminar una fila da error, para evitarlo, debes desvincular la tabla del control y volver a cargarlo. En el archivo que he subido verás como hacerlo. 🙂😷 Inventario.xlsm
    4 points
  21. Hola @Jose BN Aquí te dejo una propuesta para ver si encaja con lo que necesitas. Cualquier modificación, por aquí andaremos. Que tengas una buena jornada! Suerte! ae20200725_post43798_consulta filtro combobox.xlsb
    4 points
  22. Solo añadir que estás confundiendo el objeto con el nombre del objeto Además, no es necesario seleccionar la hoja cada vez Dim Hoja As Worksheet Dim Libro As Workbook For Each Libro in Workbooks For Each Hoja in Libro.Sheets With Hoja.Cells ... ... End With Next
    4 points
  23. saludos @paikerr, simplemente elimina las lineas Set libro = ActiveWorkbook.Name Set hoja = ActiveWorksheet.Name NO es necesario pues libro y hoja ya hacen referencia a cada uno de los objetos y cambia esta For Each hoja In Worksheets por esta otra For Each hoja In libro.Worksheets
    4 points
  24. Descarga el adjunto desde el enlace a MEGA: Enlace Crea una subcarpeta con el nombre FOTOS Pon en ella las imágenes con un nombre igual al código de producto, ejemplo: 007.jpg
    4 points
  25. Ya esta, pueden probar el archivo. @OAGARCIA Saludos
    4 points
  26. @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 qu
    4 points
  27. ¡Hola a todos! He estado un poco ocupado estos días. Les comento sobre la fórmula que posteé, la cual tiene que ver con la función INDIRECTO. La fórmula completa es ésta: =SUMA(CONTAR.SI(DESREF(INDIRECTO(TEXTO(MIN(SI($BN$2:$BR$11=H13;(FILA($BN$2:$BR$11)-1)/1%%+COLUMNA($BN$2:$BR$11)-1));"F0C0000") ; );;;3;3);$H13:$L13))-1 Como es costumbre, arranco de adentro hacia afuera: 1. (FILA($BN$2:$BR$11)-1)/1%%+COLUMNA($BN$2:$BR$11)-1 Esta parte, a pesar de ser la primera, es la central de la solución planteada. En primera instancia, la idea es entender que el símbolo %,
    4 points
  28. hola manzano Si solo son dos dígitos: =IZQUIERDA(A1,2) Si no se sabe y solo se tiene la coma como parámetro: =IZQUIERDA(A1,HALLAR(",",A1)-1) Mi separador de argumentos es la coma, si el tuyo es otro, corriges saludos, Silvia
    4 points
  29. ¡Hola, a todos! ¡Me encantó la forma como @DiegoPC resolvió con macros! Dejo una opción con formulación. ¡Bendiciones para todos! Contar Vecinos.xlsb
    4 points
  30. Hola DavidBF, te valdría algo como esto ?
    4 points
  31. Antoni

    REGISTRO DE ASISTENCIA

    Mientras me miro lo de JSDJSD, puedes revisar lo mío. ESCUELA.xlsm
    3 points
  32. 3 points
  33. @jeaa mientras sigas ignorando los comentarios será difícil, está macro simplemente sustituye en tu hoja el nombre del alumno y la la nota, si hay algún cálculo y NO cuadra, pues es simplemente tu archivo y las formulas que tengas, NO es ningún problema de la macro. mientras NO termines de explicar que hace tu archivo o que es lo que necesitas y coloques algún ejemplo de lo que NO cuadra, pues será complicado. suerte
    3 points
  34. ¡Hola a todos! Dejo otra opción en el adjunto. Como recomendación, siempre que se concatenen valores de dos columnas en una fórmula es mejor unirla con un carácter (ej: guión), para diferenciar totalmente las opciones. Si se concatena directamente, se pueden cometer errores de coincidencia por tipeo (aunque estrictamente este no sea el caso): Ejemplo: SIN COLOCARLE GUIÓN: Si referencia es AC e Idioma es ES, al concatenar ambos queda ACES. Si referencia es A e Idioma es CES, al concatenar ambos también queda ACES. Entonces este sería un "falso positivo". COLOCÁ
    3 points
  35. considera lo siguiente: las reglas de validación SON (y solo funcionan) para entradas "directas" en las celdas (por el usuario) NO funcionan si la celda es fórmula o se ingresa por copiar > pegar o medios de automatización (macros p.ej.) por lo mismo, el mensaje de entrada sirve como ayuda visual para que el usuario sepa el tipo de dato a ingresar si necesitas evitar (prevenir, corregir, ...) que una fórmula devuelva ceros, requieres de las macros (y unas cuantas "vueltas de tuerca")
    3 points
  36. JSDJSD

    Macro Vlookup

    Me alegro, pero nunca olvides agradecer a quien te ayuda o intenta ayudar y en el foro se agradece mediante el corazoncillo que hay en la parte inferior derecha, un saludo.
    3 points
  37. Revisa el adjunto. CONTACTOS.xlsm
    3 points
  38. Me alegro YianTheJOP, pero no olvides nunca agradecer a quien te ayuda o intenta ayudar y en el foro se agradece mediante el corazoncillo que hay en la parte inferior derecha, un saludo.
    3 points
  39. Gracias Antoni. Tu código me devuelve la ruta de SharePoint. He seguido buscando y he encontrado esta web donde hay un código que sí funciona: https://stackoverflow.com/questions/33734706/excels-fullname-property-with-onedrive Gracias de nuevo,
    3 points
  40. Semana = Application.WorksheetFunction.WeekNum(Fecha)
    3 points
  41. Saludos @andres palacios, te dejo un ejemplo que toma los 12 datos de la pagina indicada, con esto deberías poder continuar esto es un archivo que baje hace tiempo de internet, simplemente lo ajuste para tu pagina, allí tienes bastante información suerte Ejemplo.xlsm
    3 points
  42. Prueba y comenta, veras que en el combobox te aparecen solamente valores únicos y ordenados alfabeticamente. listbox-comboboxPrueba(2).xlsm
    3 points
  43. Version 1.0.0

    34 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
    3 points
  44. Es un reconocimiento mas que merecido, para alguien como tu @Antoni Que todo vaya bien allá por tu lado, con esta "pandemia" Saludos
    3 points
  45. ¡Jo..!, no acierto ni una. Ahora creo que si. Planificación Formulario Final II.xlsm
    3 points
  46. 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
    3 points
  47. Siento no poder ayudarte, he analizando en profundidad tu archivo y no veo por donde cogerlo.😒 Eliminar filas/columnas en blanco y descombinar las celdas sería un primer paso, las macros no serían complicadas, si te interesan lo comentas. Por otro lado, estoy de acuerdo con Abraham. ¿Hay un fichero txt previo?, de ser así, quizás se podría atacar el tema desde el.
    3 points
  48. Yo no entiendo que tiene que ver le ejemplo que envías con el primer archivo.. Espero te pueda apoyar silvia. ¿Seria mucho pedir que llenes los datos en el excel como quieres que quede el resultado final, pero sin formulas ni nada sólo para darme una idea y sumarme a apoyarte?
    3 points
  49. Revisa el adjunto. Búsqueda de usuarios (2).xlsm
    3 points
  50. ¡Hola, de nuevo! Inclusive... dejo otra un poco más corta, con CSE (la anterior propuesta era no CSE). ¡Bendiciones! Contar Vecinos2.xlsb
    3 points
  • Newsletter

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

Important Information

Privacy Policy