Vídeo tutorial nº 17 de nuestro curso sobre Macros en Excel con VBA, donde aprendemos a programar macros, desde cero.

Si alguien no se había dado cuenta, aquí os muestro una forma sencilla. La clave está en el 57. Sub Guardar() ActiveSheet.Copy With ActiveWorkbook ruta = "C:\Users\PC01\Desktop\Ejemplo" & ".xlsm" .SaveAs Filename:=ruta, FileFormat:=57 .Close False End With End Sub[/CODE] Saludos.

Hola, me gustaria aportar esta calculadora de fórmulas de colores. Puede ser muy util para los coloristas, tanto de artes gráficas como pintores que hagan colores a la carta. Está hecha con los aportes de este foro, en especial de Macro Antonio al que le estoy muy agradecido. Un cordial saludo. CalculadoraColoresFinal.part1.rar CalculadoraColoresFinal.part2.rar

En este vídeo vemos como añadir los operadores lógicos AND y OR a nuestra sentencia SQL para extraer registros de una BD Access a través de Excel y con VBA.

Hola people: Aquí os dejo un cálculo sencillo de nómina adaptado al quehacer español. Si alguién demuestra algo de entusiasmo igual le añado lo que falta. Paz y amor Nómina simple.xls

Hola pueblo: A ver si hay suerte y vamos eliminando las consultas sobre el tema, ya que van apareciendo sistemáticamente en el foro. Se trata de un formulario que es capaz de crear un pdf con la hoja activa, seleccionando que páginas queremos. También es capaz de seleccionar un archivo, el creado por el propio formulario o cualquier otro, y enviarlo por correo (Outlook), a uno o varios destinatarios, ya sea informados manualmente o seleccionados de la lista de contactos de Outlook. Espero que os guste. Paz y amor Crear PDF + enviar por email.rar Crear PDF + enviar por email.zip

Aquí os dejo un vídeo tutorial sobre como trabajar con Variables Objeto en VBA.

Hola: Con este aporte podreis hacer "fotos" a rangos que se actualizarán de forma automática cuando modifiqueis el rango original. Subo yo este aporte pero funciona gracias al gran neverdelimon1. Os dejo también una posible aplicación del tema: Un reloj, reubicable y redimensionable, y si le cambiais la fórmula podeis mostrar cualquier rango. Saludos Camara.xls Reloj IV.xls

En este vídeo vemos como agrupar automáticamente todos los movimientos conciliados, en una hoja aparte, incorporando un código de conciliación.

Buenas tardes Una forma de usar la función hallar También envío un formulario sorpresa, solo es una pequeña broma, pido perdón por si alguien se ofende Gracias Un saludo José Carlos Función hallar.zip Userform con sorpresa.zip

En este vídeo vemos como utilizar, con código VBA, las herramientas más básicas de Excel como son el copiar, cortar y pegar. Un consejo: "Aprende VBA, ¡no te arrepentirás!"

Estimados, hoy aprendí un poco de selecciones multiples aqui les dejo algo aprendido,, talves esto pueda evolucionar en algo.. saludos, multiples selecciones..rar

Hola foreros: En mi enésimo intento de reinventar la rueda se me ha ocurrido realizar un administrador de archivos y carpetas a imagen del clásico de windows. No hacen falta instrucciones. Feliz año 2015 13/01/2015 -Añadido puntero de posicionamiento 13/01/2015 -Añadida barra de progreso . Archivos y carpetas.xls

Hola, En primer lugar agradeceros a todos vuestras aportaciones. Me parece muy interesante todos los temas que se plantean en los foros de AyudaExcel, que me han servido de ayuda en varias ocasiones. Paso a enviar mi aportación, una funcionalidad de Watchdog, que espero se sea de ayuda a alguien. No he encontrado nada relacionado con "watchdog" en los foros. Mis disculpas si es que no he buscado correctamente. Esta funcionalidad de watchdog hace que si un usuario no realiza ninguna actividad con una hoja excel, pasado un tiempo, en el ejemplo 1 minuto, ésta se cierre. En las diferentes macros y funciones de la hoja se irá llamando a la rutina WatchDog con la idea de qu…

Al darle solución en Macros, lo paso ya solucionado a este campo de Ideas y aportes Le dí solución al darle a todas las agujas de los 6 velocímetros el mismo nombre: Gráfico 5 Añadí al final el siguiente código en Módulo 1: Range("Datos!E2") = Range("Datos!D2") Range("Datos!E4") = Range("Datos!D4") Range("Datos!E6") = Range("Datos!D6") Range("Datos!E8") = Range("Datos!D8") Range("Datos!E10") = Range("Datos!D10") Range("Datos!E12") = Range("Datos!D12") Funciona perfectamente para cualquier datos a cambiar en la Hoja: Matriz evaluación Alternativas Solucionado 6 Alternativas producto con Velocímetros.rar

Hola: Una de las cosas que mas me gusta de los foros es que cada día se aprende algo, incluso de la pregunta mas tonta sale algo interesante que guardarse en la mochila. SuperBianchi1 en Foro Excel • Ver Tema - Cambiar una celda de excel desde power point Yo recordé la posibilidad de crear una instancia a Excel y desde ahí actuar en consecuencia. Tras mi orgullosa solución, la respuesta de Cacho fue demoledora. Aquí os la dejo, vale para cualquier aplicación, incluso aunque no sea de MsOffice. Vale la pena perder un poco de tiempo en la ayuda sobre GetObject. Saludos Private Sub ModificarCeldaDeOtroLibro() Set Libro = GetObject("C:\Libro1.xlsx") Set…

Buen día a todos, En vista que no encontre un código para comprimir archivos con winrar a formato *.zip tuve que adecuar algunos que encontré. Además de agregar una contraseña. Slds.- ZIP.xls

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 …

Hola amigos foreros, aqui comparto con todos ustedes un form para enviar una imagen a una hoja de excel y modificar su tamaño y situacion. Si el archivo te sirvio, dale a me gusta Saludos cordiales Cambiar tamaño de imagen en hoja.xls

Hola: Ya sabemos que es imposible proteger completamente nuestros proyectos, no obstante se pueden poner algunos controles que si bastarán para aquellos que no disponen de demasiados conocimientos sobre VBA. Aquí os dejo una macro que no deja acceder al libro a partir de un nº de días transcurrido desde la última fecha de creación o modificación del archivo. Private Sub Workbook_Open() DíasEvaluación = 30 'Número de días de evaluación If Left(FileDateTime(ThisWorkbook.FullName), 10) < CStr(Date - DíasEvaluación) Then MsgBox "Ha terminado el periodo de evaluación", vbCritical, "Comprobación de licencia" Application.DisplayAlerts = False Application.Qu…

Bueno, últimamente me he dado a la tarea de investigar a fondo como llevar VBA/Excel en la extracción de información de internet, este será el primero de muchos artículos más que mostrara como interactuar con servicios y aplicaciones web. Este post complementa al post anterior: Web scraping rudimentario con VBA/Excel Para esta sencilla macro tome como base el siguiente video: El resto del articulo lo pueden consultar en: http://mexcel.wordpress.com/2015/01/04/accediendo-a-la-lista-de-amigos-de-facebook-desde-vbaexcel/ Saludos!

Macro Antonio propuso explorar los archivos de directorios y subdirectorios con macros, como es su costumbre: [DBOX]https://www.ayudaexcel.com/foro/ideas-aportes-64/explorar-directorios-sus-subdirectorios-busqueda-archivos-hipervinculos-26455/[/DBOX] Yo me he propuesto explorar los primeros 256 archivos de un directorio sin escribir ninguna macro, con la ayuda de una vieja función de las macros de Excel 4.0: ARCHIVOS(directorio_en_texto) - FILES(directory_text) Introduce los datos de búsqueda en las celdas: C1 - Directorio de búsqueda. C2 - Nombre de los archivos, con * para todos los caracteres y ? para un carácter. C3 - Tipo de archivos, con * para todos los …

Viendo este vídeo se puede comenzar el Año Nuevo sabiendo cómo hacer en Excel un calendario perpetuo (del año 1900 al año 9999) en menos de 8 minutos y con menos de 8 fórmulas: Celda Fórmula B1 año B2 mes J1 tipo (la semana comienza en: 1-domingo; 2-lunes) C5 =FECHA(año;mes;1) C7 =C5+1-DIASEM(C5;[tipo]) sáb =DIASEM(C6)=7 dom =DIASEM(C6)=1 hoy =C7=HOY() Oculta mes anterior =DIA(C7)>7 Oculta mes posterior =DIA(C11)<15 Las 5 últimas fórmulas se usan en los formatos condicionales para darle un poco de color al calendario.

Buenas A raíz de esta consulta (Link), cree esta macro que recorre cada fila de los 2 archivos a comparar e indica si alguna fila es diferente entre ellos. Saludos a todos. Comparar Libros.zip