Hola amigos: Les dejo un aporte, es una hoja de cálculo que traduce números a letras, quiero saber si la idea podría funcionar para otros idiomas. Saludos desde Perú. Numeros a letras.rar

Gráfico Rosa de los vientos. Rosa_de_los_vientos_tuve.rar

En el post 10 de este hilo, teneis los dos archivos con la solucion al problema que se plantea abajo y ademas un video donde se explica como han de montarse los archivos para que funcionen correctamente a traves de la red. Ir al POST 10 Hola, Hacia tiempo que no me encontraba con un problema que no se ni por donde cogerlo. - Tengo un libro que se guarda cada 15 segundos con "thisworkbook.save", el libro ejecuta una macro infinita y debe estár siempre funcionando. - El libro está compartido en red, dicho libro es copiado desde otros equipos cada X segundos a traves de la red. Todo el montaje funciona aparentemente bien y puede estár horas funcionando como debería…

En este tutorial vemos como alinear el contenido de una celda, de manera horizontal, a la derecha, al centro o a la izquierda.

Hola, Esto es una hoja con la que me he encontrado por accidente en una de mis busquedas de hojas por google. Vista por encima, hasta mi madre podria aprender a usar lo basico del excel, esta diseñada por etapas para los mas novatos. El archivo Saludos! EDIT: En el post4, (3 respuestas mas abajo), Luis ofrece una traduccion del archivo en expañol con alguna correccion hecha por el y por Antoni.

A raíz de una consulta me ha salido esto que creo que le puedes ser útil a alguien. Aquí os dejo un "Consultador SQL" válido para cualquier base de datos SQL. Abrir el adjunto y pulsar sobre el botón para seleccionar la base de datos. Solo teneis que añadir un origen de datos ODBC con la base de datos y listo. Pulsar Abrir base de datos y se mostrará un formulario. Puedes ejecutar cualquier sentencia SQL que se te ocurra (Select, Insert, Delete, Update,...) Aparte de la propia consulta en la hoja RESULTADOS (Si se trata de una sentencia Select), se obtiene un Log de la sentencia en la hoja SQL y el código VBA necesario para ejecutar la sentencia por medio de una mac…

Buenas compañeros, les dejo aquí un pequeño aporte que realice durante esta semana, se trata de un calendario para anotaciones, lo realice basado en una solicitud en el seguiente tema: Cerrado calendario 2013 programable con doble click me pareció interesante la idea y aquí está el resultado: La hoja principal es el propio calendario del año, la idea es simple, seleccionamos el día que queramos ingresar una tarea (o revisar las tareas ya ingresadas para dicho día) y nos saldrá una hoja donde tendremos una tabla con las 24 horas del día para ingresar las tareas, en esta tabla podemos tener hasta tres líneas de comentarios por cada media hora y adicionalmente tres líneas…

Hola: Con este aporte termino la trilogía dedicada a la comparación de datos. En este caso se trata de comparar 2 rangos cualquiera, de 2 hojas cualquiera, de 2 libros cualquiera. Abrir el adjunto y pulsar Ctrl+f o click derecho y escoger la opción deseada del menú. El resto no tiene misterio, seleccionar ambos libros y los rangos a comparar, que tienen que ser iguales de forma y tamaño pero no tienen porqué estar, ni en la misma hoja, ni en el mismo lugar. Es decir, podemos comparar el rango A1:A5 de la Hoja1 del Libro A.xls, con el rango D4: D8 de la Hoja2 del Libro B.xls. Los resultados de la comparativa en la hoja "Resultados", en las Hojas 1 y 2, los rangos que…

Buenas noches Les dejo un pequeño aporte el cual está en fase de diseño. Es un archivo de excel con conexion a una base de datos (Base de Usuarios) para que cuando ingresen, este les pida su usuario y clave, podrán abrir el menu pero este se abrirá con los permisos que anteriormente se le dé. Unicamente el Administrador podrá modificar y/o crear usuarios. Y será quien asigne los permisos para el uso del formulario. No obstante, este puede modificar tambien el Usuario del administrador y clave, cosas que entraria en conflicto con las variables empleadas para cotejar el administrador y las condiciones de uso del mismo. Las variables sin: Public Const Administrador As St…

Esta macro elimina duplicados de la columna que selecciones en el inputbox espero les sirva a mi me funciona bien en excel 2007. no se si se podra optimizar aun mas, pero igual queda a libre modificación. Sub RemoverDuplicados() Set rng = Application.InputBox("Selecione celda...", Type:=8) Range(ActiveCell, ActiveCell.End(xlDown)).Select Selection.RemoveDuplicates Columns:=1, Header:= _ xlYes End Sub [/CODE] Salu2.xlsx

Hola compañeros. En el mismo momento en que me pongo a escribir este mensaje, veo que ya hay bastante de este tema en el Foro. Pero por si aporto algo nuevo con él y le sirve a alguien, ¡allá va! Un saludo TRIENIOS.zip

Hola! Les dejo un aporte para importar datos de Access a Excel! Primedo deben de agregar la referencia "Microsoft ActiveX Data Object 2.8 Library" Esto es en la opción Referencias del menú Herramientas en VB. Sub importarDeAccess() 'Variables de la conección Dim miConn As ADODB.Connection Dim miRset As ADODB.Recordset Dim miBase, miSQL As String Dim miTabla As String Dim misCampos As Long Dim i As Long 'Colocar la ruta del archivo, en este caso la base 'Esta en la carpeta donde esta el archivo miBase = ThisWorkbook.Path & "\" & "db.mdb" 'Nombre de la tabla del archivo Access miTabla = "salarios_2003" 'Se crea y abre la conección Set miCon…

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…

Hace poco me encontré con Windows Management Instrumentation (WMI), que permite, entre muchas otras cosas, monitorear la memoria, procesadores, tareas, etc. Su uso es bastante sencillo. Para su demostración, he adapatado un archivo en el que se monitorea el uso de CPU en el computador, mostrando una gráfica como la que muestra el Administrador de tareas. El archivo no tiene mayor aplicación, es sólo una demostración de lo que se puede lograr con WMI y un poco de carpintería en VBA para graficar los datos que se van obteniendo. EXCELPATAS: Monitorear el uso de CPU usando WMI

Que tal amigos. Quería aportar un sistema de búsquedas interactivo que hice hace unos meses en Excel, de esta web saco algunas veces material para mi sitio por lo cual me parece justo que contribuya a esta excelente comunidad con un granito de arena. El archivo es bastante sencillo y permite interactuar con formularios para realizar búsquedas, puede servir como ejemplo o modelo si están pensando desarrollar algo similar. Un fuerte abrazo desde Perú. Sistema de busqueda interactivo.zip

(NUEVO) AimKeys (Enviar combinacion de teclas directamente al buffer del teclado) Mi aporte no es la API (mas info de la API al final del post), sino la función AimKeys, que no es más que un gestor de combos de teclas muy sencillo de usar. Usa la misma sintaxis que AIM Keys, All-in-One Macro Utility, el cual llevo años usando y quizás por esto me resulte coherente usar dicha sintaxis. En la demo, cuyo código pongo debajo de este párrafo, encontrareis algunos ejemplos de uso, es bastante intuitivo pero si tenéis alguna duda puedo poner más ejemplos. Sub AbrirNotepad() AimKeys "<winr>r<winr><wx>(200)notepad<enter><wx>(700)" End Sub …

Hola: Esta macro, coloca un reloj en A1, para arrancarlo, ejecutar la macro, y para pararlo, rellenar A1 con el color rojo. Sub RELOJ() On Error Resume Next If ActiveSheet.Cells(1, 1).Interior.Color = vbRed Then Application.OnTime Hora, "RELOJ", SCHEDULE:=False Else ActiveSheet.Cells(1, 1) = Now Hora = Now + TimeValue("00:00:01") Application.OnTime Hora, "RELOJ", SCHEDULE:=True End If End Sub [/CODE] Saludos.

Buenas noches, aqui os dejo un aporte de menu contextual, espero que les pueda servir de ayuda Saludos menú contextual personalizado.zip

Bueno pues de eso va el archivo, no sé si en algún momento habrás visto como funciona el tema del embargo, pues en este archivo (según la ley española), he preparado las fórmulas pertinentes para que tan solo poniendo la cantidad de tu nómina puedas comprobar cuanto dinero te pueden embargar. Le he añadido un poco de explicación sobre dicha ley para que no quedara tan soso el archivo. Espero que a nadie le haga falta utilizarlo, sinceramente, aunque sí espero que como curiosidad os guste. Y para darle un poco más de aprovechamiento, si alguien de otro país que conozca el tema quiere ampliar este archivo, pues que lo haga en siguientes hojas, así tendremos un mismo arch…

Buenos días, Me gustaría compartir con vosotros un Excel que he creado de control de vacaciones. La verdad que me ha costado trabajo hacerlo ya que me estoy metiendo mas a fondo con el tema Excel y este es mi primer trabajo, pero con ayuda de este foro y algún bloc que he consultado, creo que el resultado es bueno y por eso quiero compartirlo con vosotros. El libro tiene varias macros para que puede funcionar correctamente. Acordaros de habilitarlas. El libro esta compuesto por 4 hojas que son: Solicitud, Calendario, Resumen e historialvacaciones. Esta creado en función de como en mi empresa solicitamos las vacaciones ya que tenemos 22 días laborables y luego tenemos …

Este código: Sub BorrarCeldasSinColor()Application.ScreenUpdating For Each cell In Range("J19:IM19,J22:IM22,J25:IM25,J28:IM28,J31:IM31,J37:IM37,J40:IM40,J43:IM43,J49:IM49,J55:IM55,J55:IM55,J61:IM61") If cell.Interior.ColorIndex = xlNone Then [COLOR=#ff0000][B]cell = ""[/B][/COLOR] Next End Sub [/CODE] es un 90% mas rápido que este: [CODE] Sub BorrarCeldasSinColor() Application.ScreenUpdating For Each cell In Range("J19:IM19,J22:IM22,J25:IM25,J28:IM28,J31:IM31,J37:IM37,J40:IM40,J43:IM43,J49:IM49,J55:IM55,J55:IM55,J61:IM61") If cell.Interior.ColorIndex = xlNone Then [B][COLOR=#ff0000]cell.ClearContents[/COLOR][/B] Next End Sub [/CODE] Se admite…

Hola: Pues eso, otro MsgBox a gusto del consumidor. En el adjunto hay 4 macros con todas las combinaciones de variables. Saludos MsgBoxMacro.xls

A continuación menciono cinco grandes trucos para optimizar el código generado por el grabador de macros, así mismo pueden ser aplicados cuando se programa o se personaliza una macro de forma manual. Con estos trucos se consigue una disminución en el tiempo de ejecución de la misma. Personalmente me desespera el ver una macro en ejecución que tarda demasiado tiempo… seleccionando celda por celda para llevar acabo un proceso o cosas por el estilo. Tuve la oportunidad de ver la ejecución de una macro que tardaba 2 días para generar reportes de métricas mensuales. Mi jefe presumía del talento de la chica que genero tal macro para obtener dichos reportes… No dude de los cono…

Hola: Simple curiosidad, inútil donde las haya. No me atrevo ni a explicar lo que hace, descubrirlo vosotros mismos. Saludos y no me odieis por esto. Mouse move inútil.xls

Hola: Pues nada mas que lo que dice el título. Ordena un rango de celdas en un array de rangos. Saludos. Public Celda() As Range 'Resultado de la función Function MacroOrden(Rango As Range) As Integer ' ' ----------------------------------------------------- ' Ordena un rango de una sola columna sin tocar la hoja ' Deja el resultado en el array de rangos: Celda ' ' Macro Antonio Junio de 2011 ' --------------------------- ' ' Nota: Necesita una adaptación para Option Base 1 ' ' ----------------------------------------------------- ' Application.ScreenUpdating = False MacroOrden = 0 'Función correcta 'Controlamos que solo haya una co…