Buen dia Señores expertos: Dejo humildemente un archivo para filtrar de acuerdo a la primera letra por medio de bucle do while loop. Es algo sencillo para muchos pero en lo personal, es una option mas a las tantas que contamos y que nos ayudará en nuestras tareas. Mis respetos para todos. P.D. El codigo empleado fue suministrado por el señor experto Macro Antonio, quien gentilmente me apoyo en dos interrogantes y de los cuales los modifiqué para hacer el filtro, ademas de otros trabajos que espero exponerlos para ustedes. Mil gracias señor Macro Antonio. Filtrar por la primera letra.zip

Hola En el enlace siguiente pueden obtener el archivo .: Unicos en Combobox ActiveX Espero sea útil! Saludos

La idea consiste en estar trabajando con un formulario/macro de un libro desde una instancia Excel oculta generada por otro libro, y además, podamos modificar los datos desde este. Encontrareis dos adjuntos: PruebasExcel abre PruebasExcel II, este muestra el formulario. El libro permanece disponible y bloqueado hasta que se cierra PruebasExcel, pero totalmente oculto al usuario. Imaginación al poder. V Paz y amor PruebasExcel.xls PruebasExcel II.xls

Hola: Os dejo esta macro a ejecutar desde Outlook que crea un libro Excel con los mensajes de la carpeta escogida. Sub ExportToExcel(): On Error Resume Next Dim appExcel As Excel.Application Dim wkb As Excel.Workbook Dim wks As Excel.Worksheet Dim nms As Outlook.NameSpace Dim fld As Outlook.MAPIFolder Dim itm As Object 'Creamos la instancia a Excel Set appExcel = CreateObject("Excel.Application") Workbooks.Add Set wkb = appExcel.ActiveWorkbook Set wks = wkb.ActiveSheet appExcel.Application.Visible = True 'Fila de cabecera wks.Range("A1") = "Asunto" wks.Range("B1") = "Cuerpo" wks.Range("C1") = "Remitente" wks.Range("D1") = "Destinatario" wks.Range(…

Hola: Ni el mismísimo profesor Franz de Copenhague inventaría semejante engendro. Aquí os dejo un "History sheet navigator", lo pongo en inglés para que Germán tenga que buscar en el diccionario...jejeje. Salu2 a to2 to2 Sheet Navigator.zip

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

En este tutorial añadimos la opción de "Punteo Manual" a nuestra hoja de conciliación para aquellas transacciones cuyos importes son diferentes y no se pueden conciliar de manera automática.

Tutorial en el que aprendemos el código VBA para centrar verticalmente el contenido de una celda.

Hola, Quizas sea algo demasiado obvio para muchos, pero recuerdo mis primeros días insertando botones en una hoja teniendo que adaptar el formato a la pobre lista que ofrecian las opciones a la hora de cambiarles el BackColor a los shapes. En muchos casos, hasta terminaba poniendole fondo transparente para usar el color de fondo de la celda. Si queremos algun color que no está en la lista de arriba, podemos modificar directamente el valor "&H00000000&", usando los valores RGB en hexadecimal pero en orden inverso desde el último cero: &H00BBGGRR& Con macros se podría asignar tambien un color RGB mediante: NombreControl.BackColor = RGB(255, 255, 255)…

Hola amado pueblo: En esta ocasión os dejo un editor de celdas desde un formulario. ¿ Utilidad ? Revisad el código y encontrareis la forma de dar formato a una celda (Color, Tamaño, Fuente, Alineación, ...), no le encuentro otra. Abrir el archivo y seguid vuestros instintos. Salu2 a todos, todos Cell editor.xls

Hola: Esta macro rellena/quita relleno, a las celdas con fórmula. También es un ejemplo de como aplicar SpecialCells. Sub AlternarResaltarFormulas(Kolor) On Error Resume Next If ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).Interior.ColorIndex = Kolor Then ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).Interior.ColorIndex = xlNone Else ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).Interior.ColorIndex = Kolor End If MsgBox "Total celdas con fórmula: " & ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).Cells.Count End Sub [/CODE] Podeis variar Kolor entre 0 y 55. Saludos. PD: Como he leído por ahí, a mi también se me están alinean…

Les presento remusoft...una aplicación hecha con macros excel combinadas con conexiones ADO y base de datos Access, es muy intuitivo... saludos https://t.co/7ihQ8HCgxh

Hola pueblo: De momento el título mueve a la curiosidad. Se trata de un formulario de consulta válido para cualquier hoja dentro del mismo libro. Las dimensiones del formulario se adaptan automáticamente al diseño de la hoja. La consulta se visualiza en un "listbox" que no es tal. Se trata de una imagen del rango en un control Picture. Dado que se trata de una imagen del rango, los resultados serán mostrados con los formatos tal como están en la hoja consultada. El resultado de la consulta utiliza una hoja llamada Trabajo, es obligatoria su existencia, pero podeis ocultarla. Al pulsar sobre los encabezados, la consulta se ordena de forma ascendente/descendente en …

Hola: Dicen que vale mas un ejemplo que 1.000 palabras ,con el IVA 1.180,y pronto, lastimosamente, 1.200. Vale para comparar asignaturas, temperaturas, tiempos,... y lo que se os ocurra. Abrir el adjunto y pulsar Ctrl+f, se abrirá un formulario para comparar 1 hoja con 1 a n hojas (promedio si es mas de 1). Admite caulquier nº de filas/columnas, se reserva la fila 1 para títulos y el rango A:B para el ID y el NOMBRE del sujeto. Una vez ejecutado, aparecerán unas flechitas (Rojas, Azules, Verdes) en función de la comparación de las hojas seleccionadas en el formulario. Si se pulsa sobre una flecha, se mostrará los valores de comparación. ¡ Be happy ! Subida modifi…

Hola No recuerdo haber visto algo similar por el foro, sobre como ordenar una BD segun el "Borde" de sus celdas/filas, pues a raiz de un problema sucitado en el foro de "GALI", es que se me ocurrio hacerlo con macros, sabemos que Excel al momento de ordenar BD nos lleva consigo el formato de las celdas, excepto los "bordes!" pues estos ignoran el SORT/ORDENADO, he tratado de burlar un poco a Excel por medio de VBA para lograr el efecto deseado, espero se comprenda el objetivo y sea de utilidad En resumen como "ordenar una BD pero que lleve de una vez los bordes de sus celas"? y para que se entienda un poco mas, ordenen la BD manualmente y notaran lo que comenté arriba..…

Estimados compañeros He visto muchos calendarios "perpetuos" donde se selecciona un mes y un año y abajo dibuja el calendario completo. Aquellas veces que he visto cómo lo hicieron, muchos de ellos lo hacían con fórmulas matriciales, algunos con macros. Las fórmulas matriciales y las macros son medio complicadas (para el común de los primates) así que quise hacerlo sólo con fórmulas simples y formatos condicionales. En mi solución, he usado una única fórmula para todo el calendario (inclusive los títulos los saco con esa fórmula) y aplico formatos para los feriados (100% configurables) y para todo en general. Espero que les sea de interés este minúsculo aporte. Un abra…

Hola amigos subo este tutorial, pensando en que a pesar de que hay muchos tutoriales y muy buenos, pero o eran muy complicados de hacer o solo era para seleccion y lista pero ninguno para que la celda activa dispare con una formula y tambien este es un poco unico o talvez unico. trata de mostrar una imagen por medio de una forma, este es el codigo que se usaria Private Sub Worksheet_Calculate() Dim myImg As String If Range("B2").Value < 7 Then myImg = ThisWorkbook.Path & "\Imagenes\" & Range("B2").Value & ".jpg" Shapes("Contenedor").Fill.UserPicture (myImg) End If End Sub[/CODE] Dentro del archivo adjunto estan las instru…

Que tal amigos buenas tardes En el siguiente les dejo un aporte que espero les sea útil. Se presentó un reto en la web el cual lo vi por el Facebook en el que consistía en que al elegir un mes de una lista desplegable, en este caso su numero, este eligir el mes de un cuadro de 4 x 3 en la celda. Quise participar enviando la solución, sin embargo "ni llegué detrás de la ambulancia jejeje", porque no era con macros. Todo debía ser con formulas y formato condicional. Asi que lo mejoré un poco y se los paso a ustedes para que lo adapten a sus necesidades. Saludos cordiales. Month.zip

Hola Amigos ... Aquí les dejo este programa que solicita contraseña para iniciar de acuerdo a una fecha, el uso es muy sencillo para ingresar les dejo la contraseña en la hoja1, y esta fechado al 15 de septiembre de 2015 y lo único que hace es darte 2 avisos antes de borrar el archivo, se deberá de manejar precaución ya que si olvidan la contraseña se elimina el archivo ... La Macro se encuentra en "ThisWorkbook" Básicamente lo comparto para que exploren la programación, se que hay varias formas de hacer proteger datos pero esta se me hizo muy interesante y sobre todo espero les sea de utilidad. Saludos Max2005 Contraseña de Ingreso.zip

Otro libro para excel 2010. que lo disfruten Descargar: Excel 2010 Un Saludo:cool:

Hola bichos: Este es mi primer formulario en Word, espero que tenga mas éxito que mi primer aporte en Access. Se trata de un formulario que se abre de forma automática al abrir el documento de Word. Se abre el libro de Excel Direcciones.xls y se carga en un Listbox, al seleccionar cualquier elemento, los datos se traspasan al documento de Word. Abrir el archivo de Word, y si todo va bien, seleccionar un proveedor. Espero que os guste, y si no,..... no puedo reproducir lo que pienso. Os quiero, aunque alguno de vosotros es un poco Calcio+Bromo+Oxigenó+Nitrogeno+Cesio+Telurio, y si no es eso, se le acerca mucho,.....jajaja,......¡¡ Barça,....Barça,.....Barça !! Sobre…

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…

Una Forma en la que concilio mis Bancos Tanto con el Extracto Bancario y Extracto de la Empresa. Saludos. Contraseña: hugo Editado por administración para subir archivo directamente al foro. Conciliacion Bancaria.zip

Hola! Esto es un tanto más complicado, pero les será fácil entender la idea!!! Este ejemplo crea un menú inicial (MiMenuExcel) en cual tiene 2 opciones 1. Actualizar módulos - Dependiendo de los datos que se anexen en la Hoja1 en la columna A genera una macro para cada opción 2. Actualiza Menú - Esta lo que hace es crearte un botón en el menú por cada celda con datos en la columna A Lo importante de este ejemplo es que se agregan procedimientos y opciones en el menú dependiendo de las celdas con datos en la Hoja1 Algo importante, para poder ejecutar la primer opción en la seguridad de las macros en excel debe estar habilitada la opción de Acceso a Proyecto de VB ya …