Hola Podeis echar un vistazo rapido a las formulas que tiene una hoja con la siguiente funcion: Sub CheckFormulas() Dim p As Range For Each p In ActiveSheet.UsedRange If p.HasFormula Then p.Interior.Color = RGB(125, 0, 0) End If Next End Sub[/CODE] La unica pega es que no tiene en cuenta el formato original de la hoja, por lo que se perderan los formatos de las celdas afectadas. (El ejemplo está incompleto por que es un boceto para salir del paso y no estoy mejorando las chapuzas que hago por falta de tiempo); No obstante, para mejorarlo se podría hacer lo siguiente: Antes de pintar la celda, guardar el color en la p…

crea solicitudes para el control de tu cuentas, factura, registra gastos y preenta reportes d emodulos por cuenta registro espero les sirva hecho con excel como motor y acces como base de datos se controla la partida con el tipo de transaccion. Dropbox - PARTIDAS DE CHEQUES.rar para los q pudieron tener inconvenientes con el dtpicker adjunto control modificado y nueva actualizacion de auxiliar https://www.dropbox.com/home?preview=PARTIDAS+DE+CHEQUES.rar actualizacion con menus estilo offices usando el Custom UI Editor For Microsoft Office para elaborar menus estilo ribbon https://www.dropbox.com/home?preview=PARTIDAS+DE+CHEQU…

Estimados, hoy día dí por solucionado un tema que levanté llamado "Color en el Filtro", gracias a la ayuda de Ama, Gerson e ioyama. Por lo pronto observando un aporte de Macro Antonio, observé y modifiqué el código. Esto permite dar color a los nombres de las celdas que se estan utilizando para efectuar un filtrado, así puedes ver rapidamente con claridad qué columna(s) estás utilizando para buscar la información: Private Sub Worksheet_Calculate() Dim af As AutoFilter Dim fFilter As Filter Dim iFilterCount As Integer If ActiveSheet.AutoFilterMode Then Set af = ActiveSheet.AutoFilter iFilterCount = 1 For Each fFilter In af.Filters If fFilter.…

He encontrado un par de referencias que me parecen muy útiles para quienes, como yo, en materia de programación no saben hacer la "O" con un canuto. El "abc" de Visual Basic: explica de forma muy sencilla las bases de este lenguaje. Enlace "Manual de Macros en Excel": El "abc" de las macros en Excel, para hacer los primeros pinitos y ayudarnos a entender (y a adaptar) lo que se escribe en el foro de Macros. Saludos cordiales.

Saludos a Todos. Subo el presente archivo cuenta con dos macros para el mismo encabezado y pie de pagina en todas las hojas, y un form para seleccionar mediante un list las hojas a las cuales quieres aplicarles el encabezado y pie de pagina, espero sea de utilidad. Atte. joshua Encabezado y Pie de Pagina.zip

Buenas a todos. Me toco crear un calendario que se genere automático con las fechas de la comunidad Autónoma, en este caso, las de Asturias. Peros se pueden cambiar con las de vuestra comunidad. Cuenta los días de guardias festivos y laborales x trabajador tiendo en cuenta los colores asignados a cada uno en el calendario. Lo comparto con vosotros por si os hace falta. Un saludo a todos. Calendario.zip

Bueno, como dice el encabezado creo que esta terminado por mi parte, seguramente se le podria imcorporar más funciones pero yo no llego a más. Subo el archivo para que los que me han ayudado (sin ellos no podria) lo repasen y si alguien lo quiere usar ó mejorar esta a su disposición. Nota: si se me ocurre algo que añadirle ya mandare un SOS. Gracias a todos Luis Propuesta de Pedido2.rar

Hola a todos, espero que este recurso les sea útil. Se trata de una función construída para extraer la parte numérica de un domiclio. (Quise subir el archivo, pero siendo con extensión .xlsx, me lo ha rechazado) Puede copiarse y pegarse en un módulo nuevo. La función es la siguiente: Function Numero(domicilio As String) As Integer 'EXTRAE DE UN DOMICILIO SU PARTE NUMÉRICA (numeración de la Calle) Dim pos As Byte ' variable que representa cada caracter en el domicilio Dim texto As String texto = Replace(domicilio, " ", ",") 'Al reemplazar espacios por comas (o cualquier otro caracter) 'se evita que el nro d…

Enlace del archivo en Dropbox (Por Tamaño: 2.36MB): https://www.dropbox.com/sh/ulkaemobligspzv/AAAW263LWiQ1WNVVLnYpw9Gta?dl=0 Es la 1a vez que remito por este medio, ojalá resulte. Es muy práctico en la " VIDA REAL, funcional al 100%" para cualquier tipo de proyecto: Obra Civil, Eléctrica Pasos: 1) Ir al Tablero Avance de Obra, que reparte con vínculos al Cronograma y Fotos y a la Bitácora ( que no la incluyo en esta ocasión) El Cronograma es de lo mejor, muy útil en la vida real y genera a) Gantt, Avance Físico y Financiero c) Gráfica e avance

En este vídeo vemos como añadir BETWEEN y NOT BETWEEN a nuestra sentencia SQL para extraer registros de una BD Access a través de Excel y con VBA. Espero os guste y os sea útil.

Hola a tod@s, acabo de ver un tema que pregunta sobre ésto mismo, pero en vez de colocarlo en ese post, lo pondré en los archivos de "APORTES" así lo podrá encontrar cualquiera que necesite algo así más facilmente, con éste archivo tan solo poniendo el número de los equipos o jugadores participantes, escogiendo si la liga será solo de IDA o IDA y VUELTA, y ejecutando una macro, se repartirá la liga completa, ya solo quedará poner en las casillas correspondientes y solo una vez los equipos o jugadores participantes, y automáticamente aparecerán en las jornadas. Espero que os guste y sea provechoso, eso sí seguro que ahorrará muchísimo trabajo. Un saludo, Germán. REPARTO…

Hola: Aquí estoy de nuevo con mi aporte mas friki. Se trata de una especie de SpreadShed/Grid de datos/Listbox construido a base de controles Label y TextBox. En este aporte se reune todo lo que he aprendido sobre añadir controles en tiempo de ejecución y de generar eventos a partir de una clase. Vale para cualquier hoja con formato tabla, es decir, cabeceras en la fila 1 y datos sin vacíos en la columna 1. Al arrancar el formulario vereis una especie de hoja Excel, en ella se mostrará una copia de la hoja activa. Los celdas pueden modificarse directamente sobre el Grid o seleccionando las celdas con un doble-click, en este caso el valor de la celda pasa a un textbo…

Hola! Les comparto el siguiente link en el cual se pueden decargar un ejemplos de codigo para la creacion de graficos y como exportarlos como imagen: Creación de gráficos con VBA/Excel « MeXcel Plus Principalmente se ve como modificar el chartarea, plotarea, series, algunas de las propiedades de los graficos. Saludos!

Hola: Ya nos hemos comido Julio, y a los mortales que tenemos todo el año de vacaciones nos da lo mismo, otros por el contrario hoy disfrutareis de vuestro primer día de trabajo una vez terminados esos "maravillosos" días con la mujer, los niños, la suegra, el calor, los mosquitos, los atascos, el precio de la gasolina y esas pequeñas cosas que nos acercan cada vez mas a la felicidad...... jejeje. He hecho un pequeño descanso de mi descansada vida para dejaros una muestra de mi insuperable ingenio. En mi constante búsqueda del nirvana de la inutilidad, he creado el juego de "El Buscaminas". La diferencia con el clásico de Windows, es que si jugais con el mío, siempre …

Hola, Les anexo un archivo con un formulario diseñado como barra de progreso, este lo realicé ya que ejecutaba un proceso muy grande en la que necesitaba que el usuario pudiera ver en qué proceso va la macro y poderlo cancelar en cualquier momento, además de poder mostrar algún error en él, esto ayuda mucho ya que el usuario puede copiar el texto del mensaje y enviarlo por correo para su revisión. Aunque requiere un esfuerzo extra de programación me ha ayudado mucho, cualquier mejora que puedan aportar es muy bien venida!!! Espero los sea de ayuda Saludos! ProgresBar.zip

Hola: Os adjunto procedimiento para formatear un listbox de forma autómatica: Supuesto de partida: Lista en A1 de Hoja1 Se toman de la fila 1: .Fuente: Nombre, Tamaño, Negrita, Itálica .Columnas: Numero, ancho .Ancho lista: Sumatorio ancho columnas Private Sub DimensionarListbox() 'Rango inicio cabecera lista Sheets("Hoja1").Select: Range("A1").Select 'Fuente y tamaño ListBox1.Font = ActiveCell.Font.Name ListBox1.Font.Size = ActiveCell.Font.Size ListBox1.Font.Bold = ActiveCell.Font.Bold ListBox1.Font.Italic = ActiveCell.Font.Italic 'Dimensionamos el listbox ListBox1.ColumnWidths = "" Do Until ActiveCell = "" ListBox1.ColumnCount = ActiveCell.…

Bueno amigos, aqui dejo una pequeña plantilla, probadla y conmentar cómo va.Saludos Proveedores.zip

Hola: Tras leer este artículo ByVal or ByRef Parameters proporcionado por nuestro amable "BigBoss" Proper, me he puesto a jugar un poco, y se me han puesto los pelos como escarpias. Ya tenía mas o menos claro la diferencia entre pasar los parámetros como ByRef o pasarlos como ByVal. Pero lo que no tenía nada claro es que los parámetros son posicionales. Pero lo mas terrorífico que he descuebierto es que, al ser los parámetros posiciones, los nombres de las variable no se utilizan absolutamente para nada, y por ello si dentro del procedimiento Llamado modificas el valor de uno de los parámetros por ejemplo el nº 3, quedará modificada la variable que pasamos en tercer l…

Hola: Supongo que no soy el primero que se imagina a un libro Excel como si fuera un cubo. Un cubo en el que los ejes son : filas, columnas y hojas. La pena es que esos ejes están fijos, pues bien ahora ya no lo están. Con Macrocubo podrás ver los ejes como tu quieras. Limitaciones: 1) Todas las hojas han de tener el mismo diseño 2) Los títulos de columna estarán en la fila 1, y no podrán estar duplicados 3) Los títulos de fila estarán en la columna 1, y no podrán estar duplicados 4) Los títulos tanto de filas como de columnas deberán estar de acuerdo con las reglas de los nombres de hoja. 5) Los datos empezarán en B2 y deberán ser numéricos En el adjunto lo v…

Hola: Respondiendo a este post: https://www.ayudaexcel.com/foro/threads/importar-los-datos-adquiridos-de-la-consola-de-windows-a-excel.40756/ Adaptado papelera vacia por @jonetoja Declare Function OpenClipboard _ Lib "User32.dll" _ (ByVal hWndNewOwner As Long) As Long Declare Function EmptyClipboard _ Lib "User32.dll" () As Long Declare Function CloseClipboard _ Lib "User32.dll" () As Long Sub muestra_cmd1() Call ClearClipboard Dim objWshell As Object Dim miPortapapeles As New DataObject, Contenido As String Set objWshell = CreateObject("Wscript.Shell") objWshell.Run "cmd /k " Application.Wait Now + TimeValue("00:00:01…

Elimina las filas o ítems de un ListView 4.- Eliminar Filas de ListView (2).xlsm 4.- Eliminar Filas de ListView (1).xlsm

Hola compañeros. Aunque el tema está un poco socorrido, quizás le pueda servir a algunos compañeros. Un saludo EDITO: Con fecha 24-Junio-2014 he sustituído el archivo por otro ampliado. PROMEDIOS.zip

Los emprendedores, autónomos y Pymes tienen que llevar un estado de sus cuentas de pérdidas y ganancias, desglosando los gastos y los ingresos y los resultados antes y después de impuestos. Esto es lo que hace el fichero compartido por ON Traductores que nos anima desde su blog a usarlo y difundirlo. Aunque está pensado para el negocio de los traductores, es posible usarlo para otros negocios, como el de programación, siendo que los gastos son muy comunes a ambos. Adjunto el fichero para descargar ONTRAD P&L (Profit and Loss Statement) y averigua si te sirve. [DBOX]http://ontraductores.com/blog/wp-content/uploads/ONTRAD_P&L.xlsx ON traductores Blog » El tradu…

Hola: Antonio Aunque no es la primera vez que se suben teclados, esta vez he querido hacer uno lo mas compacto posible. Se puede hacer mas grande o mas pequeño a voluntad y se puede posicionar en cualquier lugar de la hoja. Escribe directamente en la celda activa. La tecla Enter avanza a la siguiente celda en función de como esté configurada en Excel. Paz y amor Vuelto a subir el archivo el 04/04/2015 a las 12:00 UTC. (problemas con el separador decimal) Vuelto a subir el archivo el 06/04/2015 a las 17:17 UTC. (problemas con el avance de celda. Tecla Enter.) . Teclado virtual.zip