Hola: Subo yo este aporte pero el mérito es de Cacho R. En el adjunto encontrareis como llenar un ListBox/ComboBox con una sola línea de código, además se pueden informar mas de 10 columnas. Funciona de forma parecida a RowSource pero con la diferencia que podemos añadir/quitar elementos y modificar el rango en la hoja. Saludos Listbox.xls

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: Dedicado a mi colega Julio Cesar. El aporte consiste básicamente en un sistema de registro y búsqueda de imágenes. No se guardan las imágenes reales, solo su ubicación. Se pueden añadir etiquetas a las imágenes, y la señalización de esas etiquetas se puede hacer mediante textos o iconos. Dispone de un sistema de búsqueda por texto y directa a base de keywords. Ver las instrucciones de este aporte: Etiquetador de imágenes A vuestra disposición. Saludos. PD: El tamaño de las imágenes influye en el rendimiento del formulario. Cargar 1 Página con 15 imágenes con imágenes de 5 Megas, supone unos 12 segundos, o sea que un poco de paciencia al iniciar el formul…

Quién no recuerda este juego antiguo?, el rompecabezas clásico de números, que desafía su lógica para ordenar números sequencialmente. Espero le guste y puedan disfrutarlos. Saludos, JULIO RompeCabeza.rar

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…

En el ejemplo de hoy vemos como conseguir que Excel hable a través de los altavoces de nuestro equipo. Ideal para presentaciones, mensajes de alerta o incluyo para incorporar a nuestras hojas de cálculo la posibilidad de facilitar el acceso a las mismas a personas con discapacidad visual.

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í !!!

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

No es gran cosa, pero ahí lo dejo. He puesto en un formulario un textbox limitado a 650 caracteres. Mi idea es poner un contador de caracteres restantes para saber cuándo se va a llegar al límite. Aporto la solución que he encontrado a ello: Crear el textbox donde escribiremos, ej. Textbox1 Configurar MaxLength del TextBox1 (.MaxLength=650 en un WITH, o desde el menú de la izquierda) (650 es mi límite, cada uno pone el que quiera; no recomiendo 0) Crear un textbox que nos hará de contador ej. TBContador Configurar TBContador sin texto (.Text="" en un WITH, o desde el menú de la izquieda), con color de fondo "Cara de botón" (H8000000F) y SpecialEffects ponerlo a Fla…

Copiar rango modificando la forma Hola: Aquí os dejo una pequeña aplicación para copiar rangos del mismo tamaño cambiando la forma. ¡ Enjoy it ! Archivo modificado el 12.09.2012 a las 19:30 Archivo modificado el 13.09.2012 a las 20:30 Macromatrix Plus II.xls

Hola a todos! Imaginemos que trabajamos con una BD y que en esta se lleva un Tracking Report (Reporte de seguimiento) por cada dia, y en el cual se controla un inventario (como maquinas de costura, como ejemplo) y estas se alquilan/rentan, ya sea por dias, semanas, meses etc... y suponiendo que dicho inventario es enorme:) Pues bien he elaboarado un ejemplo con 3 hojas, para poder utilizar esta macro de "evento", la cual se activa al darle doble click en cualquiera de las columnas "E" o "F" y que siempre y cuando existan datos, aparecera una ventana indicandonos la cantidad de inventario en tal localidad de tal cliente, tambien mencionar que cada vez que le demos doble …

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…

Hola amigos mi nombre es Rony y encontre una funcion creado por un autor desconocido que funciona para el literal de cualquier numero en mi caso es para indicar a cuantos Bolivianos (moneda en mi pais) equivale un numero. Espero que le sirva y pueden mejorarlos para que acepta un numero mayor pues se los agradecere mucho. Dese Bolvia saludos a todos y soy fanatico de esta pagina que me ha ayudado muchisimo N-Letras.zip

Hoy me ha vuelto a hacer falta esta magnifica UDF para extraer facilmente multiples enlaces de URL, aportada por el maestro ST_ en su día, en una de esas respuestas que caen en el olvido, y que deberia estar en el hilo de aportes por su gran utilidad. No adjunto el arhcivo sino que pongo el enlace directo, el archivo con la UDF esta en la primera respuesta del post. Ir al post PD: Al final del post, pone una mejora de la UDF. Un saludo amigo ST_ EDITADO: Adjunto mi propia version para extraer la URL: Function VerURL(rango) As String On Error GoTo NoLink VerURL = rango.Hyperlinks(1).Address Exit Function NoLink: VerURL = "" End Function[/CODE…

Representación gráfica de una función. Grafica_funcion_generica_2D_3D.rar

Hola Por la red hay varias formas de encontrar con VBA si una hoja existe (hay una funcion UDF por ahi), pero este aporte es solo una forma diferente para agregar hojas en un libro, comprobar existencia y agregar un link que nos devuelve al menu u hoja principal Espero que sirva Sub agregarhojas() Dim Hoja As Worksheet, NuevaHoja As String, NuevoNombreHoja As String With Application .ScreenUpdating = False Sheets("Menu").Range("A1").Name = "Inicio" NuevaHoja = .InputBox("Nombre de hoja:", "Agregar hojas") If NuevaHoja = "Falso" Or NuevaHoja = "False" Or NuevaHoja = Empty Then Range("A1").Select: Exit Sub NuevoNombreHoja = VBA.StrConv(NuevaHoja, vbPr…

Para pronosticar el tiempo en una hoja Excel lo mejor es llamar a un servicio web. Si Gerson introduce Honduras puede ver el tiempo meteorológico de los próximos 3 días en varias ciudades de su país. De paso puede estudiar el tratamiento de documentos XML en VBA. Se han empleado los siguientes servicios web: GeoLookupXML - Servicio para encontrar una ciudad en la base de datos Wunderground. ForecastXML - Obtiene el pronóstico del tiempo para un lugar. Del Servidor de Aplicaciones Web: Los resultados aparecen sin traducir porque no tengo mucho tiempo dados los tiempos que corren... MiTiempo.zip

Hola: A raíz de una consulta de Muscaria, se me ha ocurrido que le podría servir a alguien. Pulsar la barra de desplazamiento del formulario para ver el efecto. Saludos Ver post #9 Redimensionar formulario.xls Redimensionar formulario Plus.xls

Hola a to2 to2.... Aquí os dejo otra elocubración. Se trata de un pequeño formulario que permite navegar por la hoja modificando los valores del scroll. Eventos: ThisWorkbook.Open: Ejecuta la macro VerScroll Click en flechas: Desplazan scroll filas/columnas a derecha/izquierda en función de los valores introducidos en Filas y Columnas. Doble Click en flechas Arriba/Izquierda: Mueve scroll a fila 1/columna 1 respectivamente Click y arrastrar en aspa roja: Mueve el formulario a voluntad Doble click en aspa roja: Descarga el formulario Macro VerScroll: Muestra el formulario Enjoy it ! o tíralo Salu2 Scrollador 2003.zip

Buenas noches desde México a todos. Les comparto una pequeña lista incompleta de tips para programar macros. Son algunos puntos que he ido aprendiendo con la marcha y con los años de utilizar tan bella herramienta que es Excel. [LIST=1][*]Primeramente se define si se solicitarán datos al usuario final, y en qué manera serán, medianto un formulario, mediante un cuando con opción SI / NO.[*]Nuestras variables deben estar correctamente definidas, con su tipo correcto, para no gastar memoria innecesariamente.[*]Si se harán muchos movimiento de datos y hojas, es recomendable la instrucción Application.ScreenUpdating = False, ya que permite detener la actualización de la p…

Los que tenemos la suerte de llevar una vida muy ajetreada y de tener vacaciones de verano, podemos descansar o jugar al ajedrez con esta hoja Excel hecha con fórmulas iterativas. Está en versión Beta 2.2.0. Subida nueva versión Beta v2.2.1 en el mensaje #4 [DBOX]https://www.ayudaexcel.com/foro/ideas-aportes-64/juego-ajetreado-formulas-iterativas-24335/#post119366[/DBOX] Chess_PedroWave22.zip

Hola, buenos días: En algún mensaje he mencionado una extensión para Excel que utilizo desde hace mucho tiempo, pero creo que este es el lugar adecuado. Es un paquete con más de 300 utilidades que solucionan muchísimas preguntas que se plantean en el foro de macros, desde cómo rellenar celdas con números aleatorios hasta listar los archivos de un directorio o de todo el ordenador. Se llama Asap-Utilities, está en castellano y en Excel aparece como un menú más. Incluye una opción de búsqueda de utilidades, muy bien estructurada para mi gusto, con una brevísima descripción de lo que hace cada macro y las etiquetas que tiene asignadas. Se puede descargar una versión de p…

Hola a todos. He tenido la necesidad de incluir en un listbox información alineada a la derecha y a la izquierda, y me he encontrado con que no hay un comando especial para eso, que con la fuente courier new, se puede, agregando espacios en blanco delante del texto. En vista de que esa fuente es poco vistosa me di a la tarea de probar algo nuevo y es lo que quiero compartirles. Esta forma de alinear funciona con cualquier tipo de fuente. El listbox lo alineas a la derecha, eso te permite tener la información numérica de inmediato con la alineación desada. Para la información que desear alinear a la izquierda simplemente le concatenas espacios a la derecha (100, 1000, lo…

Buenas amigos Pues hoy les voy a compartir un archivo para aquellos que buscan la máxima seguridad en sus archivos porque talvez contiene información importante como un plan para conquistar el mundo o algo parecido y no quieres que alguna persona "no autorizada" juegue con tu archivo. Pues como dice el titulo incluso si deshabilitas las macros no podrás utilizar el archivo pues las hojas con la información importante(planes para conquistar el mundo, etc.) no serán visibles pues están ocultas con la propiedad "xlveryhiden", como complemento de seguridad (opcional), le añadí un temporizador que después de cada cierto tiempo pide una contraseña para poder seguir utilizand…