Hola: Poner esta macro en un libro nuevo y ejecutarla. Os pedirá un libro. La macro, genera una copia del mismo eliminando todas las macros, modulos y formularios. Al nombre de la copia, se le antepone "Sin macros_" + Fecha + Hora Sub EliminarMacrosLibro() ' ' Esta macro elimina todo el código VBA de la copia del libro seleccionado ' ------------------------------------------------------------------------ ' Application.ScreenUpdating = False ChDir ThisWorkbook.Path Archivo = Application.GetOpenFilename _ ("Excel (*.xlsm; *.xls ), *.xlsm;*.xls", , _ "Seleccione el archivo al que desea eliminar el código VBA.") '-- Application.EnableEvents = False Wo…

Hola a todos He buscado si ya hay un tema similar en el foro pero no lo encontré, así que ahí va. Navegando por ahí encontré este archivo que quisiera incluir en este foro. Contiene una función con la que se puede Oír la Lectura de Números. Lo único que solo lee números enteros. Tal vez alguno de los expertos lo pueda modificar para que también lea con decimales. Subo el archivo a este enlace porque la carpeta es grande y contiene pequeños archivos wav y el archivo xlsm https://skydrive.live.com/?cid=452b8b6a68e9bbe7&id=452B8B6A68E9BBE7%21105 En fin, me parece que seria de gran utilidad a muchos. Saludos y que viva los foros que de ellos aprendemos todos.

Hola a todos! Vengo de vuelta con este pequeño sistema de gestion de stock que realice en la universidad y que espero que a muchos les sea de gran utilidad, principalmente por que viene desprotegido y pueden consultar el codigo. Espero sea de gran interes y ayuda para muchos. Ya no tuve tiempo de hacerle mejoras o modificaciones y francamente no recuerdo si de vez en cuando me arrojaba un error, por eso dejo el codigo abierto para su mejora o modificacion. Para realizar dicho sistema me base en el siguiente: Excel Gestión de Stocks y almacenes - Macro Excel vba Ya posteriormente quizas suba un sistema punto de venta que se conecte a Access, sin mas por el momento, es…

Buen dia Estimados señores Como siempre, un honor en estar en el foro que me ha dado mucho y con el que he aprendido mucho gracias a todos. Dejo humildemente un nuevo aporte para crear reportes de clientes y proveedores. Dicho reporte cuenta con: Una hoja llamada "Menu" Una hoja llamada "Clientes" Una hoja llamada "Proveedores" Una hoja llamada "Filtro" Una hoja llamada "Informes" Cada una cumple una funcion especifica pero para el reporte, estas converjen la informacion en un formulario con el cual se selecciona los clientes o proveedores a consultar. No obstante, cuenta tambien con un formulario para filtrar por fechas, con la opcion de; Solo colocar…

Hola: Os dejo una macro VBA para vuestro documento de Word. Si ejecutais esta macro, se generará un libro Excel con el documento en la columna 1. El editor de VBA de Word, funciona exactamente igual que el de Excel. Añadir un módulo al Proyecto y copiar la macro: Sub DeWordAExcel() ' 'Esta macro, debe estar en el documento de Word en un módulo normal, 'y se ejecuta igual que en Excel, Alt F8, seleccionar la macro y pulsar "Ejecutar" Application.ScreenUpdating = False Set ConexionExcel = New Excel.Application With ConexionExcel .Workbooks.Add .Visible = True .Cells.Clear End With x = 1 Selection.HomeKey Unit:=wdStory Do Until Selection.Bookm…

Buenas a todos. Me toco crear un calendario que se genere automático con las fechas de la comunidad Autónoma, en este caso, las de Asturias. Peros se pueden cambiar con las de vuestra comunidad. Cuenta los días de guardias festivos y laborales x trabajador tiendo en cuenta los colores asignados a cada uno en el calendario. Lo comparto con vosotros por si os hace falta. Un saludo a todos. Calendario.zip

Hola: A raíz de una consulta de Muscaria, se me ha ocurrido que le podría servir a alguien. Pulsar la barra de desplazamiento del formulario para ver el efecto. Saludos Ver post #9 Redimensionar formulario.xls Redimensionar formulario Plus.xls

Bueno, realmente lo que adjunto no es un aporte para ayudar a resolver proyectos futuros, sino que es el resultado final del trabajo que estaba realizando para ayudar a controlar los gastos en este año nuevo (que voy a necesitarlo mucho a partir de ahora...). No es gran cosa en cuanto a conocimientos de excel se refiere, pero está terminado. Es el mismo archivo que colgué en un post preguntando por el control SpreadSheet ( https://www.ayudaexcel.com/foro/macros-programacion-vba/20568-pendiente-listas-desplegables-formatos-multiples-control-spreadsheet.html ) y que Macro Antonio me resolvió magistralmente (para variar). Lo empecé a hacer porque en Internet nunca encontra…

Hola, hace poco digitalboy (a quien aprovecho para expresar mi admiración y respeto), compartió con nosotros el Zen de Python: Hermoso es mejor que feo. Explícito es mejor que implícito. Simple es mejor que complejo. Complejo es mejor que complicado. Plano es mejor que anidado. Disperso es mejor que denso. La legibilidad cuenta. Los casos especiales no son suficientemente especiales como para romper las reglas. Aunque lo pragmático gana a la pureza. Esta serie de principios resulta relevante para cualquier lenguaje de programación, incluido VBA. Cada quien tiene su forma de hacer las cosas. Como todos, supongo, he ido cambiando mi forma de escri…

El objeto de la clase ActiveProcessInfo, nos indica el nombre del proceso activo. He combinado dos librerías para conseguir tal efecto; La librería de KillProcess (que recorre los procesos y tiene acceso al nombre .exe) y la librería para obtener la ID del proceso activo. He buscado y buscado por internet sin encontrar nada similar y en mi búsqueda he encontrado muchos hilos de gente que buscaba esto mismo pero sin ningún éxito. ¿Qué para qué sirve? En mi caso, el uso que le he dado ha sido para restringir la ejecución de una macro solo a las ventanas activas que yo decida. En el siguiente ejemplo, el programa solo se ejecutará si tenemos abierto el navegador Firefo…

Señores tengo el siguiente problema: Este es el problema 850 250 250 693 al final tengo que suma en una misma fila por ejemplo los datos que sean mayores a 250 y menores que 700 e utilizado la funcion sumar.si pero nada ayudenme por favor - - - - - Mensaje combinado - - - - - ESPERO RESPUESTA

La clase ClaseDoubleClickDetect, permite detectar un evento de doble click desde fuera de la aplicación Excel. El comportamiento es bastante similar (por no decir exacto en las pruebas que he realizado mientras depuraba el código) al comportamiento de la cajita de pruebas de doble click del apartado Mouse en el panel de control. La única pega que tiene, es que no he conseguido extraer automáticamente el valor de tiempo de espera entre clicks del sistema establecido desde el panel de control DoubleClickTime , sin embargo, le he añadido una propiedad a la clase para asignarle los milisegundos de espera Objeto.DoubleClickTime = EsperaMilisegundos (TipoLong), si no se le asi…

Hola, En varios foros y sitios se encuentran archivos de excel se sirven para buscar datos en un rango (o tabla) y además de ello obtener también una imagen junto con la busqueda. Algo asi como buscar los datos de una persona en una base de datos y poder traer su propia foto. Le dejo una solución que se me ocurrio a esta consulta. Gabriel Buscar Imagen.zip

Hola: Como parece que os gustan mas los dibujitos que las cosas que realmente sirven para algo, aquí os suelto un reloj de diseño, no sirve para mucho, pero vaya Vd a saber. Los tres círculos amarillos pueden situarse en cualquier lugar y pueden tener las dimensiones que queramos. Ctrl+r para arrancar el reloj Ctrl+p para parar el reloj El reloj consta de 6 objetos visuales, autoformas, imágenes,.... lo que querais. Tres de ellos corresponden a las "Esferas", deben llamarse "Horaria", "Minutero" y "Segundero". Los otros tres objetos pertenecen a las "Saetas", y deben llamarse, "Horas", "Minutos" y "Segundos". Las "Esferas" deben dibujarse y colocarse tal como quer…

(NUEVO) AimKeys (Enviar combinacion de teclas directamente al buffer del teclado) Mi aporte no es la API (mas info de la API al final del post), sino la función AimKeys, que no es más que un gestor de combos de teclas muy sencillo de usar. Usa la misma sintaxis que AIM Keys, All-in-One Macro Utility, el cual llevo años usando y quizás por esto me resulte coherente usar dicha sintaxis. En la demo, cuyo código pongo debajo de este párrafo, encontrareis algunos ejemplos de uso, es bastante intuitivo pero si tenéis alguna duda puedo poner más ejemplos. Sub AbrirNotepad() AimKeys "<winr>r<winr><wx>(200)notepad<enter><wx>(700)" End Sub …

Hola a todos, incluso a ti que lo dudas: Se trata de un apaño, o sea una burda copia (desconozco el autor) a la que le he lavado un poco la cara y le he añadido un formulario de búsqueda. Hay dos botones, uno para añadir a la hoja todos los archivos de un directorio y todos los directorios que cuelguen, el otro abre un formulario de búsqueda. Espero que os guste, y si no, pues,....eso. Saludos Folder and file browser.xls

Nota: cualquier funcionalidad nueva, con gusto se puede agregar (con sus respectivas menciones). Presentando en sociedad mi complemento con el mismo nombre de este Blog: EXCELeINFO. Trata de un add-in con algunas funciones generales aplicables a archivos de Excel. He tratado de incluir las utilidades que durante el transcurso de tiempo me han sido fundamentales para desempeñar mi trabajo. Con el paso del tiempo iré añadiendo más funciones, pero creo que esta primera versión pública es totalmente funcional. La característica principal es que los menús principales se distinguen por la primera letra del nombre del menú, además de que sólo es funciones con versiones de Excel…

Hola: Después de ver la función Sumar.Si 3D, del hidalgo caballero Don Cacho de la Pampa, he tenido un ataque de envidia, sana por supuesto, si es que eso es posible, y tras dos Ballantines 12 años, ya que la ocasión lo merecía he "parido" un formulario que permite buscar, reemplazar, resaltar e incluso añadir fórmulas en cualquier hoja de nuestro libro, bueno del nuestro o de cualquier otro ,......jajaja. ¡ Be happy !,....si,...tu también. Bye! Buscar 3D.xls

Hola niños y niñas: El adjunto está preparado para una Entidad escolar, pero es válido para cualquier estructura de 1 a tres niveles. Es multiubicación, solo hay que añadir una hoja con el nombre "AULA " seguido de un número y las fechas en la columna 1. Ocupa las 24 horas del día en fracciones de 30 minutos. Contiene un control para evitar el solapamiento de horarios en la misma AULA. Al seleccionar cualquier celda dentro del rango de datos (A:J) se mostrará el formulario de actualización. Es bastante intuitivo, pero ya sabeis que cualquier duda o problema será solucionado o no, vaya Vd a saber. Que Dios bendiga a los creyentes, y los ateos os bendecís vosotros so…

SIMULAR SER UN TECLADO Ejecutar combinacion de teclas directamente al buffer del teclado He pasado un calvario antes de toparme con este magnifico codigo al que se le puede sacar mucho partido. Este post es la respuesta a otro en el que andaba buscando una funcion que insertara las teclas directamente al buffer del teclado, simulando ser una persona que presiona la tecla. Me refiero a que, con esta funcion, ya no hay que ir apuntando a la aplicacion a la que queremos enviar las teclas. Sera exactamente igual que si presionaramos nosotros mismos las teclas en el keyboard, por lo que funcionaran cosas como: ALT+TAB= display aplications, CONTROL+ALT+SUPRIMIR, es decir, cu…

Hola: Como copiar una hoja sobre otra sin copiar los objetos que haya en ella. Sub NoCopiarObjetosAlCopiarHoja() Application.CopyObjectsWithCells = False Hoja1.Cells.Copy Hoja2.Range("A1") Application.CopyObjectsWithCells = True End Sub [/CODE] Vale mas esto que nada. :glee:

Buen dia Señores expertos: Dejo humildemente un archivo para filtrar de acuerdo a la primera letra por medio de bucle do while loop. Es algo sencillo para muchos pero en lo personal, es una option mas a las tantas que contamos y que nos ayudará en nuestras tareas. Mis respetos para todos. P.D. El codigo empleado fue suministrado por el señor experto Macro Antonio, quien gentilmente me apoyo en dos interrogantes y de los cuales los modifiqué para hacer el filtro, ademas de otros trabajos que espero exponerlos para ustedes. Mil gracias señor Macro Antonio. Filtrar por la primera letra.zip

Una referencia del tipo 'Hoja 1:Hoja 12'!F15:G30 se denomina Referencia 3D (sugiero dar un "paseo" atento por el enlace que muestro). ___ De acuerdo a lo que nos informa ese artículo técnico sólo algunas funciones del Excel pueden trabajar sobre referencias 3D. Una de las que no puede hacerlo es -precisamente- la función SUMAR.SI (SumIf en inglés). Una alternativa sería utilizar una función personalizada como la que muestro en el archivo adjunto: ¡Espero que sea de utilidad! Saludos, Cacho R. SumarSi3D.xls

Para aquellos que utilizais el control DTPicker: El control DTPicker, si está dentro de un control MultiPage, pierde el valor al cambiar de página. Solo eso, que no es poco.

Hola! Les comparto el siguiente link en el cual se pueden decargar un ejemplos de codigo para la creacion de graficos y como exportarlos como imagen: Creación de gráficos con VBA/Excel « MeXcel Plus Principalmente se ve como modificar el chartarea, plotarea, series, algunas de las propiedades de los graficos. Saludos!