Se trata de un ejemplo de 3 combobox dependientes que pueden funcionar de manera independiente en todas sus combinaciones: 1, 1-2, 1-3, 1-2-3, 2, 2-3, 3 En el adjunto encontrareis un ejemplo de localización de una fila en base al contenido de los tres combos. Combos dependientes y no dependientes.xls

Como desprendimiento (o caso particular) del aporte: Combinaciones de N elementos tomados de a M adjunto una nueva "vuelta de tuerca" sobre el tema. Aquí en lugar de tener un sólo grupo de una cantidad variable de elementos, tenemos varios grupos con -también- una cantidad variable de elementos. Se tratará que cada término combinado contenga sólo un elemento de cada grupo. ¡Espero que a los "manipuladores de estadísticas" les sea de utilidad!... Saludos, Cacho R. Un elemento por grupo.rar

Hola a todos: Ayer vi en Odyssey Channel un documental sobre fractales y me quede impresionado. Un fractal es una forma geométrica que se repite indefinidamente. Os adjunto mi fractal, seguro que ya alguien lo había descubierto, pero me ha hecho mucha ilusión ser capaz de crear uno. Se trata de un círculo, que a su vez esta formado por 7 círculos, que a su vez está formado por 7 círculos, que a su vez está formado por 7 círculos,..........., y así hasta el infinito y mas allá. La función es d=n elevado a 3, siendo n el nº de círculo exterior. Saludos a to2ssssssss Quizás debería haberlo publicado en la Cafetería ¡¡Uy!! Me olvidé el archivo https://dl.dropbox.com…

Buenas compañeros, les dejo aquí un pequeño aporte que realice durante esta semana, se trata de un calendario para anotaciones, lo realice basado en una solicitud en el seguiente tema: Cerrado calendario 2013 programable con doble click me pareció interesante la idea y aquí está el resultado: La hoja principal es el propio calendario del año, la idea es simple, seleccionamos el día que queramos ingresar una tarea (o revisar las tareas ya ingresadas para dicho día) y nos saldrá una hoja donde tendremos una tabla con las 24 horas del día para ingresar las tareas, en esta tabla podemos tener hasta tres líneas de comentarios por cada media hora y adicionalmente tres líneas…

Hola amigos: Les dejo un aporte, es una hoja de cálculo que traduce números a letras, quiero saber si la idea podría funcionar para otros idiomas. Saludos desde Perú. Numeros a letras.rar

En este tutorial vemos como alinear el contenido de una celda, de manera horizontal, a la derecha, al centro o a la izquierda.

Gráfico Rosa de los vientos. Rosa_de_los_vientos_tuve.rar

Hola: Parece que algunos temas aparecen regularmente por el foro a pesar que se han solucionado con anterioridad, este es uno de ellos. A ver si hay suerte y la gente "se queda con la copla" esta vez. Se trata de un formulario que permite enviar a una lista de destinatarios el contenido de un rango. Se pueden asociar al envío un asunto y un texto introductorio predeterminado y modificarlos antes de enviar. El envio se hace con el objeto .MailEnvelope. Tan simple como: Sub EnviarEmail(Destinatario As Variant) With ActiveSheet.MailEnvelope .Introduction = Introduccion .Item.to = Destinatario .Item.Subject = Asunto .Item.Send End With End Sub [/C…

Hola! Les dejo un aporte para importar datos de Access a Excel! Primedo deben de agregar la referencia "Microsoft ActiveX Data Object 2.8 Library" Esto es en la opción Referencias del menú Herramientas en VB. Sub importarDeAccess() 'Variables de la conección Dim miConn As ADODB.Connection Dim miRset As ADODB.Recordset Dim miBase, miSQL As String Dim miTabla As String Dim misCampos As Long Dim i As Long 'Colocar la ruta del archivo, en este caso la base 'Esta en la carpeta donde esta el archivo miBase = ThisWorkbook.Path & "\" & "db.mdb" 'Nombre de la tabla del archivo Access miTabla = "salarios_2003" 'Se crea y abre la conección Set miCon…

A raíz de una consulta me ha salido esto que creo que le puedes ser útil a alguien. Aquí os dejo un "Consultador SQL" válido para cualquier base de datos SQL. Abrir el adjunto y pulsar sobre el botón para seleccionar la base de datos. Solo teneis que añadir un origen de datos ODBC con la base de datos y listo. Pulsar Abrir base de datos y se mostrará un formulario. Puedes ejecutar cualquier sentencia SQL que se te ocurra (Select, Insert, Delete, Update,...) Aparte de la propia consulta en la hoja RESULTADOS (Si se trata de una sentencia Select), se obtiene un Log de la sentencia en la hoja SQL y el código VBA necesario para ejecutar la sentencia por medio de una mac…

Hola compañeros. En el mismo momento en que me pongo a escribir este mensaje, veo que ya hay bastante de este tema en el Foro. Pero por si aporto algo nuevo con él y le sirve a alguien, ¡allá va! Un saludo TRIENIOS.zip

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: Con este aporte termino la trilogía dedicada a la comparación de datos. En este caso se trata de comparar 2 rangos cualquiera, de 2 hojas cualquiera, de 2 libros cualquiera. Abrir el adjunto y pulsar Ctrl+f o click derecho y escoger la opción deseada del menú. El resto no tiene misterio, seleccionar ambos libros y los rangos a comparar, que tienen que ser iguales de forma y tamaño pero no tienen porqué estar, ni en la misma hoja, ni en el mismo lugar. Es decir, podemos comparar el rango A1:A5 de la Hoja1 del Libro A.xls, con el rango D4: D8 de la Hoja2 del Libro B.xls. Los resultados de la comparativa en la hoja "Resultados", en las Hojas 1 y 2, los rangos que…

Hola: Esta macro, coloca un reloj en A1, para arrancarlo, ejecutar la macro, y para pararlo, rellenar A1 con el color rojo. Sub RELOJ() On Error Resume Next If ActiveSheet.Cells(1, 1).Interior.Color = vbRed Then Application.OnTime Hora, "RELOJ", SCHEDULE:=False Else ActiveSheet.Cells(1, 1) = Now Hora = Now + TimeValue("00:00:01") Application.OnTime Hora, "RELOJ", SCHEDULE:=True End If End Sub [/CODE] Saludos.

(NUEVO) AimKeys (Enviar combinacion de teclas directamente al buffer del teclado) Mi aporte no es la API (mas info de la API al final del post), sino la función AimKeys, que no es más que un gestor de combos de teclas muy sencillo de usar. Usa la misma sintaxis que AIM Keys, All-in-One Macro Utility, el cual llevo años usando y quizás por esto me resulte coherente usar dicha sintaxis. En la demo, cuyo código pongo debajo de este párrafo, encontrareis algunos ejemplos de uso, es bastante intuitivo pero si tenéis alguna duda puedo poner más ejemplos. Sub AbrirNotepad() AimKeys "<winr>r<winr><wx>(200)notepad<enter><wx>(700)" End Sub …

Bueno pues de eso va el archivo, no sé si en algún momento habrás visto como funciona el tema del embargo, pues en este archivo (según la ley española), he preparado las fórmulas pertinentes para que tan solo poniendo la cantidad de tu nómina puedas comprobar cuanto dinero te pueden embargar. Le he añadido un poco de explicación sobre dicha ley para que no quedara tan soso el archivo. Espero que a nadie le haga falta utilizarlo, sinceramente, aunque sí espero que como curiosidad os guste. Y para darle un poco más de aprovechamiento, si alguien de otro país que conozca el tema quiere ampliar este archivo, pues que lo haga en siguientes hojas, así tendremos un mismo arch…

Hace poco me encontré con Windows Management Instrumentation (WMI), que permite, entre muchas otras cosas, monitorear la memoria, procesadores, tareas, etc. Su uso es bastante sencillo. Para su demostración, he adapatado un archivo en el que se monitorea el uso de CPU en el computador, mostrando una gráfica como la que muestra el Administrador de tareas. El archivo no tiene mayor aplicación, es sólo una demostración de lo que se puede lograr con WMI y un poco de carpintería en VBA para graficar los datos que se van obteniendo. EXCELPATAS: Monitorear el uso de CPU usando WMI

Que tal amigos. Quería aportar un sistema de búsquedas interactivo que hice hace unos meses en Excel, de esta web saco algunas veces material para mi sitio por lo cual me parece justo que contribuya a esta excelente comunidad con un granito de arena. El archivo es bastante sencillo y permite interactuar con formularios para realizar búsquedas, puede servir como ejemplo o modelo si están pensando desarrollar algo similar. Un fuerte abrazo desde Perú. Sistema de busqueda interactivo.zip

Hola: Suponiendo que teneis un catálogo de artículos (O de cualquier otra cosa) y quereis que aparezca una imagen del artículo, colocar el nombre de la imagen con la extensión (.jpg, .gif, .bmp) en la columna A a partir de la celda A2. Al ejecutar la macro se insertarán las imágenes en la propia columna A adaptándolas al tamaño de la celda. Si no existiera la imagen, se inserta una imagen con el nombre "sin imagen" Sub InsertarImágenes() Dim MiPc As Object Dim MiCarpetaDeImágenes As Variant Dim MiImagen As Variant Dim SinImagen As Variant '------- Creamos variables de uso Set MiPc = CreateObject("Scripting.FileSystemObject") 'Todos los archivos MiCarpetaDeIm…

Buenos días, Me gustaría compartir con vosotros un Excel que he creado de control de vacaciones. La verdad que me ha costado trabajo hacerlo ya que me estoy metiendo mas a fondo con el tema Excel y este es mi primer trabajo, pero con ayuda de este foro y algún bloc que he consultado, creo que el resultado es bueno y por eso quiero compartirlo con vosotros. El libro tiene varias macros para que puede funcionar correctamente. Acordaros de habilitarlas. El libro esta compuesto por 4 hojas que son: Solicitud, Calendario, Resumen e historialvacaciones. Esta creado en función de como en mi empresa solicitamos las vacaciones ya que tenemos 22 días laborables y luego tenemos …

Hola: Pues nada mas que lo que dice el título. Ordena un rango de celdas en un array de rangos. Saludos. Public Celda() As Range 'Resultado de la función Function MacroOrden(Rango As Range) As Integer ' ' ----------------------------------------------------- ' Ordena un rango de una sola columna sin tocar la hoja ' Deja el resultado en el array de rangos: Celda ' ' Macro Antonio Junio de 2011 ' --------------------------- ' ' Nota: Necesita una adaptación para Option Base 1 ' ' ----------------------------------------------------- ' Application.ScreenUpdating = False MacroOrden = 0 'Función correcta 'Controlamos que solo haya una co…

A continuación menciono cinco grandes trucos para optimizar el código generado por el grabador de macros, así mismo pueden ser aplicados cuando se programa o se personaliza una macro de forma manual. Con estos trucos se consigue una disminución en el tiempo de ejecución de la misma. Personalmente me desespera el ver una macro en ejecución que tarda demasiado tiempo… seleccionando celda por celda para llevar acabo un proceso o cosas por el estilo. Tuve la oportunidad de ver la ejecución de una macro que tardaba 2 días para generar reportes de métricas mensuales. Mi jefe presumía del talento de la chica que genero tal macro para obtener dichos reportes… No dude de los cono…

Buenas noches, aqui os dejo un aporte de menu contextual, espero que les pueda servir de ayuda Saludos menú contextual personalizado.zip

Hola: Simple curiosidad, inútil donde las haya. No me atrevo ni a explicar lo que hace, descubrirlo vosotros mismos. Saludos y no me odieis por esto. Mouse move inútil.xls

Este código: Sub BorrarCeldasSinColor()Application.ScreenUpdating For Each cell In Range("J19:IM19,J22:IM22,J25:IM25,J28:IM28,J31:IM31,J37:IM37,J40:IM40,J43:IM43,J49:IM49,J55:IM55,J55:IM55,J61:IM61") If cell.Interior.ColorIndex = xlNone Then [COLOR=#ff0000][B]cell = ""[/B][/COLOR] Next End Sub [/CODE] es un 90% mas rápido que este: [CODE] Sub BorrarCeldasSinColor() Application.ScreenUpdating For Each cell In Range("J19:IM19,J22:IM22,J25:IM25,J28:IM28,J31:IM31,J37:IM37,J40:IM40,J43:IM43,J49:IM49,J55:IM55,J55:IM55,J61:IM61") If cell.Interior.ColorIndex = xlNone Then [B][COLOR=#ff0000]cell.ClearContents[/COLOR][/B] Next End Sub [/CODE] Se admite…