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…

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…

Hola a todos, Pues esta vez tengo un aporte simple pero muy útil, adjunto un ejemplo de como podemos decirle a excel que al presionar alguna tecla realice una acción determinada, por ejemplo podemos decirle que al presionar la tecla "F2" abra un formulario o con "F1" ejecute una macro, hasta podemos decirle que si presionamos la "A" no haga nada, etc. Dejo un ejemplo de lo hablo, el código esta en ThisWorkbook y el Modulo1. Saludos Configurar teclado.zip

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: Este es mi primer aporte de Access, se trata de un formulario que permite traspasar tablas de Access a Excel. Vaya por delante que no he trabajado nunca con Access como aplicación, he trabajado con Access desde otras aplicaciones y Visual Basic, o sea que ha salido lo que a salido. Esta "cosa" me ha costado todo el fin de semana. Os dejo 2 vesiones, una para Excel2003 y otra para Excel2007-2010. No hay garantías de funcionamiento de la versión 2003 ya que todo ha sido desarrollado sobre Access2007 y Excel2010. Suerte AccessTablesToExcel2003.rar AccessTablesToExcel.rar

Hola; intentando encontrar una formula, he llegado a dos distintas, por si ha alguien le sirven las pongo aqui. No se si una es mejor que otra, pero bueno las dos sirven para lo mismo: Partiendo de esta formula: SI(ESERROR(G2);H2;SI(ESERROR(H2);G2)))[/CODE] Llego a dos posibles soluciones: Si la formula da error me devuelve "No coincide": [CODE]=SI(ESERROR(SI(ESERROR(G2);H2;SI(ESERROR(H2);G2)));"NO COINCIDE")[/CODE] Utilizando la funcion Y: [CODE]=SI(Y(ESERROR(G2);ESERROR(H2));" ";SI(ESERROR(G2);H2;SI(ESERROR(H2);G2)))[/CODE] Un Saludo. Jose Maria.

Buenas saludos a todos los maestros del excel que con su contribucion en conocimientos a las personas que como yo estamos siempre haciendo consultas y a los sabiondos del excel que contestan agradablemente, agradezco aquellas personas que ma han ayudado bueno sin mas chachara, lo sigueinte tiene como fin dar gracias a (logroastur, Macro antonio, Valief, Ioyama, y muchos mas) se me pasan todos los nombres en este momento. Bueno con la ayuda de todos ustedes realice el siguiente formulario, y lo subo para compartirlo y para que por favor lo prueben y me digan si les funciona. El formulario lo realice en Office 2010, porlo tanto no lo he probado en 2007 y 2003, agradezco aq…

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! …

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…

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

En este tutorial aprendemos a cerrar una conexión a una BBDD Access, proceso recomendable después de haberla abierto y haber accedido a ella mediante sentencias SQL con VBA. El uso de estas instrucciones lo veremos en próximos tutoriales.

Comparto este material que encontré por web ( Aqui ). Como dice el Titulo es para trabar con 2 libros sin duplicar datos. Quizas le pueda servir o Dar ideas a lo maestros de este foro. Saludos, Muscaria excel_multi.rar

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

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

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…

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

Les dejo una planilla bastante sencilla para llevar un control de valores (cheques) recibidos. En la hoja RESUMEN podrán consultar los movimientos y saldos en un periodo cualquiera. Me gustaria escuchar opiniones y sugerencias para mejorarlo un poco. Saludos Francisco ARQUEO DE CHEQUES.rar

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

. 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

Hola a todos, No es una maravilla de la programación, pero puede ser útil. He montado un pequeño código que acumula entradas en una variable (entradas=líneas separadas, ítems) y permite crear una lista según se marquen los checkboxes en la hoja. Ideal para pasar lista y obtener una relación de todos los participantes en un evento, o para inventarios, o lo que mejor os vaya, cada uno le dará el uso que más le convenga Un saludo. lista segun checkboxes.xls

Buenos días Envío una pequeña explicación de como usar los datos personalizados en VBA Un saludo José Carlos Datos personalizados.zip

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

Basado en un viejo aporte revisitado para animar las ondas y las olas con formulas y cálculos iterativos para que lo puedan seguir los que no les gusta abusar de las macros o no las conocen aún. Subo dos ficheros: pedrowaves3.rar (Excel 2007+) y pedrowaves2.xls (Excel 2003) Instrucciones: Cambia el valor de incremento del radio Δ R y dale a la tecla F9 sin parar!!! Revisa si está activado el cálculo iterativo: Menú: Archivo | Opciones Pestaña: Fórmulas Opciones de cálculo: Marcar "Habilitar cálculo iterativo" Iteraciones máximas: 1 Cambio máximo: 1 pedrowaves2.xls pedrowaves3.rar

Buenas tardes Como el coste de la energía eléctrica esta por las nubes, envío una pequeña aplicación para calcular el ahorro al cambiar la lámparas convencionales por lámparas led. Solo hay que rellenar todos los campos y observar las cantidades en los textbox Los precios están tomados por la última factura de gas natural fenosa, pero como es sabido casi cambian todos los meses. le agradecería a los maestros revisaran el código ( yo lo fui haciendo tomando datos de otros códigos del foro) y me dijeran donde se puede mejorar Gracias Un saludo José Carlos CALCULO CONSUMO LAMPARAS .zip

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