Buen dia Estimados señores Como siempre un placer estar en esta comunidad. En esta oprtunidad, les dejaré a sus ordenes un nuevo aporte con el cual se podrá listar las tablas de una base de datos (En este caso De Excel a Excel por medio de una conexion ADO). Desde hace dias tenia una duda respecto a el como mostrar los encabezados de una tabla de acuerdo a la base de datos en cuestion y gracias al señor Macro Antonio, que gentilmente me proporcionó la ayuda para atender mi requerimiento logré hacerlo. Sin embargo, nació una nueva interrogante del como seria mostrar o listar las distintas tablas de una base de datos y que luego de seleccionar alguna de ellas, estas me …

(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: Os dejo esta macro que comprueba que todos los TextBox de un formulario contienen información. Los errores son remarcados con fondo amarillo. Si hay errores, el cursor se posiciona en el primer TextBox erróneo. Private Sub ValidarTextBox() Dim Errores As Integer, Campo As Control, Control As Control For Each Control In Controls If TypeOf Control Is MsForms.TextBox Then Control.BackColor = vbWhite If Control.Value = Empty Then If Campo Is Nothing Then Set Campo = Control End If Control.BackColor = vbYellow Errores = Errores + 1 End If End If Next If Errores > 0 Then …

Hola: Debo confesar que a pesar de ver esa propiedad en la lista de propiedades de un CommandButton nunca me había picado la curiosidad de saber para que servía, y ahora que lo se reconozco que en alguna ocasión me hubiera resultado muy útil. Gracias al amigo rolano, y a una respuesta suya TodoExcel, me he enterado que sirve para simular el Click a partir de la combinación Alt+caracter definido en la propiedad .Accelerator. En el adjunto encontrareis un ejemplo. Saludos AtajoBotón.xls

El título lo dice todo. Las instrucciones están en el adjunto. A partir de otros aportes de Pegones y Gerson. Traductor Sonoro.xls

Hola: A raíz de una solicitud de Julio Cesar se me ha ocurrido hacer una pequeña aplicación para etiquetar zonas de una imagen de forma parecida a como se hace en Facebook. El aporte va a constar de 2 envios: 1) El etiquetador 2) El visor De momento os avanzo el primero. El libro consta de dos hojas: 1) "Imágenes", es el índice de las imágenes que tenemos, consta de un nº generado al azar que identifica la imagen, el path completo con el nombre de la imagen, y el formato de la visualización. Contiene un control Image que nos muestra la imagen al seleccionar cualquier celda de la fila que contiene la imagen. 2) "Etiquetas", contiene las etiquetas de cada imagen, po…

En este tutorial vemos como contar, con VBA, las palabras que contiene el texto de una celda en Excel.

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.

Para entendernos, no voy a listar las fonts o fuentes (sources) de dinero fácil que hacen multimillonario al conocido como "Factura Puertas" o "Salido de Cuentas" (en inglés "Bill Gates") y a los empleados de la ponderosa Micro$oft Office. Como dice el título, el adjunto se limita a la lista de las fuentes de MS Windows instaladas en tu ordenador en una hoja Excel. Tarda un minuto en generarla y, si se selecciona un celda, la copia automáticamente en el portapapeles para pegarla en Word, por ejemplo, manteniendo el tipo de fuente - font. Seguro que el tener en un sólo sitio todas las fuentes de caracteres es tan útil para los Excel foreros como lo es para mí. Vers…

Hola a todos; me he topado con una pagina, que nuestros senseis del vba podran sacarle partida, eso claro, si no la conocen , espero que no he visto cosas muy apañadas. AJP Excel Information AJP Excel Information - Clocks la conociais? Un Saludo. Jose Maria.

Hoy Viernes Santo, está lloviendo en Bertamiráns (mi pueblo) desde esta mañana y hace frío, o sea, he decidido inyectarme el whisky directamente en vena, y me ha salido esto que os adjunto. Se trata de una búsqueda, la enésima que subo, ya he perdido la cuenta, pero el tema me fascina. Esta vez es una búsqueda de aspecto minimalista pero "superpotente". Se selecciona una columna y se introduce un texto y se pulsa el botón de play o intro. El resultado es una hoja idéntica a la hoja activa pero solo están visibles las filas que cumplen con el texto introducido, y ahí esta la diferencia, en el texto. Voy a tratar de explicarme lo mas claro posible: El adjunto es un ar…

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 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¡¡¡

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…

Hola a todos como veo que mucha gente pregunta sobre obtener datos del equipo usuario etc… sin falta de las apis de Windows podemos usar la función Environ. Funcion Environ ‘Ejemplo donde nos devuelve el nombre del equipo MsgBox (Environ("Computername")) Podemos enviar todos estos argumentos con los que podemos obtener distintos datos. ALLUSERSPROFILE APPDATA CLIENTNAME COMMONPROGRAMFILES COMPUTERNAME COMSPEC DEFLOGDIR FP_NO_HOST_CHECK HOMEDRIVE HOMEPATH LOGONSERVER NUMBER_OF_PROCESSORS OS PATH PATHEXT PROCESSOR_ARCHITECTURE PROCESSOR_IDENTIFIER PROCESSOR_LEVEL PROCESSOR_REVISION PROGRAMFILES SESSIONNAME SYSTEMDRIVE SYSTEMROOT TEMP TMP USERDNSDOMAIN USERDOMAIN US…

El siguiente es un ejemplo de la implementación de un módulo de clase en Excel. El trabajo aún no está del todo depurado, pero sirve para demostrar la utilidad de éstos. En el módulo de clase he creado un objeto Gusano que sirve para implementar el juego en una hoja de cálculo. Como se ve, una vez creado el objeto en el módulo de clase, es muy fácil implementar el juego, ya que todo el trabajo pesado se ha levantado en el módulo de clase dejando al descubierto sólo las propiedades y los métodos necesarios para programar el juego. EXCELPATAS: Módulos de clase en Excel Gusanito.xls

Hola: Se escriben estas líneas para animar a todos los foreros a usar la grabadora de macros. La grabadora de macros, junto con la ayuda de Excel, son las 2 grandes y poco usadas herramientas que Excel pone a nuestra disposición para aprender VBA. Todo, absolutamente todo, lo que hacemos dentro de Excel se traduce a VBA cuando tenemos arrancada la grabadora de macros. El 90% de las consultas se podrían eliminar utilizando la grabadora de macros, de esta manera podríamos eliminar las "consultas spam" de nuestro foro, y de paso nuestro "Boss" se ahorraría el 90% del coste de almacenamiento en el servidor web de esta página. He aquí una pequeña muestra de lo que se p…

Hola juego rompecabezas con vba, utilizando shapes y algunas apis de windows. es compatible en Win x 32 y Win x 64. Sencillo juego donde mas que nada es mostrar una técnica de como mover shapes con el mouse estando la hoja bloqueada y también como partir una imagen en varias partes. Aclaro para todos estos juegos programados en vba y Excel se debe tener las Macros habilitadas. Rompecabezas.zip

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. 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: Para abrir, ver y cerrar libros. Saludos. BookNavigator.zip

Hola Excelianos: Os dejo una macro que elimina el código VBA y todos los módulos y formularios de un libro. Feliz primavera a todos. . Eliminar Código VBA.xls

Hola! Aquí de nuevo con algo mas... con una de FORMULAS! Hace unos días mi hijo (10 años) me solicito que le ayudara con una tarea de investigación la cual se trataba de encontrar el año al cual le tocara el mismo día de de su nacimiento o cumpleaños, pues como era un poco urgente, no me quedo mas que buscársela en el propio calendario de mi celular, por cierto bastante tedioso y cansado:D Varios días después me quede pensando y si mi otro hijo luego al pasar de los años le piden la misma tarea? me conteste no, esta vez no usare mi calendario:D si no que nuestro amado EXCEL Ahora si ya después de tanta historia les dejo el archivo, para que ahora en adelante no usen s…

Hola: Se trata de utilizar el control Microsoft Office SpreadSheet a modo de listbox o lista de validación. A partir de Office 2007 este control requiere una instalación propia, o al menos, es lo que tuve que hacer yo. Saludos. SpreadSheet.xls