Hace unas semanas me encontraba elaborando la macro para recolectar los datos de varios libros en unos solo. Había casos en los que debido a la mala disposición de los datos, mi macro no sería capaz de tomar los datos. Entonces, que hacer para informar de ello al usuario? Podría imprimir un mensaje en pantalla indicando el archivo y el tipo de error y detener la ejecución de la macro para que el usuario hiciera las modificaciones de forma manual y ejecutara nuevamente la macro. Este proceso no se me hizo tan fluido, así que me vino a la mente que en un anterior empleo había un sistema que llevaba un Log (bitácora) de todos los cambios y errores en el mismo, así que puse …

Buen día para todos Les quiero compartir esta macro que desarrollo. En sistensis un archivo que sirve para registrar pedidos en una base de datos, pero se los comparto por que tal vez alguna macro de las que tiene le sirva a alguien; solo es revisar y cacharrear. Tiene - Búsquedas exactas y carga a textbox y listbox con afterupdate - Cargas de textbox a listbox - Carga de listbox a hoja de calculo - Carga de datos de hoja a textbox y label; carga de textbox y label a hoja - Acumula datos para grabar mucha información - Genera consecutivo por fecha - Suma columnas de listbox - Operaciones matemáticas con afterupdate - Operaciones de conteo y suma de base de dato…

Buenas noches Del tema : Solucionado - Macro guardar en varias hojas me tomo la libertad de aportar el archivo con las modificaciones para que sea aprovechado en el foro. Es una buena opción de registrar información en la hoja correspondiente de acuerdo al nombre del dato a registrar. Espero les sea útil. Saludos. Registrar Dif. Hojas.zip

Hola: Se trata de una pequeña aplicación para registrar Incidencias, en este caso, de devoluciones de material de un fabricante de calzado. Es muy sencilla, ya que se trata de un simple registro, no relaciona la incidencia con el pedido y no genera el abono. Pero puede servir como punto de partida para objetivos mas altos. La aplicación permite altas, bajas, modificaciones y consultas al registro. Espero que a alguien le guste Este aporte nace del siguiente tema: https://www.ayudaexcel.com/foro/macros-programacion-vba-10/guardar-datos-ojal-excel-desde-listbox-30540/ Saludos a todos Registro de incidencias.zip

Buenas tardes Estimados A continuación les dejo un pequeño aporte que quizás ya lo conozcan. Es la alarma con el sonido Cuco. Al abrir el archivo Excel, se ejecutará el código para que suene tres veces. Pueden ver el código fuente y adaptar a gusto. https://drive.google.com/open?id=0BxjdxiezqhOBfkgtNTgyQnc3aERhaWU0OHpPakpBbDQ3LU1ZYXJfWFJxUHZGRGhRVUNaYjQ&authuser=0 Saludos cordiales.

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…

Hola, He estado dándole vueltas mucho tiempo a esto, así que lo acabo de materializar tras descubrir la función ontime y os lo pongo para que le echéis un vistazo. Es un reloj de varilla. Hay por ahí ya intentos de reloj (que supongo funcionarán), pero para que funcionen hay que hacer mil historias, calcular senos, cosenos, ángulos, grados y muchas "cosillas" más, todo porque en Excel no se puede poner un punto de giro que no sea el central de una autoforma. Yo he tirado por el camino de enmedio: como una autoforma se puede rotar desde el centro, he hecho que el 50% de la autoforma que es la varilla quede transparente, así que puedo rotar "desde la base de la varilla", s…

Buenas tardes Envío dos relojes que me parecieron curiosos Gracias Saludos José Carlos reloj americano.zip Reloj en Excel - la hora en Excel.zip

Les presento remusoft...una aplicación hecha con macros excel combinadas con conexiones ADO y base de datos Access, es muy intuitivo... saludos https://t.co/7ihQ8HCgxh

Hola a tod@s, acabo de ver un tema que pregunta sobre ésto mismo, pero en vez de colocarlo en ese post, lo pondré en los archivos de "APORTES" así lo podrá encontrar cualquiera que necesite algo así más facilmente, con éste archivo tan solo poniendo el número de los equipos o jugadores participantes, escogiendo si la liga será solo de IDA o IDA y VUELTA, y ejecutando una macro, se repartirá la liga completa, ya solo quedará poner en las casillas correspondientes y solo una vez los equipos o jugadores participantes, y automáticamente aparecerán en las jornadas. Espero que os guste y sea provechoso, eso sí seguro que ahorrará muchísimo trabajo. Un saludo, Germán. REPARTO…

Hola amigos, en muchas ocasiones han salido temas referentes a ligas de fútbol, y otros deportes, pero en ninguna ocasión (o al menos yo no lo he visto) se ha hecho nada para el reparto del engorroso trabajo de realizar el reparto de todos los equipos o jugadores (ya que sirve tanto para deportes colectivos como individuales) de una manera automática. Pues en eso consiste este archivo, lo que se hace es seleccionar el número de equipos/jugadores que va a llevar el campeonato, escoger si será solo de IDA o de IDA/VUELTA, y tan solo con ejecutar se realizará el reparto, luego en la tabla insertas los equipos y voile, todas las jornadas repartidas, fácil manejo y seguro que…

Aqui el trabajo con la posible solucion a un tema de Sub-totales al cual me tome la libertad de modificar. Espero les sea util. VENTAS y GASTOS 2012.zip

Buen día La presente es para dar un nuevo aporte el cual está creado con la intención de ser usado para motivos de aprendizaje y que de igual manera también será para consultas ya que tengo algunas preguntas sobre "Consultar Dos Tablas Access a la Vez". No obstante, queda a la orden para que lo usen cuando gusten y si tienen alguna idea más que pueda servir, bienvenida sea. El archivo está diseñado para crear una conexión ADO (activex data objects) con Access. Ejemplo de Ejecución: Crea la conexión Coloca los encabezados por medio de Código Abre la Tabla Registro Agrupa por Materiales y Descripción que están en la tabla Registro y los pega en la Hoja3 y cierra…

Bueno amigos foristas este pequeño aporte es para aquellos amantes del excel que trabajan con base de datos(access, Firebird) y que desean mostrar reportes incluyendo jerárquicos (Cabecera y Detalle) e imagenes, codigo de barras etc. los cuales no desean mostrar o utilizar las hojas de excel, para eso se necesita un reporteador (ReportManager) open Source (libre) aclaro este reporteador a pesar de ser lijero es muy potente yo lo utilizo con .net Report manager es una aplicación de generación de informes (Report Manager Designer) y un conjunto de componentes para Delphi , Builder y Kylix, también puede utilizarse desde otros entornos de desarrollo con el componente Act…

Si te gusta ver vídeos y te gusta Excel, ¿por qué no verlos sin salir de Excel? Enlace aquí: Reproductor de listas de vídeos Descargando el fichero adjunto y habilitando el contenido y las macros se pueden ver 9 vídeos a la vez y controlarlos en Excel 2010 y posteriores. Algunos controles no se pueden usar en Excel 2007. Este es su aspecto: La versión 1.1 permite hacer zoom de la hoja "Videos". Videos_PW1.0.zip Videos_PW1.1.zip

Hola estimados amigos de este foro., como somos fans de vba.. subire este archivo para que disfruten de su musika y videos en excel desde un form.. esta es la version 1.0 hire mejorandola.. Pueden ver videos y audios,. ajustar volumen y todo lo demas desde tu lista de reproduccion q tu elijas.. estoy en eso de que sea continua la lsita para escuchar.. Gracias y saludos. REPRODUCTOR.rar

Buenas tardes, continuando con el post https://www.ayudaexcel.com/foro/threads/reproducir-videos-y-oir-musika-en-userform.38372/ Subo archivo mejorado,. no es mas que un formularios mas mejorado visualmente,. agregandoles los controles de WMP. a los botones que nos proporciona el BVA.. le hiba a colocar imagenes en movimiento (.gifs).. pero tenia que direccionar al disco duro C: y ustedes al igual pegar la carpeta en el C: para poder visualizar las imagenes en movimiento.., ya que se ocupa el control WebBrowser. Tambien talvez mas adelante... dejare el reproductor,. sin el video y con un boton de que de la opcon de ver el video o no. Espero les guste.. MMM. talvez l…

Hola amado "Populus romanae": "Vos" dejo una pequeña macro para resaltar parte del texto de una celda. Antes de que lo pregunteis, deciros que no se puede poner color de relleno. [SIZE=2][FONT=courier new][COLOR=#000080]Sub ResaltarParteDeUnaCelda() Range("A1").Select cadena1 = "Esto es una prueba " cadena2 = "[/COLOR][B][SIZE=3][COLOR=#ff0000]de poner mas tamaño, resalte y color [/COLOR][/SIZE][/B][COLOR=#000080]" cadena3 = "de una cadena de texto entre otras dos. " inicio = Len(cadena1) + 1 longitud = Len(cadena2) ActiveCell = cadena1 & cadena2 & cadena3 inicio = Len(cadena1) + 1 longitud = Len(cadena2) With ActiveCell.Characters(Start:=inicio…

El siguiente código que encontré y que me gustaría compartir con vosotros es el siguiente: Cuando tenemos una tabla bastante grande y bajamos por ella, queremos buscar uno de los campos y muchas veces nos resulta bastante cansado cuando llevamos muchos registros. El siguiente código realiza esta acción, es decir, cuando bajamos por las filas y queremos marcar por ejemplo el valor de la columna I insertaremos el siguiente código dentro de la Hoja. COLUMNA_INICIAL -----> Es la columna que queremos marcar. COLUMNAS ----------------> El el número de columnas que vamos a marcar Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Forma A…

Buenos compañeros navegando por internet me encontre esta macro, el documento tiene un Sudoku en blanco, escribimos nuestro Sudoku, le damos al boto de ejecutar macro y listo excel nos llena el resto, la macro no tiene pass, por si alguien quiere ver y entender la misma, busque en el foro primero para no poner el oporte repetido pero no encontre algo asi. Saludos. Sudoku.zip

En algunos casos se utilizan macros para agregar menú contextual, pero se les olvida colocar una macro para cerrar el menú contextual agregado y suelen aparecer en todas los libros de Excel y hay veces que esto suele ser muy molesto. Por tal motivo comparto este archivo. Espero que les sea de utilidad. Salu2 tmp_21015-Restablecer Menú Contextual273876200.xls

Quién no recuerda este juego antiguo?, el rompecabezas clásico de números, que desafía su lógica para ordenar números sequencialmente. Espero le guste y puedan disfrutarlos. Saludos, JULIO RompeCabeza.rar

. Anteayer se planteó una consulta en el foro de Microsoft Excel for Developers sobre como rotar una imagen en un formulario, cosa que no es nada fácil. Nada que ver con Girar o voltear una imagen, forma, cuadro de texto o WordArt - Excel - Office.com [DBOX]rotate a picture on a form[/DBOX] Al final Andreas Killer la resolvió en este foro: [DBOX]rotate a picture on a form - Microsoft Community[/DBOX] Se basó en un foro alemán de Visual Basic: [DBOX]VB 5/6-Tipp 0659: Grafik mittels GDI+ drehen und spiegeln - ActiveVB[/DBOX] Y yo he copiado la idea y adjunto mi aporte sin haber analizado la API de Windows GDI+ La tengo como tarea pendiente y me lleva de cabe…

Hi bross: Pulsar sobre la ruleta para hacerla funcionar. Salu2. Ruleta.rar

No se si sera de utilidad o no , pero me lo he encontrado en la biblioteca que tengo, que estoy liado con lo de saber el nombre de los equipos de una red y a aparecido esto. Repito que no es mio. Sub NroSerieDisco() Dim fs, d, s, t, drvpath drvpath = "C" Set fs = CreateObject("Scripting.FileSystemObject") Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath))) Select Case d.DriveType Case 0: t = "Desconocido" Case 1: t = "Separable" Case 2: t = "Fijo" Case 3: t = "Red" Case 4: t = "CD-ROM" Case 5: t = "Disco RAM " End Select s = "Unidad " & d.DriveLetter & ": - " & t s = s & vbCrLf & "NS: " & d.SerialNumber MsgBox…