Hola: Seguramente si hiciéramos un inventario de consultas, este sería uno de los temas estrella: Como actualizar una hoja a partir de información entrada mediante TextBox desde un formulario. Normalmente se plantean dos preguntas: ¿ Como obtener la primera fila disponible ? ¿ Como tratar los TextBox como si fueran uno solo (Array) ? En el adjunto encontrareis una función que es capaz de de contestar a esas preguntas con una sola línea de código. Solo requiere una sencilla norma a la hora de darle nombre a los TextBox, que tengan un prefijo común y a continuación el Nº de la columna a actualizar. En el ejemplo del adjunto se actualizan 10 columnas, pero pueden se…

Hola a todos: Se trata de un formulario de actualización y búsqueda automática con AdvancedFilter al escribir sobre controles TextBox . Válido para hojas con rangos comprendidos entre A:CZ (100 columnas aprox). La fila 1 se reserva para cabecera y la fila 2 para los parámetros del AdvancedFilter. Los datos deben empezar obligatoriamente en la celda A3. Utilizar los TextBox para buscar información, puede buscarse por todas las columnas. Los resultados de la búsqueda se obtienen a partir de la columna DA, por este motivo es por lo que los datos no pueden pasar de la columna CZ. Pulsando sobre la etiqueta del nombre de la columna, los resultados de la búsqueda se orde…

Hola a todos Tiempo sin tener mucha actividad en esta comunidad. Sin embargo, la he visitado con frecuencia para no perderme de nada. Gracias Dios estoy de vacaciones y espero descansar para el nuevo año. No obstante, estaré presente para aportar, preguntar, ayudar en lo que pueda. En esta oportunidad les dejaré un pequeño ejercicio de acumulado en Excel en un vídeo que realicé. Cualquier novedad con la calidad de la imagen me avisan. De todos modos es mi primer vídeo y no conozco mucho el como hacerlo pero me orienté mucho y gracias al amigo [uSER=143023]@Riddle[/uSER] que me dijo cual programa usaba. Saludos.

. Hola a todos: Os dejo una gestión de agenda con contactos y archivos asociados para llevar el control del maestro de proveedores (Es valido para cualquier tipo de entidad: clientes, bancos,...... ). Lo único diferente a otros aportes de este tipo es que he usado controles Listview(¡ La madre que lo par....!) en lugar de controles Listbox. Salud . Proveedores.zip Proveedores.rar

Buenas compañeros foreros Aqui os subo una idea, que se me ocurrio hace tiempo para buscar , yo lo aplique para buscar telefonos, pero sera facil transformar el formulario y la hoja para lo que os sea mas convenientes. Espero que os sirva de ayuda De paso me gustaria agradecer a todo los compañeros del foro las numerosas ideas que me han aportado, para solucionar los problemas con los que me encotrando. Gracias por compartir vuestro conocimientos, ojala algun dia sea capaz de saber tanto como vosotros. Por contener datos reales, este archivo fue modificado introduciendo datos ficticios. INFORMACION1.zip

Hola a todos aqui adjunto un archivo espero les sirva de algo como el mismo nombre lo dice Angenda y Control de Vacaciones saludos..... Agenda y control de vacaciones.xls

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…

Hola Por la red hay varias formas de encontrar con VBA si una hoja existe (hay una funcion UDF por ahi), pero este aporte es solo una forma diferente para agregar hojas en un libro, comprobar existencia y agregar un link que nos devuelve al menu u hoja principal Espero que sirva Sub agregarhojas() Dim Hoja As Worksheet, NuevaHoja As String, NuevoNombreHoja As String With Application .ScreenUpdating = False Sheets("Menu").Range("A1").Name = "Inicio" NuevaHoja = .InputBox("Nombre de hoja:", "Agregar hojas") If NuevaHoja = "Falso" Or NuevaHoja = "False" Or NuevaHoja = Empty Then Range("A1").Select: Exit Sub NuevoNombreHoja = VBA.StrConv(NuevaHoja, vbPr…

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

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

Es un pequeño proyecto en VBA utilizando un Userform y botones, para recrear este clásico, lo comencé hace algún tiempo, pero por tiempo y tal vez falta de motivación nunca lo termine, sin embargo aunque no esta completo deseo compartir la idea. Tiene varios errores y muchas reglas no se aplican correctamente, pues como dije nunca lo termine. No tengo ningún inconveniente si alguien se interesa en terminar el proyecto pues yo no creo que lo valla a terminar. Salu2 Ajedrez.rar

Hola compañeros Aquí acompaño un pequeño aporte resultado de trastear con Aleatorios. Un cordial saludo ALEATORIOS.zip

Por lo menos a mi me lo parece. Spirografh http://www.megaupload.com/?d=SKZUMVLX

¡Hola a todos! En el tiempo que he estado por acá (que no es que haya sido mucho) he visto que una consulta muy frecuente es la de realizar una búsqueda en una tabla de doble entrada o con dos variables o parámetros o no sé, cómo la quieran llamar. En todo caso, debido a que al parecer se han perdido los temas anteriores a la nueva imagen del foro (al menos yo no los he podido consultar) y así mismo los archivos (lo que es una lástima, pues ya había una fuente de consulta significativa), he construido a partir de otro archivo viejo que había subido alguna vez, un ejemplo con algunas ideas de fórmulas para buscar con dos parámetros. En el archivo van 9 ideas para realiz…

Hola a todos. He tenido la necesidad de incluir en un listbox información alineada a la derecha y a la izquierda, y me he encontrado con que no hay un comando especial para eso, que con la fuente courier new, se puede, agregando espacios en blanco delante del texto. En vista de que esa fuente es poco vistosa me di a la tarea de probar algo nuevo y es lo que quiero compartirles. Esta forma de alinear funciona con cualquier tipo de fuente. El listbox lo alineas a la derecha, eso te permite tener la información numérica de inmediato con la alineación desada. Para la información que desear alinear a la izquierda simplemente le concatenas espacios a la derecha (100, 1000, lo…

Hola! Les tengo un aporte más, este es un ejemplo de alta, modificación y eliminación de registros de una tabla de excel mediante un formulario, espero les sea de ayuda. Manejo 2 tablas una para los registros y otra para generar el ID autonúmerico Si abren el formulario se puedes agregar y modificar registros a parte de eliminarlos sólo con seleccionarlos en el listview y pulsar la tecla suprimir. Basicamente este es un ejemplo de como manejar mediante programación la nueva funcionabilidad de las tablas de Excel 2007 A demás de como utilizar un sólo formulario para realizarlo!! Lo siento por los compañeros que no tienen actualizado su excel! El archivo esta comenta…

Hola Microsoft Excel nos hizo la vida mas fácil al crear CONTAR.SI.CONJUNTO a partir de Excel2007 y realmente es muy útil aunque mucho antes de esta funcion nos apoyábamos mucho con SUMAPRODUCTO En el archivo adjunto hay otra alternativa mas con una funcion tan vieja como Excel jeje para contar valores bajo dos condiciones dentro de un rango, recomendada para grandes rangos de datos Pd: Especialmente dirigido a todos los formuliamos viciosos/fanáticos Saludos Alternativa de CONTARSICONJUNTO Y SUMAPRODUCTO.zip Alternativa de CONTARSICONJUNTO Y SUMAPRODUCTO.zip

Hace poco estuve trabajando a fondo en un proyecto que calcularía a futuro (3 meses) los días de inventario para varias divisiones, categorías, mg y sku por cliente. Para empezar las bases de datos con los que tendría que hacer los cálculos (inventarios, sell in, sell out) eran bases de datos que superaban los 500 mil registros, tuve que verme en la necesidad de previamente compactar la información de manera manual usando tablas dinámicas, luego supuse que tendría que crear varios resúmenes de datos, ya sea por cliente, categoría, etc… así que pensé pudiera hacerlo en Access (y quizás hubiese sido buena alternativa), desgraciadamente el prototipo tenía que estar listo en …

Hola! Bueno... algunos de ustedes sabran que soy un fanboy de Python y ultimamente estoy profundizando en el lenguaje Ruby el cual no le envidia nada a Python... lo que me fascino de estos lenguajes es que todo en ellos es un objeto, sobre todo en Ruby... y como algunos sabran un objeto posee metodos y propiedades tal como el modelo de objetos de VBA/Excel. Entonces Python y Ruby cuentan con unos objetos que simplifican la programacion al disponer de objetos como listas, tuplas, diccionarios, conjuntos entre otros mas, entonces por que no disponer de algunos de estos objetos en VBA/Excel para facilitarnos la vida como programadores? es decir por que no crearlos (o mini…

Buenas tardes , aqui os dejo una pequeña utilidad para poder añadir caracteres a una cadena tanto por delante como por detras, a traves de un formulario. Su funcionamiento es muy simple los caracteres que se pongan en cualquiera de los textbox, os saldran previamente en el frame de resultado y aceptar y se coloca en la celda activa. Espero que ayude, gracias añadir antesdespues.zip

Veo con cierta frecuencia en los foros consultas para determinar la fecha del último día hábil resultante de añadir cierto número de días hábiles (laborables) a una fecha inicial. He compendiado en el archivo adjunto distintas situaciones que se pueden presentar. - Con conteo a partir del mismo día inicial. - Con conteo a partir del día siguiente. - Con semana laboral de Lunes a Viernes. - Con semana laboral de Lunes a Sábados - Etc. Deseando pueda ser de utilidad a todos. Un saludo DÍAS_HÁBILES.xls

Hola: Pues eso, ha caido en mis manos como añadir elementos al menú contextual de celdas de Excel y he pensado que a lo mejor le interesa a alguien. Lo he sacado de una web en inglés: EXCEL TIPS Os dejo un ejemplo. Espero que os guste. Saludos. "Macro" Antonio. PD. Gerson, ¿ No te gusta mi nuevo nombre ? Antonio, Antoni, Anthony, Antonino, Antoine, ..... que mas da. MenuCntxl.zip

Hola: Como parece que mi último aporte no os ha impresionado lo mas mínimo, con este os voy a deja con la boca abierta y las mandíbulas desencajadas. Se trata de una macro que incorpora la lista de macros disponible en el menú contextual (Click derecho). En un módulo normal, añadir: ' ' Macro para añadir la lista de macros en el menú contextual ' '--------------------------------------------------------- ' Sub AñadirMenuContextual() 'Restablecemos el menú contextual '-------------------------------- RestaurarMenuContextual 'Añadimos Label "Lista de Macros" al menú contextual '--------------------------------------------------- Set cmdNew = CommandB…

Hola: Os adjunto dos archivos: 1) LicenseGenerator: Contiene un formulario que añade un Nº de Licencia y una Fecha de Validez a un archivo seleccionado previamente. El Nº de licencia consiste en 4 números de 4 cifras, de las cuales la cuarta cifra se obtiene a partir de un cálculo que se realiza con las otras 3. El número de tres cifras se obtiene aleatoriamente entre 101 y 999. Cuarta cifra = [(Unidades *2) + (Decenas * 4) + (Centenas * 8)] Módulo 10 La fecha de validez consiste en una fecha a 30 días, 60, días, 90, días o indefinida. Esta información se incrusta en la celda A1 de la hoja $$$Versión$$$, hoja que si no existe se crea y si existe se modifica. La for…

Hola: He descubierto por error algo que desconocía. Worksheets("Hoja1").Copy Worksheets("Hoja1")[/CODE] Este código añade al libro una hoja con los datos de Hoja1 con el nombre "Hoja1 (2)" Si le añadimos: [CODE]ActiveSheet.Name = "Copia de Hoja1"[/CODE] Tenemos una forma fácil de copiar una hoja con el nombre que queramos, es decir: [CODE]Worksheets("Hoja1").Copy Worksheets("Hoja1") ActiveSheet.Name = "Copia de Hoja1"[/CODE] Seguramente muchos ya lo conociais, pero a mi me ha sorprendido que con el método Copy podamos añadir una hoja. Saludos. Antoni.