Hola: Con este aporte podreis hacer "fotos" a rangos que se actualizarán de forma automática cuando modifiqueis el rango original. Subo yo este aporte pero funciona gracias al gran neverdelimon1. Os dejo también una posible aplicación del tema: Un reloj, reubicable y redimensionable, y si le cambiais la fórmula podeis mostrar cualquier rango. Saludos Camara.xls Reloj IV.xls

Como estamos a primeros de este año 2011 difícil, económicamente hablando, comparto en este foro un control de gastos personales con el que hace unos meses participé en un concurso de ideas en el blog en inglés de Chandoo y ahora lo acabo de traducir al español y lo subo a este foro. Como dijo Chandoo de mi propuesta, es: Un control de ingresos y gastos personal. Fácil introducir los ingresos y los gastos en hojas separadas. Un control mensual. Un control diario. Una comparación de los ingresos y gastos y de los ahorros conseguidos. Espero que pueda ayudar a controlar la economía familiar. Nota: Vale para cualquier año. MisCuentasCaseras.zip

Hola No se si hay algo similar o al menos no lo recuerdo, pero igual lo dejo mas al alcance A raiz de un tema aqui por el foro, para insertar una hoja nueva en nuestro libro, manualmente, damos click derecho en el tab de una hoja cualquiera y damos click en "Insertar", pero Excel por defecto nos crea el nombre segun su contador interno, indexado Con esto podemos prefijar el nombre de nuestra hoja, acompañado del numero segun la cantidad de hojas creadas/contadas en el libro Pegarlo en Thisworkbook Private Sub Workbook_NewSheet(ByVal sh As Object) sh.Name = "AyudaExcel" & ActiveWorkbook.Sheets.Count End Sub[/PHP] Con ellos cada vez que[b] insertemos una ho…

Saludos. Envío archivo con un ejemplo que desarrollé y que de golpe, pueda ser útil. Si consideran que puede mejorarse, bienvenidas todas las recomendaciones. BarraProgreso.xls

Hola, He estado dándole vueltas mucho tiempo a esto, así que lo acabo de materializar tras descubrir la función ontime y os lo pongo para que le echéis un vistazo. Es un reloj de varilla. Hay por ahí ya intentos de reloj (que supongo funcionarán), pero para que funcionen hay que hacer mil historias, calcular senos, cosenos, ángulos, grados y muchas "cosillas" más, todo porque en Excel no se puede poner un punto de giro que no sea el central de una autoforma. Yo he tirado por el camino de enmedio: como una autoforma se puede rotar desde el centro, he hecho que el 50% de la autoforma que es la varilla quede transparente, así que puedo rotar "desde la base de la varilla", s…

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…

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

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…

Señores adjunto algo que hice en mis ratos de ocio, espero le sirva a alguien. Números a letras.xls

Hola: Hoy hace mucho frío para ir a la playa y me he entretenido con una curiosidad que he visto por ahí. Como simular imágenes animadas con la propiedad .Rotation del objeto Shape. De paso he utilizado un Timer con una Api. Se usa prácticamente igual que Application.OnTime, con la diferencia de poder usar intervalos de tiempo en milésimas de segundo. Saludos Frase del día: Timer+Voltear.zip

Hola: Lo siento, el cerebro se me está secando. Simple curiosidad. Saludos. Modificar Controles.xls

Hola: Bastante a menudo se reciben peticiones para solucionar el tema de la numeración de documentos (Facturas, Albaranes, Pedidos, Asientos, etc..). En el libro, encontrareis una hoja con el nombre NUMERADORES, con 2 columnas: Columna 1) Nombre del numerador Columna 2) Número de documento Pueden definirse tantos numeradores como se quieran. También hay un formulario con el nombre NUMERADORES. El funcionamiento es el siguiente: En el libro donde hay que numerar documentos, añadir en Thisworkbook: Private Sub Workbook_Open() Workbooks.Open ThisWorkbook.Path & "\NUMERADORES.xls" ThisWorkbook.ActiveSheet.Activate End Sub Private Sub Workbook_BeforeClose(…

Hola Es casi seguro que hay algo similar por el foro, pero de igual modo adjunto lo siguiente Colorear facilmente una fila Private Sub Worksheet_SelectionChange(ByVal Target As Range) Rem conseguimos la ultima celda ocupada de la columna A uf = Range("A" & Rows.Count).End(xlUp).Row Rem trabajaremos con Target/Objetivo With Target Rem si la columna activa se localiza despues de la columna E Rem si la fila activa es menor que 5 Rem si la fila activa es mayor que uf (ultima fila ocupada) Rem >>> entonces salir de la rutina If .Column > 5 Or .Row < 5 Or .Row > uf Then Exit Sub Rem trabajando con el rango Range("A5:E" & uf…

Hola, Adjunto un archivo con una pequeña macro que indica las veces que se ha editado el texto de la celda que indica la macro (A2 en el archivo). Se requiere una celda de control, para contrastar los cambios realizados. No cuenta los cambios que dejan el texto igual. Un saludo. veces_editada_celda.xls

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

Hola: Ya estoy aquí de nuevo. Seguro que ya me echabais de menos. En el adjunto encontrareis un formulario y una macro de evento SheetChange en ThisWorkbook. En la macro, cada vez que se produce un cambio en cualquier celda, se añade una línea de comentario con la fecha, hora y valor/formula de la celda encerrado todo ello entre llaves. Por ejemplo: {10/06/2011 19:02:50 -Valor: Esto es una prueba} El formulario gestiona dicha información pudiendo: -Consultar la historia de cualquier celda -Restaurar cualquier valor anterior -Eliminar la historia hasta una fecha El sistema respeta en todo momento cualquier comentario que pudiera existir. Muy importante: Esta her…

Hola: Aunque creo que es un tema ya tratado con anterioridad, se me ha ocurrido utilizar Application.OnTime para hacerlo. Colocar en la hoja: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = ("$A$1") Then LlamarMacro Target End Sub [/CODE] Colocar en un módulo: [CODE] Sub LlamarMacro(Macro As Variant) Application.OnTime Earliesttime:=Now, Procedure:=Macro End Sub [/CODE] Cada vez que cambie A1 se ejecutará la macro que contenga su valor. Ni que decir tiene que también podríamos utilizar este método con un TextBox de un formulario o cualquier otra variable desde un módulo. Saludos. Una vez publicado el aporte he encontrad…

Hola: Se trata de un formulario donde se calcula el tiempo necesario que hay que andar para quemar una determinada cantidad de alimentos. Por otro lado también calcula la cantidad mínima de ingesta diaria de calorias para atender a vuestro metabolismo basal en base a la edad, sexo, altura y peso. Saludos Walking Calculator.xls

Hola, pasando un segundo por acá a dejar una idea que me parece puede ser útil (aunque no soy quién para decirlo). La macro borra el archivo que la contiene, lo que he visto se ha preguntado con alguna frecuencia en varios foros pero parece no haber una respuesta satisfactoria: Sub Matarme_con_VBscript() ' Variable que almacena la ruta y el nombre ' del archivo .vbs que va a borrar este archivo. Dim VBScript As String ' Tiempo, en segundos, que se va a dar de ' espera mientras se cierra el archivo. ' Es necesario dar un tiempo de espera para ' asegurarse de que el archivo ha sido cerrado. ' Si el script se ejecuta co…

Hola. Seguramente halla algo parecido en el foro, pero adjunto un pequeño ejemplo del uso de la función moda si se quiere conseguir el 2, 3, etc.. valor mas repetido. Un saludo a todos. 1.xls

Hola: Parece que algunos temas aparecen regularmente por el foro a pesar que se han solucionado con anterioridad, este es uno de ellos. A ver si hay suerte y la gente "se queda con la copla" esta vez. Se trata de un formulario que permite enviar a una lista de destinatarios el contenido de un rango. Se pueden asociar al envío un asunto y un texto introductorio predeterminado y modificarlos antes de enviar. El envio se hace con el objeto .MailEnvelope. Tan simple como: Sub EnviarEmail(Destinatario As Variant) With ActiveSheet.MailEnvelope .Introduction = Introduccion .Item.to = Destinatario .Item.Subject = Asunto .Item.Send End With End Sub [/C…

Hola; En unos días, subire los archivos de ejemplo que estoy utilizando para este curso para que a la vez que se utilice el manual se puedan usar los ejemplos. El tema 1 y 3 son los que mas me gustan. El tema uno por la parte de la in-seguridad de excel y el tres por el ultimo ejercicio, creo que esta muy logrado. El temario me salia algo mas extenso pero lo he tenido que dejar asi porque es para un curso de 25 horas, no podia poner mas cosas porque no me daria tiempo a verlo todo. Espero que os sirva. Indice Temario Tema 1.- Repaso de conceptos básicos para optimizar la construcción de Modelos en Excel Tema 2.- Funciones Avanzadas Tema 3.- Administracion y manej…

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…

Hola: Mientras espero a que den las 10 de la noche para ver al mejor equipo de fútbol del mundo me he entretenido en está ¿ cosa ?, es que no se como llamarle, mejor os lo explico. 1) Abrir un libro cualquiera de los que tengais por ahí. 2) Abrir el adjunto A partir de estos momentos, ya no podreis abrir libros, crear nuevos, ni añadir hojas hasta que no lo cerreis. ¿ Para que sirve ?, ....... pues para no mucho, pero menos es nada. Ale, me voy a cenar y luego al bar a ver el partido. Hasta mañana Macro BloqueoTotal.xls

Hola: El título lo dice todo. Basado, o sea, casi copiado de http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/54-dll-para-hacer-ping-trace-route.htm Saludos Ping.xls