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

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

Hola amigos! Solo para agradecer a todos y de todo corazon, la acogida e interes que ha recibido este subforo, de verdad parece que fue ayer, pero ya van mas de 100 aportes y eso significa que ha sido un exito... espero sigan aportando aun mas, para el beneficio y conocimientos de todos Saludos desde Honduras Pd agradezco especialmente a los que mas aportes nos han regalado, los que visitamos regularmente el foro, saben a quienes me refiero;)

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

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

¡ Ave !: El título lo dice todo. En el archivo encontrareis todo lo necesario. Que los idus de julio os sean propicios. Cargar combos por validación de datos.xls

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

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 …

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…

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

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

Buen día a Todos; Estaba actualizando mi música con la tendencia del momento, y necesitaba saber que canciones ya tenía para no duplicar, por lo que se me facilitaría más si tuviera un listado en Excel de mis canciones, obviamente hacerlo manual NO ERA LA OPCIÓN,, y encontré la forma de hacerlo desde el Símbolo del sistema (cmd.exe), y los pasos son los siguientes: 1. Ejecutar la línea de comandos de Windows: - Inicio -> Ejecutar -> cmd y enter 2. Ir a la carpeta que deseáis listar, aquí una serie de instrucciones básicas: - Para ver el contenido de la carpeta actual se hace con "dir". - Para acceder a una carpeta "cd nombreDeLaCarpeta". - Para cambiar de…

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 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 una consulta reciente se necesita obtener/extraer una lista de correos únicos de una base de datos llamada general (con correos buenos y correos malos), siempre que esos correos "NO" estén presentes en otra lista que le llaman correos "malos". Enlace al tema del usuario [uSER=181609]@miaweb[/uSER] : Pendiente - Limpieza de email basura hasta 90.000 Les dejo un vídeo con el procedimiento y el enlace para descargar el archivo sin macros con las consultas hechas con Power Query. Dropbox - Lista de correos.xlsx Debería funcionar con Excel 2010/2013/2016 (complemento requerido en las versiones 2010/2013) El Power Query se puede conectar a bases de datos de mas …

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

En esta ocasión vamos a extraer la temperatura de un portal de internet, de la siguiente página: openweathermap.org/city/3530597 que muestra la temperatura de los próximos días de la ciudad de México. Para efectuar esta tarea haremos uso del objeto Internet Explorer para poder navegar a dicha página y una vez cargada la misma empezamos a realizar la extracción del texto correspondiente y lo vaciamos en las celdas de nuestro libro. Antes que nada tendremos que agregar la referencia necesaria para trabajar con el navegador de la siguiente forma: Sub Clima() Dim oIE As InternetExplorer Dim sContenido As String Dim lPosicion As Long Dim vContenido As Variant Dim …

Hola: Allá por el mes de mayo, a raiz de una consulta de verzulsan, neverdelimon proporcionó un aporte a base de combinar APIS y un módulo de clase para conseguir un evento MouseMove en la hoja. Me ha parecido interesante y lo he recuperado con un ejemplo de como saber en todo momento la suma de un rango de celdas. En el adjunto hay dos macros, ArrancarMouseMove y PararMouseMove, creo que con el nombre ya está todo dicho. ArrancarMouseMove, se ejecuta de forma automática al arrancar el libro. Besitos. ¡¡¡ Me voy corriendo que viene Tutankamon y es un "plasta". !!! EventoMouseMove.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

Algunos programadores siempre están buscando la manera más óptima de crear código VBA el cual haga uso de los recursos de manera más eficiente (como la memoria, almacenamiento en disco duro) y a su vez se ejecute en el menor tiempo posible (uso de CPU). Lo más habitual es estimar cuanto tiempo le tomara a nuestro script ejecutarse y para ello hacemos una comparativa en el proceso de ejecución del programa, para ello muchos se valen de las dos siguientes técnicas: Uso de la función NOW Uso de la función Timer En la primera ya muchos conocen la función Now la cual devuelve la fecha y hora actuales, la cual se podría usar de la siguiente forma: El resto del ar…

Para Reyes pienso publicar un juego similar al Buscaminas, escrito con fórmulas en Excel, que he llamado Desactivabombas para no plagiar a Windows. Si lo quieres, pídelo en la carta a los Reyes Magos y te lo traerán para poder jugar en la oficina, sin usar las macros este Año Nuevo. Este es su aspecto con un campo doble de bombas que te pueden masacrar, ¡¡¡sin macros!!! :cool: ¡¡¡ Ya se puede descargar desde aquí !!!

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