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 Estimados Tal como se muestra en el nuevo tema que expongo en esta ocasión, les dejo un archivo que es el resultado de una modificación de un código para enviar correos con Outlook y el cual tenía desde hace ya tiempo pero que no entendía mucho. Tampoco significa que ahora entiendo ahora la estructura del código y el cómo se usa y todo lo demás, porque sinceramente no es mi fuerte y ni estoy muy familiarizado, sin embargo, pude lograr algunas modificaciones de lo que entendía. No tenia, formularios, los destinatarios eran hechos desde el código fuente, entre otras cosas y lo adapté para que funcionara como un correo tal y como lo conocemos hasta la fecha. Es…

En este vídeo damos ideas de como aprovechar Excel 2013 como herramienta a la hora de la creación de Cuadros de Mando, muy útiles a la hora de analizar o hacer un seguimiento de nuestra empresa.

Hola amigos, les traigo un pequeño aporte. Un par de formularios que facilitan la búsqueda de información, espero les sea útil. Saludos. Búsqueda.rar

Hola gente del foro, les dejo un video tutorial que acabo de terminar donde muestros los pasos a seguir para resolver algunos problemas comunes en tablas de excel y ademas automatizando todo con Macros. Espero sus comentarios. Saludos. Diego

Os dejo una forma muy curiosa de detectar los iguales y distintos dentro de la misma columna a través del método Range.ColumnDifferences Pues nada mas. Sobre iguales y distintos.xls

Tal como dice el titulo, desde hace dos meses que he estado trabajandon en la implementacion de una clase que pudiera emular algunas de las bondades que nos propocionan las Listas de Python o los Arrays de Ruby... si bien esta clase no se compara en lo absoluto con estos grandes objetos si que simplifica alguna de las tares mas habituale respecto al menejo y gestion de matrices en VBA con respecto a usar una matriz de forma tradicional. Pienso seguir ampliando y mejorando la clase, pero por ahora dicha clase es de utlidad, la estoy ocupando para un proyecto que estoy desarrollando.... Les dejo el enlace a mi blog para mayor informacion y descarga de la misma. Saludos! …

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…

Los items seleccionados en checkbox del ListView se desactivan 9.- Desactivar datos transferidos (1).xlsm 9.- Desactivar datos transferidos (2).xlsm

Buenos dias Aqui os dejo un aporte, de un aporte del foro que encontre y modifique espero que os sirva Dropbox - choras.xls

Hola: Pues nada mas que eso, una nueva versión del índice actualizada a 07/07/2013. El formulario es nuevo, mucho mas sencillo y rápido gracias a la utilización de AdvancedFilter (Que ha medida que lo voy usando, cada vez entiendo menos como funciona). Se puede buscar por tema y por autor. El texto de búsqueda actúa a partir del tercer carácter. Un saludo para todos Nuevo Índice de Aportes.rar

Hola "pipol": En vísperas de la fiesta mas señalada después de Navidad, os dejo un cronómetro en milésimas. Paz, amor, salud y libertad. . Timer.xls

Hola a todos! Nunca había aportado por aquí en "Ideas y Aportes". Hoy vengo con una Hoja Excel que emula el funcionamiento de la función DESREF, la cual facilitaría en demasía su explicación. Dios les bendiga! Desref.rar

Hola: Si quereis que nadie sepa que archivos usais si alguien abre Excel en vuestro PC: Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.RecentFiles.Maximum = 0 End Sub[/CODE] Saludos MA

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

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…

Macro se llama: Registro. Solicitar a través de un inputBox el ingreso de los registros de la Tabla hasta que el usuario decida no ingresar más registros. Usar estructura While...Wend. El disparador permite Repetir todas las instrucciones hasta que usuario desea no ingresar más datos, hasta que respuesta sea: No → Disparador toma el valor de 0 y sale del ciclo repetitivo While Módulo 1: Sub Registro() disparador = 1 While disparador = 1 [A1048576].End(xlUp).Activate Fila = ActiveCell.Row + 1 Nombre = InputBox("Ingrese el nombre:") País = InputBox("Ingrese el País de origen " &amp; Nombre) Ciudad = InputBox("Ingrese la Ciudad de procedencia " &amp; Nombre) T…

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

Buen dia señores Como siempre, un placer saludarles esperando a que se encuentren bien y con el favor de Dios. En esta oportunidad, adjunto un humilde archivo con formulario, junto con un control Multipage. El mismo, contiene tres paginas y con las cuales pueden digitar cualquier dato solo con la intencion de ver su funcionamiento. Este aporte lo hago para quienes lo deseen aprovechar y les ayude en sus tareas y demás y si tienen alguna mejora, pues seria un honor contar con sus sugerencias para mejorarlo. Mis respetos para todos y que Dios los bendiga. Multipage.zip

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…

En este ejemplo creamos una hoja excel que concilia, por importe, movimientos contables, en principio de bancos, pero aplicable a cualquier cuenta.

En este vídeo vemos como modificar, desde Excel, registros de una tabla de una Base de Datos creada con Ms Access.

Copiar un libro sin fórmulas ¡ Ave ! Copiar la macro en un libro nuevo y ejecutar la macro. Sub GuardarComoLibroSinFórmulas() If Not Application.Dialogs([COLOR=#0000ff][B]xlDialogOpen[/B][/COLOR]).Show = False Then For Each hoja In Sheets hoja.Activate hoja.UsedRange.Value = hoja.UsedRange.Value Next Application.Dialogs([B][COLOR=#0000ff]xlDialogSaveAs[/COLOR][/B]).Show End If End Sub [/CODE] Solo para el libro activo, copiar la macro en un módulo y ejecutarla. [CODE]Sub GuardarComoLibroSinFórmulas() For Each hoja In Sheets hoja.Activate hoja.UsedRange.Value = hoja.UsedRange.Valu…

. Hola foreros: Os dejo esta UDF que convierte la diferencia entre una fecha y el día de hoy a letra/número. Tiene varios parámetros. =EdadEnLetras(celda fecha[;parte][;solo números]) En el adjunto encontrareis varios ejemplos. Un saludo desde Santiago de Compostela . Calcular edad o antigüedad.xls

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…