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

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

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

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

Hola! Pongo a disposicion de todos, un nuevo complemento en el que estoy trabajando. Por el momento, dicho complemento incorpora una funcion de concatenacion personalizada, la cual permite la concatenacion de rangos e incluir un separador entre cada una de las celdas, espero que les sea de utilidad. Mas adelante espero poder agregar mas funciones y menus personalidados para realizar tarea personalizadas y de uso general. Les dejo el link en el cual podran descargar el complemento y ver el video de su instalacion: [DBOX]Complemento iSoft Utilities para Excel 2003/2007 | MeXcel Plus[/DBOX]

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

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

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

A petición de un miembro del Staff del Foro, subo este archivo en el que figura algún supuesto más de los que aparecían en el archivo que en su día acompañé. Saludos PROMEDIO.COMPENDIO.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…

(Versión 1.1) del Encriptador Superficial Hojas Excel Codificar/Decodificar la información nunca fue tan fácil y peligroso al mismo tiempo gracias a este archivo. Se usa un código básico de codificación/decodificación muy simple (muy mejorable) unido al algoritmo de encriptación MD5 para codificar una contraseña y luego otro algoritmo se encarga de codificar/decodificar con la hash de 32bits el texto de cada una de las formulas, de modo que nadie salvo el que posee la contraseña puede acceder a la información; eso sí, existe bastante peligro de perder toda la información encriptada si se introduce una contraseña errónea puesto que el algoritmo no verifica la contraseña…

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

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

En este vídeo vemos como insertar el logo de nuestra empresa en nuestras hojas de cálculo para mejorar la presentación de las mismas.

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.

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: Comparación de la Hoja1 con la Hoja2 fila a fila. Al abrir el libro, se pedirá el número de cada columna que forma parte de la clave a comparar. Se admite cualquier número de columnas. Cada vez que seleccionemos una celda de la Hoja1 en la ventana 1 se buscara la clave de la Hoja2 en la ventana 2. Si se encuentra la clave, en la hoja 2 aparecerán: 1) La clave resaltada en color verde 2) Las celdas sin variación sin color de resalte 3) Las celdas con diferencias resaltadas en color rojo En la barra de estado de Excel, aparecerá la fila con las diferencias y errores. Para cambiar el criterio de búsqueda, activar cualquier hoja en la ventana 1 y volver a selec…

Hola a todos Aqui subo un pequeño formulario que permite mover hojas por el libro, permite seleccionar varias hojas para moverlas, espero que os guste Gracias por vuestra atencion MoverHojas con formulario_v1.xlsm

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…

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 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 a todos Aqui os dejo un excel que he elaborado para generar un cuadrante anual de turnos de trabajo. Al pulsar el boton de grafico se genera el gafico, segun el ciclo de trabajo que se tenga dispuesto en la fila ciclo de trabajo, El ciclo puede ser tan largo como se necesite ( hasta el final de las columnas). Segun se ponga asi se genera, color de fondo, color de fuente . En la fila de dia de inicio se pone el dia de incio del ciclo, segun se van añadiendo seran el numero de agentes para cubrir las necesidades El que mando es para el supuesto de cubrir los tunos de Mañana, Tarde y Noche con dos agentes por turno y descansado el sabado y domi…

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

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