Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation since 11/18/2009 in all areas

  1. Version 1.0.0

    324 downloads

    Es otro calendario mas a base de autoformas. Hay código en los módulos Calendario y Thisworkbook. Doble click en cualquier fecha o en una celda en blanco. No tiene misterio.
    9 points
  2. Version 3.0.0

    952 downloads

    Este es un aporte que había compartido en el foro de ideas y aportes por allá del 2014, se trata de una macro que puede crear un formulario para ingreso y modificación de datos sin necesidad de que el usuario escriba códigos. Lo subo de nuevo aquí ya que por lo que veo en el foro de ideas y aportes el archivo dejo de existir, dejo el link del post original ya que en el se encuentran mas detalladas las instrucciones y un video de como utilizar el aporte. POST ORIGINAL El mismo es un archivo .Bas y debe importar desde la ventana de VBA para después ejecutar la macro "MakeForm" que
    9 points
  3. Cálculo de rutas de montaña
    8 points
  4. Version 1.0.0

    145 downloads

    No tiene mas misterio de lo que explica el título. Abrir el archivo, pulsar sobre la flecha azul y ver lo que ocurre en la barra de estado. La idea no se me ha ocurrido a mi, pero me hubiera gustado.
    7 points
  5. Version 1.0.0

    271 downloads

    Se trata, se puede decir la evolución de este aporte Chat en red local desde excel, con la diferencia de que en lugar de utilizar textbox para mostrar los mensajes utilizo únicamente un control WebBrowser, lo que da mayor personalización. En el rar nos encontramos con un archivo excel y uno de access, el access debemos copiarlo a una ruta compartida en una red local, se debe modificar la ruta del mudulo1 del archivo excel(por defecto utiliza la misma donde se ubica el archivo excel). Podemos: *Cambiar el nombre de Usuario a mostrar en el chat. *Cambiar la imagen del Usuario
    7 points
  6. LeandroA

    Nuevo Aporte

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

    114 downloads

    Qué tal, A partir de una duda de un usuario, surge este archivo mejorado para la busqueda y apertura de ficheros Microsoft Office (Excel, Word y PowerPoint) y ficheros PDF. Entre otras tiene las siguiente características: Permite buscar solo en un directorio raiz, o en todo sus subdirectorios Permite buscar un fichero entre el listado de todos Permite filtrar por tipos de ficheros Permite volver a mostrar de nuevo todos los ficheros tras un filtro Espero que os sirva y os guste. Espero vuestras opiniones
    6 points
  9. Version 1.2.0

    143 downloads

    Qué tal, Después de mucho preguntar en el foro y búsquedas en internet, dejo este buscador de ficheros excel: - El directorio de búsqueda por defecto está en el código y por defecto es "C:\". Si no se necesita otro directorio, se introduce directamente el nombre a buscar - Permite buscar en los subdirectorios del directorio principal seleccionado, si se necesita la búsqueda en otro directorio - Las búsquedas de ficheros se hace mediante comodines, por lo que solo es necesario introducir parte del nombre a buscar - Permite la visualización previa de el área de impresión
    6 points
  10. Version 1.0.0

    165 downloads

    VBA Resource File Editor es una Herramienta para añadir recursos a nuestros documentos de Office, vale decir que no necesitamos acompañar una carpeta con el contenido sino más bien podremos incluir el contenido dentro del mismo documento. Vale aclarar este contenido es sólo de lectura ya que cualquier cambio no se guarda dentro del documento cuando utilicemos las macros. Ahora bien un poco de explicación de cómo funciona todo esto, los archivos de office tanto Excel como Word o Power Point no son otra cosa que Archivos.Zip que contienen documentos .xml y otro tipos de archivos, si uno ins
    6 points
  11. Antoni

    Calendario minimalista

    Version 1.0.0

    59 downloads

    Es un calendario al uso, sin misterios. Ya sabeis de mi debilidad por los calendarios, en este caso la gracia está en el código VBA. Os recomiendo que lo reviseis y os dareis cuenta que se puede hacer click en un label sin evento individual y sin módulo de clase. Calendario mínimo.xlsm
    5 points
  12. Antoni

    ¡ 5.000 likes !

    A por los 10.000. 🙂
    5 points
  13. 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
  14. A mi se me ha ocurrido esto, a ver que tal. consulta filtro combobox (2).xlsb
    5 points
  15. 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
  16. 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
  17. Hola foreros: Como esto está demasiado tranquilo últimamente, he decidido haceros la pregunta del enunciado de este post. Como miembro habitual del foro de macros he observado que este se está convirtiendo en un desfile de media docena de consultantes que preguntan y repreguntan lo mismo una y otra vez, todos sabemos quienes son, pero no dudamos en seguir contestándoles a pesar de ver que solo persiguen que resolvamos sus problemas con una herramienta que desconocen y, que según parece, no tienen el más mínimo interés en esforzarse en conocerla. Los cinco últimos consultantes a
    5 points
  18. Version 2.0.0

    1,026 downloads

    La contraseña del proyecto VBA es "riddle" Hola, el día de hoy voy a compartir una alternativa al control dtpicker, que seria básicamente un calendario que se instala como complemento y puede ser utilizado en cualquier formulario VBA. Los pasos serian los siguientes: 1. Descargar el complemento, es preferible que lo guardes en la carpeta por defecto para complementos de excel la cual suele estar aqui: "C:\Users\NOMBRE USUARIO\AppData\Roaming\Microsoft\Complementos", o simplemente lo guardan donde deseen. 2.Instalamos el complemento Guía para instalar complementos 3.Vam
    5 points
  19. Version 1.0.0

    112 downloads

    Útil para tratar muchos controles del mismo tipo con un único evento.
    5 points
  20. Hola Si eso, ocultar el menu y barras de excel (por el foro hay unos similares, pero no cae mal verlo de diferente forma:)) Espero que sirva... Saludos desde Honduras Ocultar Menu-Barras.zip
    5 points
  21. 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
  22. 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
  23. 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
  24. 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
  25. 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
  26. 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
  27. 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
  28. @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
  29. Hola! Hace 10 años, subí un aporte similar a lo que necesitas, abajo el tema Saludos
    4 points
  30. 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
  31. 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
  32. 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
  33. 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
  34. 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
  35. Ya esta, pueden probar el archivo. @OAGARCIA Saludos
    4 points
  36. @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
  37. ¡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
  38. 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
  39. ¡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
  40. Hola DavidBF, te valdría algo como esto ?
    4 points
  41. Hola Te adjunto una solución, siempre usando referencias 3D Saludos Sumar rangos referencias 3D_GP.zip
    4 points
  42. Hola @Enid86 El código del Maestro Antoni efectúa lo que necesitas. Suerte! Sub encontrar_letra() With Application .ScreenUpdating = False .DisplayAlerts = False End With ccol = Hoja1.Cells(3, 2).Value ufila01 = 0: ufila01 = Hoja1.Cells(Rows.Count, ccol).End(xlUp).Row ctexto = Hoja1.Cells(4, 2) With Columns(ccol) .Find(ctexto, .End(Down), , xlWhole, , xlPrevious).Select End With MsgBox "La última celda con valor: " & ctexto & " es la celda: " & ActiveCell.Address With Application .ScreenUpdating = True .DisplayAlerts = True End With End Sub
    4 points
  43. Bueno, ya está, no se si es lo que quieres, pero es lo que me ha salido. Abre el adjunto y pulsa sobre la flecha azul. aleatorio (1).xlsm
    4 points
  44. itzy alonso

    modo tactil

    Version 1.0.0

    79 downloads

    4 points
  45. Yo destinaría lo recaudado a ampliar el tamaño de los archivos que se pueden subir al foro.
    4 points
  46. Version 1.0.0

    281 downloads

    Saludos a todos, comparto un login que hace poco diseñe para ustedes, espero les sea de gran ayuda, me despido un abrazo informático a todos. Nota: el libro corre con: y el macro de se desbloquea con:
    4 points
  47. Version 1.0.0

    153 downloads

    Amigos en este nuevo aporte les traigo el archivo Copa FIFA Confederaciones Rusia 2017-Pronosticos que nos permitirá hacer el seguimiento al evento futbolístico más importante del año: Copa FIFA Confederaciones Rusia 2017; este puede ser usado de 2 maneras (en ambos casos el funcionamiento es el mismo): Simplemente como seguimiento de los juegos, donde vamos colocando los resultados de los juegos y vemos como va evolucionando la clasificación, se puede llevar el seguimiento hasta el juego final. Podemos usarlo para participar en una quiniela, hacemos nuestro pronóstico para todos l
    4 points
  48. Version 2.1

    163 downloads

    Amigos, saludos nuevamente.., ahora les traigo este Archivo/Programa que realice en Excel para hacer seguimiento a unos de los eventos futbolisticos mas importante del año: COPA AMERICA CENTENARIO - USA 2016; este puede ser usado de 2 maneras: Simplemente como seguimiento de los juegos, donde vamos colocando los resultados de los juegos y vemos como va evolucionando la clasificación, se puede llevar el seguimiento hasta el juego final. Podemos usarlo para participar en una quiniela, hacemos nuestro pronóstico para todos los juegos, se le envía la quiniela a la persona encargada y e
    4 points
  49. Aqui os dejo una pequeña utilidad para listar archivos, que encontre en el baul de los recuerdos, funciona con excel 2010. Espero que os sirva de utilidad Un saludo. listar archivos.zip
    4 points
  50. Hola, Os dejo aqui un archivo auxiliar que hice por necesidad de crear una animacion de casilla en un programa de ajedrez que ando haciendo en C++, como ya esta terminada esa fase de animacion, lo iba a guardar en el baul y me acordé de vosotros, quizas os guste para tener mas flexibilidad a la hora de pintar del color que mas os interese el color de fondo de las celdas. Aqui la formula, donde Pix.R, Pix.G y Pix.B han de ser sustituidos por el valor ROJO, VERDE, AZUL que os interese en un rango entre 0 y 255, habrá otros metodos pero este es el mio: Dim P8 As Double: P8 = 2 ^ 8 'p
    4 points
  • Newsletter

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

Important Information

Privacy Policy