Amigos, dejo este aporte en base a una solicitud en este tema: https://www.ayudaexcel.com/foro/threads/intercambio-de-celdas.38648/ La idea es poder intercambiar los datos entre 2 celdas o grupos de celdas, se permite 1.- intercambiar datos de un area a otra area, siempre y cuando la cantidad de filas sean igual en ambos rangos (solo se permite una columna x area) 2.- las areas o rangos pueden comenzar en filas diferentes (siempre que mantengan la misma cantidad de filas) 3.- si el area seleccionada es una sola area, la cantidad de filas debe ser PAR, y se divide en area en 2 grupos (superior e inferior) y se intercambian los datos. 4.- otras mas que pueden ver en e…

Accedemos a la Web de Yahoo Finance y rellenamos las fechas para que nos descargue las cotizaciones del Ibex-35 de las sesiones deseadas. Posteriormente hacemos click en en el botón "Consulta la Cotización". Comprobamos si hay un link con el nombre "Siguiente" para hacer click en él y seguir descargando datos si los hubiese.

Este aporte ha sido sustituido por este otro: https://www.ayudaexcel.com/foro/ideas-aportes-64/nuevo-indice-del-foro-ideas-aportes-26147/

En este vídeo se muestra la posibilidad de poder enviar e-mails, con VBA, a través de nuestra hoja de cálculo Excel. Lo hacemos desde cuentas creadas en Gmail o Hotmail pudiéndose hacer desde cualquier otra cuenta.

En el post 10 de este hilo, teneis los dos archivos con la solucion al problema que se plantea abajo y ademas un video donde se explica como han de montarse los archivos para que funcionen correctamente a traves de la red. Ir al POST 10 Hola, Hacia tiempo que no me encontraba con un problema que no se ni por donde cogerlo. - Tengo un libro que se guarda cada 15 segundos con "thisworkbook.save", el libro ejecuta una macro infinita y debe estár siempre funcionando. - El libro está compartido en red, dicho libro es copiado desde otros equipos cada X segundos a traves de la red. Todo el montaje funciona aparentemente bien y puede estár horas funcionando como debería…

Hola: Como parece que mi último aporte no os ha impresionado lo mas mínimo, con este os voy a deja con la boca abierta y las mandíbulas desencajadas. Se trata de una macro que incorpora la lista de macros disponible en el menú contextual (Click derecho). En un módulo normal, añadir: ' ' Macro para añadir la lista de macros en el menú contextual ' '--------------------------------------------------------- ' Sub AñadirMenuContextual() 'Restablecemos el menú contextual '-------------------------------- RestaurarMenuContextual 'Añadimos Label "Lista de Macros" al menú contextual '--------------------------------------------------- Set cmdNew = CommandB…

Esta macro elimina duplicados de la columna que selecciones en el inputbox espero les sirva a mi me funciona bien en excel 2007. no se si se podra optimizar aun mas, pero igual queda a libre modificación. Sub RemoverDuplicados() Set rng = Application.InputBox("Selecione celda...", Type:=8) Range(ActiveCell, ActiveCell.End(xlDown)).Select Selection.RemoveDuplicates Columns:=1, Header:= _ xlYes End Sub [/CODE] Salu2.xlsx

Hola a todos...conparto una macro con los usuarios de este foro, para las personas que no emiten facturas electronicamente y solo requieran de guardar sus registros de facturas...creo que esta les puede ayudar y por que no si, hay alguien quien pueda ayudar a mejorarla, pos le agradeceria..de hecho todavia le voy hagregar mas cosas para personalizarla y mejorarla y agragrale algunos comandos mas para que tenga otras funciones interesantes...espero y les guste posteriormente como dije antes,,lo mejorare y suvire mas macros para otras funciones y si alguien necesita ayuda,pues podran mandarme algun mensaje. Saludos password VBA: vcra840213bm8 password Hojas: AAABABBB…

Hola a todos: Aquí os dejo mi último pensamiento filosófico, un formulario que permite convertir "un rango" en un archivo .jpg. Observad que he resaltado "un rango" porqué de hecho, y dado que al "fotografiar el rango" también se incluyen las imágenes contenidas en él, podemos en la práctica, generar un archivo con los rangos que queramos en una sola imagen. También podemos modificar las propiedades de la imagen del rango antes de generar el archivo .jpg. Pues eso, puede ser útil para ayudas, presentaciones, enviar rangos por e-mail sin datos,..................... Saludos a todos Rango a jpg.xls

Hola A raiz de un tema del foro, es que se me ocurrio elaborar este aporte, y bueno como acostumbro/trato que si es de automatizar procesos con VBA, el codigo/macro sea lo mas sencillo/simple posible para a la hora que alguien la utilice no le dificulte mucho modificar Se trata que en la hoja y el rango usado una vez apliquemos "negrita" y luego nos hubicamos en cualquier otra celda, la macro de evento va colorear dicha celda Espero sea de utilidad a mas de uno Saludos Colorear celda si tiene formato negrita_GP.xls

Hola: Respondiendo a la inquietud expresada en este post: [DBOX]https://www.ayudaexcel.com/foro/macros-programacion-vba-10/pendiente-formulario-para-controlar-archivos-21158/[/DBOX] he realizado un formulario que permite llevar un control de nuestros archivos de Excel. Los archivos se organizan por catálogos dentro de un solo libro (Ver adjunto) Cada catálogo se define en una hoja cuyo nombre va encerrado entre corchetes {Nombre catálogo}. Pueden definirse tantos catálogos como se deseen. En cada catálogo se guarda el nombre del archivo, su ubicación, una descripción y unas observaciones. Se lleva un control para que no se dupliquen nombres de archivo en el mismo …

Modificado: 11.05.2012 -Añadir lista de validación Hola: Aquí va mi primer aporte de 2012. Se trata de poder mostrar cualquier dato relacionado entre hojas a través de una UDF, vamos una fórmula. Se trata de una UDF realmente potente y muy fácil de utilizar. Apenas tiene 20 líneas, pero es capaz de recuperar cualquier dato de cualquier hoja. Dicen que un ejemplo vale mas que 1000 palabras. En el adjunto encontrareis 4 hojas. Por un lado, FACTURAS, CLIENTES y ARTICULOS Por otro lado Consulta: Esta última recoge información de las hojas a partir del Nº de Factura de la hoja FACTURAS, de ahí, se enlaza con CLIENTES y con ARTICULOS. Su formato es muy senciall: MOS…

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

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 a to2,...to2: El motivo de la presente es para comunicarles que como estoy hasta el "forro" de que a pesar de estar ya en pleno siglo XXI, siguen apareciendo una y otra vez el tema dichoso de proteger la información a los usuarios, he decidido acometer la tarea de hacer un sistema de protección de la información de forma definitiva. De momento, se limita a un control de acceso por medio de usuario y contraseña. Posteriormente, también podrá limitarse el control acceso a rangos concretos dentro de la hoja. A partir de la adjudicación de perfiles, cada usuario solo tendrá acceso a las hojas que le indique ese perfil, eso nos evitará tener que adjudicar permisos u…

He preparado un aporte a raíz de contestar a varios temas relacionados con la conversión de divisas, como: Adjunto un Conversor de Divisas sin macros ni VBA que consulta la página Web: Obteniendo cualquier cambio de divisas que seleccionemos (editando las celdas en amarillo) en tiempo real con la fecha y hora de sus últimas variaciones, con sólo habilitar las conexiones de datos. NOTA: El separador de decimales debe ser el punto (.) y el de miles la coma (,) como se explica en el Post #3 NUEVO ARCHIVO: ConversorDivisasPW2 puede usar también el separador de decimales coma (,) ConversorDivisasFinanzas.zip ConversorDivisasPW2.zip

Hola a todos: Estoy siguiendo una serie, no recuerdo bien, pero creo que en National Geographic, que se titula,"La Tierra sin nosotros", en la que se relata como sería el mundo si desapareciera la raza humana, pues bien, yo os propongo lo siguiente: Que pasaría, si de repente, en nuestras macros, no pudieramos utilizar las funciones de cadena. Como sería una "simple instrucción" tal que: Libro = Mid(Right(Fichero, Len(Fichero) - Len(ThisWorkbook.Path) + 1)) [/CODE] En primer lugar, desde dentro hacia fuera, necesitamos averiguar la longitud de Fichero y de ThisWorkbook.Path. He desarrollado esta función, con la inestimable colaboración de [b]neverdelimon1[/b], p…

. Hola a todos: Os dejo una gestión de agenda con contactos y archivos asociados para llevar el control del maestro de proveedores (Es valido para cualquier tipo de entidad: clientes, bancos,...... ). Lo único diferente a otros aportes de este tipo es que he usado controles Listview(¡ La madre que lo par....!) en lugar de controles Listbox. Salud . Proveedores.zip Proveedores.rar

En algunas oportunidades al consultar en Internet encontramos formulas en Ingles y para aplicarlas en nuestro Excel es necesario pasarlas a Español. Por ejemplo: =IF(OR(MOD(A1,400)=0,AND(MOD(A1,4)=0,MOD(A1,100)<>0)),"Año bisiesto", "No es un año bisiesto")[/PHP] Hice una pequeña macro (de solo una linea), para realizar esta tarea, les adjunto el archivo. En una celda se copia la formula en Ingles, en formato texto o precedida de apostrofo, solo se necesita pulsar un botón para la traducción a español. Seguro se le pueden hacer mejoras, les dejo este aporte. Bienvenidas las mejoras. Traducir formula.xlsm.zip

Hola a todos! Si! como el titulo lo describe hay una forma de validar dinamicamente una lista de datos sin DESREF, sabemos o se sabe que DESREF es un gran aliado para poder crear estas listas desplegables, pero lo único es que esta es volátil, es decir cada vez que hay un evento en la hoja se re-calcula automáticamente, bueno sin tanto preámbulo les adjunto un archivo de muestra, utilizo solo dos funciones INDICE - COINCIDIR y para el caso de este ejemplo la funcion ESPACIO... se nombraron rangos y la formula la pueden encontrar en validacion de datos Espero le resulte útil a mas de uno y cualquier comentario o pregunta es bien recibido Saludos desde Honduras Lista de…

Hola: Adjunto una versión "cutre" del popular Paint de windows. Es otra aplicación del "evento" mousemove en la hoja. Color primario: Click en paleta de colores Color secundario: Click derecho en paleta de colores Modo pintar: Botón On/Off Click izquierdo, pinta con el color primario hasta nuevo click (Derecho o izquierdo) Click derecho, pinta con color secundario hasta nuevo click (Derecho o izquierdo) Para los que tengais hijos, ya teneis otra forma de entretenerlos. Saludos. Macro PintarCuadros.zip

Hola, Visto el tema Extract the last token in a cell en Daily Dose of Excel, me ha dado por, (antes de conocer que no se podia postear en ese foro), intentar hacer mi propia formula de lo mismo, nada que ver con las muchas que han sacado los expertos formulianos ya que la mia es descomunalmente larga, pero me quedo contento con haber podido sacar mi propia version. En el adjunto tenéis el paso a paso. A ver si os animáis a simplificarla. Saludos Extraer Final.xls

Buenas por petición de varios compañeros he creado el siguiente buscador de un dato en otro libro pudiendo seleccionar la carpeta donde se encuentra el libro, si se desea buscar en una pagina enconcreto o en todas. lista las coincidencias sobre el dato buscado y se puede seleccionar dentro de la lista cualquier dato dato dirigiendonos al libro y hoja donde se encuentra bueno espero que les sea de utilidad, logicamente es muy mejorable pero bueno hay esta un saludo PD para acceder al userform para realiar la busqueda he creado un menú que aparecera en la cinta de complementos como Logroastur Logroastur buscador.zip

Hola: He descubierto por error algo que desconocía. Worksheets("Hoja1").Copy Worksheets("Hoja1")[/CODE] Este código añade al libro una hoja con los datos de Hoja1 con el nombre "Hoja1 (2)" Si le añadimos: [CODE]ActiveSheet.Name = "Copia de Hoja1"[/CODE] Tenemos una forma fácil de copiar una hoja con el nombre que queramos, es decir: [CODE]Worksheets("Hoja1").Copy Worksheets("Hoja1") ActiveSheet.Name = "Copia de Hoja1"[/CODE] Seguramente muchos ya lo conociais, pero a mi me ha sorprendido que con el método Copy podamos añadir una hoja. Saludos. Antoni.

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…