Hola! Hace no mucho publique algo acerca de python de un reto de programacion, en el cual lamentablemente no pude continuar... esa ya es otra historia que conocen mejor Macro Antonio y Cacho! Hoy! quiero compartir con ustedes este complemento que encontre para excel 2003 y 2007 y que sirve para crear scripts Python que se ejecutan en Excel. Wow es una maravilla! algo recortado pero muy emocionante e interesante! Este es el link de donde pueden descargarlo: DiscoveryScript - Xefion En la pagina viene un ejemplo sencillo de su instalacion, funcionamiento y un pequeño script de ejemplo! Con esta utilidad, ya disponemos de otro lenguaje de programacion para efectuar nu…

Hola: Este aporte, básicamente, es solo para viciosos de Excel, ya que no tiene demasiada utilidad salvo la de analizar el código y ver como se pueden crear controles y tratarlos todos con el mismo evento. Se trata de informar un textbox a través de un teclado virtual creado con labels. Es capaz de evaluar expresiones aritméticas utilizando el signo igual del teclado numérico. (Ultima tecla inferior derecha) Podeis adaptar el tamaño con la propiedad Zoom del formulario. Saludos. Teclado alfa.zip

Hola: La mayoría de vosotros ya sabeis que un ListBox/ComboBox no admite mas de 10 columnas si se carga manualmente, es decir, con el método .AddItem. Esta limitación no existe si se usa la propiedad RowSource, sin embargo esta propiedad es algo delicada, ya que el rango y el control quedan "linkados", y ninguno de los dos es susceptible de ser modificado. Tambien podriamos usar la propiedad .List() = Rango.Value que no tiene ese inconveniente, pero entonces perdemos la posibilidad de usar la propiedad .ColumHeads para la fila de encabezamiento, en fin todo problemas. Creo que en el aporte he conseguido subsanar todos estos inconvenientes a base de crear una hoja de t…

A raíz de un accidente que tuvo mi hermano en coche hace unos días, (que por suerte nadie sufrió daños físicos), decidí ayudarle a recrear los hechos en Excel para enviarlo en el parte de accidente a la aseguradora, que por cierto han quedado bastante contentos. Esta herramienta se puede usar para recrear alguna situación entre uno o más vehículos. Importante dejar claro que el propósito de este programa no es crear realidad, sino un boceto aproximado de lo que uno piensa que ha ocurrido. Ventajas: Al trabajar sobre una imagen de satélite, pueden recordarse mejor los hechos. Muchas veces transformamos la realidad en nuestra cabeza a la hora de hacer memoria, per…

Hola: Vamos a ver si me se explicar. El llenado de listas y cuadros combinados en un formulario es de lo mas tedioso y repetitivo. Me estrujado los sesos pensando como poder realizar esta tarea sin necesidad de escribir o copiar el código cada vez. ¿ Que diferencia hay de un control de un formulario a otro control de otro formulario ? Pues: 1) El formulario 2) El control 3) La hoja donde están los datos 4) El rango de inicio de los datos 5) El nº de columnas Pues con esas variables he creado una función que realiza el trabajo de llenado del control. El nº de columnas se toma de la propiedad .ColumnCount del control La función retorna el nº de filas que s…

A pesar de haber ya decenas de versiones de funciones que hacen algo similar, os dejo aquí una de mi propia cosecha que he diseñado para evitarme los dolores de cabeza que me daban las demás. Esta función, devuelve exactamente la última fila de cualquier hoja del libro que contiene algo en ella estemos o no en dicha hoja y sin necesidad de haber guardado los cambios. Option Explicit Public Function UltimaFila(Hoja As String) As Integer On Error GoTo errores UltimaFila = Sheets(Hoja).UsedRange.Row + Sheets(Hoja).UsedRange.Rows.Count - 1 Exit Function errores: UltimaFila = -1 End Function[/CODE] Curiosamente, tras buscarla en google ya existía,…

Hola compañeros Acompaño un archivo que podría emplearse para Control de Personal. Contenido: Control de vacaciones, trienios, antigüedad, etc. Podrían añadirse más supuestos en función de las necesidades del operante. Celebraré que le sea útil a alguien. Un saludo EDITO 1: He sustituído el archivo con alguna mejora. EDITO 2: He subido un 2º archivo para el caso de que existan dos períodos de vacaciones en lugar de uno sólo. CONTROL DE PERSONAL.zip CONTROL DE PERSONALbis.zip

Hola amigos: Aqui les envio un pequeño archivo que manejo en mi empresa, es para controlar los gastos vehiculares (gasolina, mantenimiento, etc.) la clave de ingreso es: 1234 pueden adecuarlo a sus necesidades. Saludos CONTROL DE VEHICULOS.rar

Oculta la columna si cumple el criterio, que la columna este en valor 0. Sub Ocultar_columnas_0() Dim x As Integer Dim y As Integer y = 0 Range("J5").Select For x = 10 To 256 Cells(5, x).Select If IsNull(ActiveCell.value) Or ActiveCell.value = "" Then MsgBox ("Fin del Proceso, Se modificaron: " & y & " Columnas en Ceros") Exit Sub Else Selection.End(xlDown).Select If ActiveCell.value = 0 Then Selection.EntireColumn.Hidden = True y = y + 1 End If End If Next x End Sub[/CODE] Es algo que quice compartir, espero le sirva alguien mas.

Estoy compartiendo con ustedes un Estado de Cuentas que podría servirte de ayuda en cualquier cuenta por cobrar que tengas en un pequeño negocio. Este estado de cuenta puedes enviarlo por email, así como convertirlo a PDF para tu archivo personal o también imprimirlo para ser enviado por correo. Está sujeto a cambios y modificaciones que creas que puedan ser convenientes, así como nosotros mismos a aceptar sugerencias para mejorarlo. Esperando puedan darle un uso racional. Saludos, JULIO Estado de Cuenta Clientes.zip

Estimado forer@s para el estres, Algunos juegos bajados de la Web http://cid-286b02768fbd2333.office.live.com/self.aspx/.Public/Juegos.zip

Hola En el archivo adjunto podran ver como con "formulas", es posible "listar" todas las hojas de un libro, ver su posicion y el total de las mismas Espero que les guste y lo mas importante que sirva;) Saludos desde Honduras Listar hojas de libro (con formula).zip

Hola a todos, nuevamente les subo un aporte para aquellos que hasta ahora usamos userform pero que queremos darle un toque más elegante; esto lo aprendi gracias a ST que una vez le hice una pregunta sobre esto y ya luego lo tuve que adaptar a mis necesidades. Iba a intentar subirlo al foro directamente pero es mas pesado y bueno no pude por si un dia entran y ya ha caducado la pagina me lo hacen saber y nuevamente se los subo. Asi que todo aquel que use un programita y lo quiera ver mas bonito pues el codigo les sirve. Lo prueban y me comentan pueden agregar el fondo que deseen jeje. 2shared - download Aporte.dramidom.zip Saludos,

Hola a todos: Os dejo un complemento para pegar un rango con formato condicional eliminando dicho formato, pero respetando los colores. Supongo que todo el mundo sabe instalar un complemento, pero por si acaso: Botón de Office\Opciones de Excel\Complementos\Ir a....\Examinar Seleccionar el complemento y pulsar Aceptar. Funcionamiento: Copiar el rango, con o sin formato condicional, no importa, Click derecho y pulsar sobre la opción " Pegar eliminando formato condicional". Si el rango copiado, contiene celdas con formato condicional y sin formato condicional, se producirá un error. Si el rango seleccionado no contiene celdas con formato condicional, se efectuará un…

Buen día a todos Pues hace poco respondí un tema de un grafico abc como vi que no anexaron ejemplos me atrevo a anexar nuevamente el archivo con algunas mejoras (y espero no este mal), ya que los temas de inventarios son muy solicitados, espero les guste y también espero no violar ninguna norma del foro. Al grafico se le pueden anexar más datos y estos los calcula automáticamente y si requieren menos datos con solo eliminar desde la última fila no tendrán ningún problema. Espero les sirva y si les llega a gustar a varios empezaré a darle una manita de gato a varios archivos de ingeniería que hace mucho tiempo diseñe como los gráficos x-r y/o ojivas, etc. Sin mas un sa…

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…

Hola: El título del aporte lo dice todo: Sub QuitarFormulasRespetandoValores() On Error Resume Next For Each Hoja In Sheets For Fila = 1 To _ Hoja.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row For Columna = 1 To _ Hoja.Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column Hoja.Cells(Fila, Columna) = Hoja.Cells(Fila, Columna) Next Next Next End Sub[/CODE] Un saludo. "Macro".

. Con este editor de códigos QR en Excel puedes generarlos manualmente. Necesito tu ayuda para encontrar los puntos negros que faltan para generar en Excel el código QR de la página principal de este foro, como puedes ver en esta foto el enlace que obtengo es erróneo: Este aporte se basa en algunas de las ideas sugeridas en los siguientes temas: [DBOX]https://www.ayudaexcel.com/foro/macros-programacion-vba-10/codigos-qr-excel-26634/ https://www.ayudaexcel.com/foro/macros-programacion-vba-10/codigo-barras-bidimensional-22229/ https://www.ayudaexcel.com/foro/ideas-aportes-64/ver-duplicados-mousse-31371/[/DBOX] Descarga el fichero adjunto y respóndeme, si eres tan a…

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 a todos: En uno de sus comentarios, Pedro (pegones1), ha hecho que recordara con nostalgia mis primeros tiempos de contacto con la informatica. Por este motivo abro este hilo para todos aquellos que como Pedro, o yo, llevan unos añitos en esta profesión, y quieran aportar sus recuerdos y experiencias. Aquí empieza mi cuento: Cuando empecé, a los ordenadores se les llamaba IBM's, porqué al igual que la CocaCola, nadie conocía otra cosa. Mi primer ordenador, bueno no era mio, fue un IBM 360/30 como el de la foto: En primer lugar, a mano izquierda está la CPU, con la increíble memoria para la época, de 32 Kbytes. Abajo a mano derecha, la consola, única forma de…

Hola a todos, después de un comentario y solicitud de ayuda para un tema, he estado trabajando en esto mismo, y además de dárselo al compañero que preguntó, deseo dejarlo aquí por si alguien más tiene niños pequeños y lo quiere, simplemente se trata de sumas con dos, tres, cuatro y cinco filas y una, dos o tres cifras y restas de una, dos y tres cifras, donde el niño tiene que poner el valor correcto, si no dará error y no le dejará continuar, y una vez terminadas haciendo click en un botón le cambiará a nuevas cuentas borrando las anteriores. Lo he estado probando y no he detectado errores, pero por favor si alguien detecta alguno, que lo comente para solucionarlo, ok? …

Codigos del Libro VBA Excel 2002/2000, 49 ejercicios prácticos y de Fermi Vila, Editora Alfaomega Ra-Ma, mas 15 practicas, cualquier error de digitación corregirlo. enviare por partes hasta completar los 49 ejercicios y 15 practicas. 49 ejercicios prácticos de Fermi Vila.ro.zip - Windows Live

Hola: He encontrado en Daily Dose of Excel esta curiosidad que, yo particularmente, desconocía: Mensajes que solo están visibles cierto tiempo. Sub MensjeConTiempo() Tiempo = 3 'Segundos x = CreateObject("WScript.Shell").PopUp("Este mensaje solo durará " & _ Tiempo & " segundos", Tiempo, "Mensaje de duración determinada") End Sub [/CODE] Saludos. Antoni. PD: Por poco inglés que sepais, os recomiendo seguir los foros de "Feeds de otras Webs", hay autenticas maravillas.

SIMULAR SER UN TECLADO Ejecutar combinacion de teclas directamente al buffer del teclado He pasado un calvario antes de toparme con este magnifico codigo al que se le puede sacar mucho partido. Este post es la respuesta a otro en el que andaba buscando una funcion que insertara las teclas directamente al buffer del teclado, simulando ser una persona que presiona la tecla. Me refiero a que, con esta funcion, ya no hay que ir apuntando a la aplicacion a la que queremos enviar las teclas. Sera exactamente igual que si presionaramos nosotros mismos las teclas en el keyboard, por lo que funcionaran cosas como: ALT+TAB= display aplications, CONTROL+ALT+SUPRIMIR, es decir, cu…

Como decía en mi presentación, debo agradecer a dundermiflin por un fantastico archivo sobre vacaciones (VacancesAmbit 97-2003v4) que he utilizado como base de un proyecto. Pongo el archivo al que he llegado por si puede ser útil a alguien. Muchas gracias desde ya y un gran saludo Pedro Copia de Vacaciones1.zip