Hola: Os dejo un ejemplo de lo que puede ser una barra de progreso con un label, cuyo funcionamiento va ligado a la anchura del formulario y se incrementa cada segundo. Saludos a todos ProgressBarTemporal.zip

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…

Hola: Esta macro agrupa todas las imágenes que existan en una hoja para que puedan ser manipuladas como si fuera una sola. Private Sub AgruparImágenes() With ActiveSheet.Shapes If .Count > 1 Then ReDim SerieLíneas(1 To .Count) '-- For i = 1 To .Count If .Item(.Count - i + 1).Type = [COLOR=#0000ff][B]msoPicture [/B][/COLOR]Then Líneas = Líneas + 1 SerieLíneas(Líneas) = .Item(.Count - i + 1).Name End If Next '-- If Líneas > 1 Then ReDim Preserve SerieLíneas(1 To Líneas) .Range(SerieLíneas).Select Selection.ShapeRange.Group.Select Selection.Name = "Agrupación de imágenes" …

Hola: Os dejo una lotería con imágenes en lugar de números. Aquí están las imágenes. https://dl.dropboxusercontent.com/u/241435/Imágenes.rar Por favor, alguien que sepa como partir el archivo, que lo suba. Los cartones son generados de 3 en tres y no se repiten las imágenes en ninguno de ello. Espero que os guste, en especial a los que tengais niños pequeños. BINGO infantil.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…

Hola: El título lo dice todo: Sub OrdenarPorNombreHoja() Dim Orden(), Código, Fila, Hoja Columns(Columns.Count).Clear Columns(Columns.Count - 1).Clear For Each Hoja In Sheets Código = "" For x = Len(Hoja.Name) To 1 Step -1 If IsNumeric(Mid(Hoja.Name, x, 1)) Then Código = Mid(Hoja.Name, x, 1) & Código Else Exit For End If Next Fila = Fila + 1 Cells(Fila, Columns.Count - 1) = Hoja.Name Cells(Fila, Columns.Count) = Left(Hoja.Name, x) & _ String(10 - Len(Código), "0") & Código Next Range(Cells(1, Column…

Estuve revisando los aportes de este sub foro y me encuentro con una macro muy similar a la que hice en el 2012. Pude comprobar que funciona muy bien; sin embargo tengo mi propia versión. quise subir el archivo zip ... pero me aparece un mensaje que el archivo es demasiado grande; sin embargo el archivito pesa a lo mucho 300 kb.... Editado por administración: Subir archivo directamente al foro. Recopilador de Hojas.zip

Hola: Subo yo este aporte pero el mérito es de Cacho R. En el adjunto encontrareis como llenar un ListBox/ComboBox con una sola línea de código, además se pueden informar mas de 10 columnas. Funciona de forma parecida a RowSource pero con la diferencia que podemos añadir/quitar elementos y modificar el rango en la hoja. Saludos Listbox.xls

Hoy me ha vuelto a hacer falta esta magnifica UDF para extraer facilmente multiples enlaces de URL, aportada por el maestro ST_ en su día, en una de esas respuestas que caen en el olvido, y que deberia estar en el hilo de aportes por su gran utilidad. No adjunto el arhcivo sino que pongo el enlace directo, el archivo con la UDF esta en la primera respuesta del post. Ir al post PD: Al final del post, pone una mejora de la UDF. Un saludo amigo ST_ EDITADO: Adjunto mi propia version para extraer la URL: Function VerURL(rango) As String On Error GoTo NoLink VerURL = rango.Hyperlinks(1).Address Exit Function NoLink: VerURL = "" End Function[/CODE…

Hola: A menudo cuesta encontrar la tonalidad exacta que queremos dar a nuestras celdas y controles VBA. Os adjunto un formulario con el que podeis obtener fácilmente el RGB o Nº de color de cualquiera de los mas de 16.000.000 de colores que hay. "Pos ale bon finde" MacroRGB.zip

Hola: El cava ha nublado un poco mi cerebro estos días, este aporte es un muestra de ello. Al abrir el adjunto, un dedo virtual estará pulsando la tecla Ctrl, si pulsais la tecla de función F1, dejará de pulsarla. Útil para seleccionar rangos múltiples discontinuos en hojas grandes. Saludos Tecla Ctrl pulsada de forma permanente.xls

Buenas noches Hace algún tiempo vi este código. No recuerdo donde, ni como lo conseguí, sin embargo me parece muy bueno contar con el código para en algún proyecto de alguien que lo desee aplicar. Está de mas decir que existen muchas formas aun mas fáciles de hacerlo pero quizás, este les sea útil. Mis respetos para todos. Saludos Segun Hora.zip

Buen dia Estimados señores Les dejo un pequeño archivo con algunos ejemplos del como moverse entre Registros de una tabla ACCESS desde un formulario en excel. Obviamente no tiene algunas consideraciones sobre las condiciones que se deben aplicar a la hora de Modificar, Eliminar, Registra, Verificar registros anteriores etc. Pero lo mas importante, son los códigos empleados. Es decir; sin usar El "On Error Resume next" u "On Error GOTO". Anteriormente lo usaba en este formulario y en verdad no me gustaba mucho el hecho de usarlo. Pero di tantas vueltas por internet hasta que econtré la manera de hacerlo omitiendo ese posible error que nos pasa a la hora de estar en el …

Hola, quiero comparitr este pequeño proyecto que estoy haciendo... se trata de un control personalizado similar al msgbox pero al que se le pasa un rango de datos y de inmediato los carga en un listbox sin necesidad de crearlo manualmente. Son mis primeros pasos haciendo uso de un modulo de clase, asi que no sean muy exigentes conmigo. De echo no es nada funcional a un dicho control! Quiero crear un control al que se le pase un rango de datosy con ese rango rellene un listbox al mimo tiempo ese control contendra un listbox el cual al ir escribiendo sobre el, me listara en listbox todas las coincidencias encontradas (eso aun no lo he programado) y estoy con la duda de ha…

Hola a todos: A partir de este enlace proporcionado por Armando Montes en una de sus respuestas, Efecto MouseOver en Excel | Detectar el movimiento del ratón->Raymundo Ycaza, y como efecto colateral del aporte que se explica en ese link, he ideado un método de localizar duplicados en una columna pasando el mousse por encima del valor a buscar. La verdad, a pesar de que en el link se explica paso a paso, no acabo de entender del todo su funcionamiento. Se agradecerá todos los comentarios con el objetivo de aclararlo. En cuanto al aporte en si, abrir el adjunto, pulsar la flecha derecha y pasar el mouse por cualquier celda de la columna B, aparecerán todas las celd…

Hola a todos mis amigos del foro, aqui un día con mucho calor y con sueño, no se para que les pueda servir pero aqui les comparto un archivo que va generando folios alfanuméricos. No es la gran cosa. A lo mejor se puede disminuir los códigos que apliqué y serán bienvenidas las propuestas. Mis respetos a todos Que tengan una bonit@ Día, Tardes,Noches. Folios Alfanuméricos.xls

____________________________________________________________________ Hola: Alguna que otra vez habreis tenido problemas a la hora de encontrar un texto por culpa de un punto, una coma un acento, un espacio, etc..., bueno pues aquí os dejo esta pequeña función que permite homogeneizar un texto para poder tener mas éxito en las comparaciones, sobre todo en nombres y apellidos. Private Function Textificar(Text0 As Variant) Textificar = LCase(Text0) Do Until InStr(Textificar, " ") = 0: Textificar = Replace(Textificar, " ", Empty): Loop Do Until InStr(Textificar, ",") = 0: Textificar = Replace(Textificar, ",", Empty): Loop Do Until InStr(Textificar, ";") = 0: Textific…

Para conocer el estado de los proyectos o anteproyectos se necesita una Hoja de Firmas que indique quién y cuándo ha firmado cada uno de los hitos. Adjunto Hoja de Firmas, sin macros ni VBA, con la siguiente fórmula iterativa en la celda C8: =SI(C9="";"";SI(Y(B8<>"";C8="";C9<>"");AHORA();C8))[/CODE] Para que funcionen estas fórmulas, con cálculo circular, en [b]Opciones de Excel[/b], en la ficha de [b]Fórmulas[/b] marca la casilla [b]Habilitar calculo iterativo[/b] y en [b]Iteraciones máximas[/b] pon al menos un 1. Esta hoja puede servir de ejemplo para guardar las fechas de cambio de estado de cualquier evento, mediante una marca, que en este caso es l…

Bueno, resulta que estoy realizando un proyecto la la gestión de créditos... y quise incorporar un menú personalizado, en eso estaba cuando de repente se me ocurrió... por que no crear una herramienta que en base a los datos que se pongan en una celda se pueda crear en automático y de manera practica y sencilla un menú personalizado y con varios niveles de anidamiento y pos si fuera poco, asignarles una macro a cada botón. Aquí les dejo la macro y con un ejemplo para que lo echen andar y pueden entender su funcionamiento. Yo me valí de la recursión para elaborar esta macro, pero siento que se podría optimizar aun mas, si hay alguien que se tome la molestia de mojarla, c…

Hola amigos del Foro Acompaño aporte por si nos puede servir cuando tengamos dudas a la hora de Redondear. Saludo cordial REDONDEAR,_TRUNCAR,_etc.zip

Hola: Pues eso, otro MsgBox a gusto del consumidor. En el adjunto hay 4 macros con todas las combinaciones de variables. Saludos MsgBoxMacro.xls

Hola a to2 to2.... Aquí os dejo otra elocubración. Se trata de un pequeño formulario que permite navegar por la hoja modificando los valores del scroll. Eventos: ThisWorkbook.Open: Ejecuta la macro VerScroll Click en flechas: Desplazan scroll filas/columnas a derecha/izquierda en función de los valores introducidos en Filas y Columnas. Doble Click en flechas Arriba/Izquierda: Mueve scroll a fila 1/columna 1 respectivamente Click y arrastrar en aspa roja: Mueve el formulario a voluntad Doble click en aspa roja: Descarga el formulario Macro VerScroll: Muestra el formulario Enjoy it ! o tíralo Salu2 Scrollador 2003.zip

Hola compañeros, este archivo es para calcular el IMC es decir, el Indice de Masa Corporal, hay muchas páginas en la web que lo hace, pero así lo tenemos más a mano y en nuestro programa favorito, para los excelmaniáticos. Espero que os gusten a tod@s, pero sinceramente, que les haga falta a menos gente, será buena señal para ellos. Un saludo a tod@s, Germán. PD: Va por ti, Luisv. IMC.zip

Hola a todos222222: Se trata de un par de formularios y una hoja para llevar un control de presencia, pagos, medicamentos. Vuestra imaginación es el límite. En el adjunto encontrareis 2 hojas fijas , "Menú" y "Resumen mensual". A continuación vienen 3 hojas a modo de ejemplo, son 3 como podrían ser 300 y tienen los nombres que tienen, pero podrían tener cualquier otro. Todas esas hojas tienen el mismo formato: La columna A para fechas correlativas y la fila 1 para personas, 1 en cada columna. Se pueden añadir, eliminar fechas a voluntad, incluso con saltos entre ellas. Una vez creadas pueden se ocultadas sin problemas. Al abrir el archivo se visualiza la hoja "…

Gracias a vuestra ayuda, he conseguido poner solución a un problema que tenia cuando hacia presupuestos. cada vez que hacía un presupuesto tenia que añadir a mano todos los datos de mis clientes, algunos ya los tenia y otros eran nuevos. ahora los que ya son clientes solo haciendo un clic se autorellenan haciendo mi tarea más facil. gracias a mjrofra por enviarme un ejemplo y leyendo en este foro sobre la función =Buscarv he conseguido una plantilla muy practica para mi que ahora la comparto con vosotros para que si a alguien la puede aprovechar que lo haga, me gusta ayudar cuando soy ayudado. comparto mi resultado. una plantilla de presupuesto con una base de dat…