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 amado pueblo: Pues pasaba por aquí, y he pensado, vamos a subirles la nueva versión del calendario de Macro que ha quedado muy bonita. El archivo está preparado para instalarlo como complemento. Abrir el archivo, guardarlo con el nombre que querais como xla o xlam, Ficha del progrogramador\Complementos seleccionar y aceptar. A partir de este momento, en cualquier libro abierto y en cualquier hoja, se mostrará el calendario si la celda seleccionada contiene una fecha o en la celda de la fila 1 de la columna de la celda seleccionada, contiene la palabra " Fecha", en mayúsculas/minúsculas o cualquier combinación de ambas, además, se resaltará la fecha en el calendar…

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.

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

Como desprendimiento (o caso particular) del aporte: Combinaciones de N elementos tomados de a M adjunto una nueva "vuelta de tuerca" sobre el tema. Aquí en lugar de tener un sólo grupo de una cantidad variable de elementos, tenemos varios grupos con -también- una cantidad variable de elementos. Se tratará que cada término combinado contenga sólo un elemento de cada grupo. ¡Espero que a los "manipuladores de estadísticas" les sea de utilidad!... Saludos, Cacho R. Un elemento por grupo.rar

Se trata de un ejemplo de 3 combobox dependientes que pueden funcionar de manera independiente en todas sus combinaciones: 1, 1-2, 1-3, 1-2-3, 2, 2-3, 3 En el adjunto encontrareis un ejemplo de localización de una fila en base al contenido de los tres combos. Combos dependientes y no dependientes.xls

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…

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

Hola a todos: Ayer vi en Odyssey Channel un documental sobre fractales y me quede impresionado. Un fractal es una forma geométrica que se repite indefinidamente. Os adjunto mi fractal, seguro que ya alguien lo había descubierto, pero me ha hecho mucha ilusión ser capaz de crear uno. Se trata de un círculo, que a su vez esta formado por 7 círculos, que a su vez está formado por 7 círculos, que a su vez está formado por 7 círculos,..........., y así hasta el infinito y mas allá. La función es d=n elevado a 3, siendo n el nº de círculo exterior. Saludos a to2ssssssss Quizás debería haberlo publicado en la Cafetería ¡¡Uy!! Me olvidé el archivo https://dl.dropbox.com…

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

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…

Gráfico Rosa de los vientos. Rosa_de_los_vientos_tuve.rar

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

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

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…

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…

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

Hola amigos y amigas: En esta ocasion he creado un archivo en el cual, podemos ver en un grafico de un UserForm, el espacio usado y libre de cualquiera de los discos de nuestra PC. Para esto usamos funciones del API de windows. Ah, eso si, para ver correctamente este archivo, necesitas tener intalados los "Office Web Components 11". De no tenerlo puedes descargarlo de aquí: Descargar Ademas el codigo puede enseñarte a como manejar/mostrar los datos de una hoja como grafico en un Userform, lo que es muchas veces solicitado en los foros. Bueno, aqui esta el ejemplo: Enlace Por si acaso, ya esta en mi web tambien: ABRAHAM VALENCIA EXCEL Saludos y espero les g…

Hola: Suponiendo que teneis un catálogo de artículos (O de cualquier otra cosa) y quereis que aparezca una imagen del artículo, colocar el nombre de la imagen con la extensión (.jpg, .gif, .bmp) en la columna A a partir de la celda A2. Al ejecutar la macro se insertarán las imágenes en la propia columna A adaptándolas al tamaño de la celda. Si no existiera la imagen, se inserta una imagen con el nombre "sin imagen" Sub InsertarImágenes() Dim MiPc As Object Dim MiCarpetaDeImágenes As Variant Dim MiImagen As Variant Dim SinImagen As Variant '------- Creamos variables de uso Set MiPc = CreateObject("Scripting.FileSystemObject") 'Todos los archivos MiCarpetaDeIm…

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

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…

Buenas como están? Les dejo un enlace bien interesante en el cual van a poder ver un video con la Historia de MS Excel y hojas de calculo. Historia de Excel en Video | Excellentias.com - Excel, Infovis & BI Magazine Espero lo disfruten. Saludos, Juan Materano

Hola como están.. bueno hace poco tiempo que estamos por estos lado y harto que me han ayudado, es por ello que quiero hacer llegar a ustedes un archivo que tenia en mi bobeda llamado la biblia de Excel, esta muy bueno para iniciarse en los aspectos básicos ya que detalla mucho y paso a paso. Solo eso espero que disfruten y les sirva a todos SLDS Biblia.de.Excel.2007.rar - Windows Live !!!Cualquier problema me avisan para reparar¡¡¡

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 …

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