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…

Buenas noches Dado que se aportó una posible solución a un tema Pendiente - Contar.si.conjunto para filas en vba, creí oportuno aportarlo de manera que lo puedan usar si lo ven apropiado. Saludos. Contar Años.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

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

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…

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

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

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; 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.

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

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

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

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

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: 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 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

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…

Hola a todo el mundo mundial: En su día prometí mantener actualizado el Índice de este foro, es decir el foro de Ideas y aportes. Y ahora, aunque con un poco de retraso, no nos vamos a enfadar por 6 meses mas o menos, jajaja, aquí está, todo vuestro. Paz y amor. Pd. Al que se crea que esto es un alarde de tecnología punta, se equivoca, copy/paste, copy/paste y mas copy/paste. Me ha costado toda la tarde de este sábado. Suerte que lleva todo el día lloviendo, VERSIÓN OBSOLETA: VER https://www.ayudaexcel.com/foro/ideas-aportes-64/nueva-version-del-indice-este-foro-actualizado-mejorado-30243/#post144262 Ideas y aportes a 10-11-2012.rar

Hola: Se trata mas de una curiosidad que de una utilidad en si. Lo he adaptado a partir de un topic de Pearson Software Consulting Pero pienso que vale la pena tener en cuenta que existe por si alguna vez podemos emplearlo. Se trata de utilizar la combinación de .Resize y .Value en un rango para copiar los valores en otro rango, sea de la hoja activa o de cualquier otra hoja del mismo u otro libro. Saludos a todos Copiar con Resize y Value.xls Copiar con Resize y Value.xls

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

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…

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

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.