Jump to content

Leaderboard

Popular Content

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

  1. Version 1.0.0

    241 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

    881 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. Hola, este es un aporte que había realizado hace algún tiempo en una consulta, se trata de un archivo en el cual a la hora de abrirlo solicitara una contraseña, si colocamos la contraseña de la demo (1234), solo podremos utilizar el archivo 3 veces (modificable) y si accedemos con la contraseña de administrador se podrá utilizar indefinidamente. El archivo crea una clave en el registro de windows para contar los usos del archivo. La clave del registro se encuentra aquí: HKEY_CURRENT_USER\Software\VB and VBA Program Settings\Clave\Defaults Saludos a todos. Demo.rar
    7 points
  5. Version 1.0.0

    229 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. No tenemos la BD Access, no sabemos la tabla y no tenemos el formulario. ¿Asi pretendes que alguien te ayude? ☹️
    6 points
  7. Version 1.0.0

    131 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.
    6 points
  8. 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
  9. 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
  10. 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
  11. avalencia

    vsto vs JavaScript

    Hola Aunque por mucho tiempo Microsoft intentó impulsar el uso de VSTO, en mi evaluación no lo ha logrado y somo muy pero muy pocos los que conocemos su uso. No tengo duda de que eso se debe a qué necesariamente hay que descargar/tener alguna versión de Visual Studio, lo que no necesariamente quiere o necesita un usuario de Excel por más que sea programador de VBA, ya que basta instalar Office y/o Excel para usar dicho lenguaje. Sobre JavaScript, y "derivados" que se pueden usar en Excel, no creo que vaya en detrimento de VBA, sino más bien que ante la constante necesidad de usar la
    5 points
  12. ¡Saludos @MAURO_1512! ( y a todos los integrantes de este post ). Creo debes tener en cuenta que aquí en el foro estamos para ayudar en cosas puntuales, siempre y cuando se tenga claro qué es lo que se quiere hacer. Ten en cuenta que el foro es gratuito, y cada quien ayuda según su disposición, y en algunas ocasiones, su paciencia, como bien la ha tenido el amigo @bigpetroman. Te recomiendo para una nueva oportunidad de pregunta, y un nuevo tema, ordenes tus ideas y tengas súper claro lo que quieres hacer, para que la ayuda sea precisa y concreta. Es muy incómodo (al menos para mi
    5 points
  13. Hola a todos Algo de teoría: - Es más rápido usar fórmulas "nativas" ingresadas directamente en las celdas que usarlas insertándolas a través de VBA - Cuando se dice que es más rápido usar macros (VBA) en lugar de miles de fórmulas, quiere decir realizar los procesos a través de dichas macros, no que se inserten esas mismas fórmulas a través de ellas porque termina siendo más lento que el punto anterior (tal y como le sucede ahora a nuestro amigo) - Las fórmulas, sean insertadas con macros o directamente, siempre son más lentas cuando usan rango "indeterminados" tipo "C2:C"
    5 points
  14. Hola! Así como lo planteas... solamente con macros. Yo te diría que luches para no crear usuarios mancos... está bien que no sean profesionales en Excel pero es solo insertar filas, no es algo que requiera un elevado conocimiento ni profesionalismo, creo que no deberías acostumbrarlos a que hasta lo más pequeño se haga automáticamente y hacerlos despertar al menos las habilidades mínimas. Igual contribuyo a tu afán de crear usuarios zombies con una pequeña macro, en la segunda hoja está la configuración según el calibre. CONTROLES.xlsm
    5 points
  15. Antoni

    Calendario minimalista

    Version 1.0.0

    39 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
  16. Version 1.0.0

    95 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
    5 points
  17. Version 1.2.0

    107 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
    5 points
  18. Version 1.0.0

    151 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
    5 points
  19. Version 1.0.0

    102 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. 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
  22. 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
  23. 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
  24. 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
  25. A mi se me ha ocurrido esto, a ver que tal. consulta filtro combobox (2).xlsb
    4 points
  26. 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
  27. 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
  28. 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
  29. ¡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
  30. 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
  31. ¡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
  32. Hola DavidBF, te valdría algo como esto ?
    4 points
  33. 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
  34. 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
  35. Esta es la aplicación muy fácil de utilizar.
    4 points
  36. Hola @Enid86, si lo que buscas es saber si la variable "vehiculo" se encuentra dentro de la matriz "listacalidad", puedes utilizar esta linea: If UBound(Filter(listacalidad, Vehiculo)) >= 0 Then Esto buscara dentro de la lista cuantas veces aparece el vehículo, si no aparece devuelve un -1, si aparece devuelve un numero mayor o igual a 0 dependiendo de las veces que se repita dentro de la lista. Saludos a ambos @Sergio, @Enid86
    4 points
  37. bigpetroman

    formato en textbox

    amigo @pildo asi pudieras hacerlo asi Private Sub ComboBox1_Change() Dim nTiempo As Double On Error Resume Next TextBox1 = ComboBox1.List(ComboBox1.ListIndex, 1) nTiempo = CDbl(TextBox1) * 24 TextBox2 = Int(nTiempo) & ":" & Format((nTiempo - Int(nTiempo)) * 60, "00") End Sub
    4 points
  38. Juan P esto sucede porque el evento Worksheet_Change que ha utilizado Gerson están dirigido a los cambio que ocurran en la celda E2, si lo que deseas es aplicar en E4 solo debes cambiar la referencia. Private Sub Worksheet_Change(ByVal Target As Range) '************ by Gerson Pineda ************ '************ Feb/2020 ************ On Error Resume Next Application.EnableEvents = False With Target If .Address(0, 0) = "E4" Then .Value = _ VBA.Left(.Value, VBA.InStr(1, .Value, " ", vbTextCompare) - 1) End With Application.EnableEvents = True On Error GoTo 0 End Sub
    4 points
  39. Antoni

    COMMANDBUTTON

    😂😂😂😂
    4 points
  40. Jajajaja, mi propia medicina.... Estaba preparando un ejemplo nuevo (el archivo que tiene el control que me da el problema es confidencial), pero en el nuevo archivo funciona bien...
    4 points
  41. Un poco de humor informatico...
    4 points
  42. hola marroco312 (y Gran Antoni ♥♥♥♥♥) Tengo un amiguito que me ha pedido que te envíe esta fórmula, tal vez también podría serte de utilidad. =2+ENTERO((DIA(A1)-9+DIASEM(A1-DIA(A1)+1))/7) saludos, Silvia
    4 points
  43. itzy alonso

    modo tactil

    Version 1.0.0

    65 downloads

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

    265 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
  46. Version 2.0.0

    522 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
    4 points
  47. LeandroA

    MSO UI Editor

    Version 1.0.0

    68 downloads

    MSO UI Editor es una herramienta para personalizar la interfaz de usuario de Microsoft Office como ser la cinta Ribbon, Menu contextual entre otras, mediante el formato XML, es casi una copia del “Custom UI Editor For Microsoft Office” pero éste trae unas pequeñas mejoras. Esta programado en Visual Basic 6. Cuenta con un detector de errores en la formación del xml y utiliza .xsd que garantizan una mejor validación. También genera automáticamente los Callbacks para los eventos en VBA, otra opción extra es que se puede buscar y reemplazar en el xml. Me hubiera gustado poder armar
    4 points
  48. Version 2.1

    108 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