Buenas Hoy les voy a compartir un archivo que he creado cogiendo código de por aquí y por allá y creando otro poco, para diseñar un "Organizador de archivos por carpetas o categorías" lo hace es básicamente poder organizar tus archivos por categorías sin importar en que carpeta estén o ver los archivos que tengas en una carpeta y ademas tienes la opción de ver solo las exenciones de archivo que selecciones para así acceder mas rápido a ellos. Desde esta "aplicación" puedes abrir, eliminar, agregar a una categoría o eliminarlo de la misma. Ademas tiene algunas funciones interesantes como el menú emergente del listbox y los botones de maximizar y minimizar en el form. C…

Hola: Hoy una calculadora. http://www.megaupload.com/?d=RQ74603S Tan simple, como inútil y prescindible. El único aporte, es que puede interactuar con la hoja. Para practicar con CommanButon, TextBox y WorksheetFunction. Salu2. Antoni.

Buenas noches Estimados señores Como siempre muy agradecido por todo lo que he aprendido en el foro y la paciencia que han tenido para ayudarme. En esta oportunidad les dejo un proyecto que está en pleno desarrollo a nivel de prueba así como tambien de practica. Se trata de una manera de registrar la información empleando al máximo las columnas de la hoja destino (Hoja Registros). Dado que usamos (a veces) Excel como base de datos para algunos trabajos, que pasaría si aprovechamos al máximo las columnas en ves de las fila...?. Así evitaríamos repeticiones en los productos, cantidades, etc. Claro que todo es posible gracias a los bucles For Next y que estos son muy pe…

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 tardes Les dejo este aporte de menú con imágenes y efectos. Esto es muy parecido a la opción de menú que nos dio [uSER=162198]@winkey777[/uSER] post #2, en el aporte de [uSER=46507]@Macro Antonio[/uSER] https://www.ayudaexcel.com/foro/threads/botonera-tipo-google-chrome.34742/ De allí fue donde lo aprendí. Saludos cordiales. Efecto Menu.zip

Para Celest3 y Gerson: Renumeración automática con fórmulas, si,..si, .......con fórmulas. Gracias a Germán y Toldeman que me han ayudado con la complejidad de las fórmulas. Abrazos gratis para todos Numerador de registros.xls

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.

Hola: Se trata de un formulario donde se calcula el tiempo necesario que hay que andar para quemar una determinada cantidad de alimentos. Por otro lado también calcula la cantidad mínima de ingesta diaria de calorias para atender a vuestro metabolismo basal en base a la edad, sexo, altura y peso. Saludos Walking Calculator.xls

Hola El otro día cayó en mis manos un archivo llamado sapitos.xls. Se trataba de un juego en flash que se había insertado en una hoja de excel. El juego consiste en pasar tres sapos desde su situación a la derecha hasta la izquierda y tres sapos desde la izquierda hasta la derecha. Es decir intercambiar las posiciones iniciales de los seis sapos. En un momento tonto de aburrimiento decidí emular el juego pero directamente en excel, sin flash. Es evidente que el aspecto visual no tiene nada que ver. Pero el juego funciona, una macro de evento tiene la "culpa". El que lo quiera probar.... él mismo, ánimo que es sencillito. Un saludo desde Vitoria P.S. Adjunto el origin…

Cuantos recuerdan uno de los clásicos juegos de la NES de 1984, me refiero al conocido (o no tanto por los mas jóvenes) Duck Hunt o Cacería de patos, ya que disponía de mas tiempo del que quería me di a la tarea de recrear este clásico en VBA lo cual fue un poco complicado por las limitaciones de este entorno ademas de que no quería exceder los 174kb que permite la subida a este servidor. Bueno como es una adaptación puede que no sea igual al original, las reglas son simples cada nivel tiene 10 patos para pasar de nivel necesitas darle al menos a 5 patos (con un click sobre el), tienes 3 tiros para darle a 1 pato si le das a la primera son 1000pts, a la segunda son 750pt…

Hola: Tras leer este artículo ByVal or ByRef Parameters proporcionado por nuestro amable "BigBoss" Proper, me he puesto a jugar un poco, y se me han puesto los pelos como escarpias. Ya tenía mas o menos claro la diferencia entre pasar los parámetros como ByRef o pasarlos como ByVal. Pero lo que no tenía nada claro es que los parámetros son posicionales. Pero lo mas terrorífico que he descuebierto es que, al ser los parámetros posiciones, los nombres de las variable no se utilizan absolutamente para nada, y por ello si dentro del procedimiento Llamado modificas el valor de uno de los parámetros por ejemplo el nº 3, quedará modificada la variable que pasamos en tercer l…

Pasar los datos de un ListBox a la hoja y viceversa Hola Sres: Esta es la forma mas sencilla que conozco de pasar los datos de un ListBox a nuestra hoja Excel: [COLOR=#008000]'ListBox con 3 columnas[/COLOR] Range("A1:C" & ListBox1.ListCount).Value = ListBox1.List() [/CODE] Espero que les sea util, ¡Ah!, también funciona en sentido contrario: [CODE] ListBox1.List() = Range("A1:C10").Value [/CODE] Saludos

Hola: Os dejo esta macro a ejecutar desde Outlook que crea un libro Excel con los mensajes de la carpeta escogida. Sub ExportToExcel(): On Error Resume Next Dim appExcel As Excel.Application Dim wkb As Excel.Workbook Dim wks As Excel.Worksheet Dim nms As Outlook.NameSpace Dim fld As Outlook.MAPIFolder Dim itm As Object 'Creamos la instancia a Excel Set appExcel = CreateObject("Excel.Application") Workbooks.Add Set wkb = appExcel.ActiveWorkbook Set wks = wkb.ActiveSheet appExcel.Application.Visible = True 'Fila de cabecera wks.Range("A1") = "Asunto" wks.Range("B1") = "Cuerpo" wks.Range("C1") = "Remitente" wks.Range("D1") = "Destinatario" wks.Range(…

Hola: Os dejo una macro VBA para vuestro documento de Word. Si ejecutais esta macro, se generará un libro Excel con el documento en la columna 1. El editor de VBA de Word, funciona exactamente igual que el de Excel. Añadir un módulo al Proyecto y copiar la macro: Sub DeWordAExcel() ' 'Esta macro, debe estar en el documento de Word en un módulo normal, 'y se ejecuta igual que en Excel, Alt F8, seleccionar la macro y pulsar "Ejecutar" Application.ScreenUpdating = False Set ConexionExcel = New Excel.Application With ConexionExcel .Workbooks.Add .Visible = True .Cells.Clear End With x = 1 Selection.HomeKey Unit:=wdStory Do Until Selection.Bookm…

Espero sea de interes, ayuda y conocimiento. Como extraer el contenido de un pdf y pegarlo como imagen en un libro de excel! VBA/Excel: PDF a Imagen (pdf2img) | MeXcel Plus Saludos!

Hola! Recientemente he incursionado en la programacion con Ruby... con Ruby he creado esta aplicacion que imprime el texto (contenido de un archivo pdf), no sabia que con ruby se podian crear ejecutables, pero estaba equivocado, lo unico que no me gusto es que pesan mucho los ".exe" generados... PdfReader En el link anterior se bajan el zip, lo descrompimen y tendran dos archivos (pdfreader.exe y 1394.pdf), ahora desde la linea de comandos ejecutarian: pdfreader 1394.pdf [/PHP] Y con ello podran ver el contenido del pdf (recuerden, solo texto). Tambien se puede redirigir la salida a otro archivo, ejemplo: [PHP] pdfreader 1394.pdf > texto.txt [/PHP] Pudies…

Hola a todos. Por que este aporte? Al pegar texto HTML en una hoja excel, en lugar de aparecer el texto plano, excel interpreta el codigo y te pone el resultado como objetos HTML. Hay muchos truquillos para conseguir pegar el texto como tal, pero si necesitas repetir muchas veces la operacion llega a ser algo molesto. Buscando en la web no he encontrado ningun metodo que me satisfaga y he visto mucha gente preguntando por lo mismo. Lo mismo ocurre a la hora de copiar, excel interpreta que esta copiando HTML y pone entrecomillados en cada linea. De que va el aporte? Este aporte esta dedicado para aquellos que necesiten pegar texto HTML en una hoja excel sin que excel …

Hola a todos: Os dejo un complemento para pegar un rango con formato condicional eliminando dicho formato, pero respetando los colores. Supongo que todo el mundo sabe instalar un complemento, pero por si acaso: Botón de Office\Opciones de Excel\Complementos\Ir a....\Examinar Seleccionar el complemento y pulsar Aceptar. Funcionamiento: Copiar el rango, con o sin formato condicional, no importa, Click derecho y pulsar sobre la opción " Pegar eliminando formato condicional". Si el rango copiado, contiene celdas con formato condicional y sin formato condicional, se producirá un error. Si el rango seleccionado no contiene celdas con formato condicional, se efectuará un…

Hola: He estado dudando si subir esto como aporte porqué en el fondo no va a servir para nada salvo entender un poco como funciona la propiedad Application.CutCopyMode. Hay código en Thisworkbook y en la Hoja1. Thisworkbook: En el evento Open se deshabilita el menú contextual (Click derecho) En el evento BeforeClose se habilita el menú contextual. En la Hoja1: Al seleccionar una celda después de un copiar(Ctrl+c) pega automáticamente el rango copiado, pero solamente valores. Al seleccionar una celda después de un cortar(Ctrl+x) se emite un mensaje de "Operación no permitida". ¿ Para que sirve ?,................ y yo que se, vosotros mismos. Sed buenos. Copy so…

Por si alguno no conoce la de cosas que se puede hacer, en Excel, para sorprender a jefes, compañeros de trabajo o, mismamente a clientes de nuestra empresa.

Hola a todos, Pues esta vez tengo un aporte simple pero muy útil, adjunto un ejemplo de como podemos decirle a excel que al presionar alguna tecla realice una acción determinada, por ejemplo podemos decirle que al presionar la tecla "F2" abra un formulario o con "F1" ejecute una macro, hasta podemos decirle que si presionamos la "A" no haga nada, etc. Dejo un ejemplo de lo hablo, el código esta en ThisWorkbook y el Modulo1. Saludos Configurar teclado.zip

Hola amigos. Yo todavía me estoy acostumbrando al Excel 2007. Una de las cosas que me molestaba eran los colores que trae la paleta ya que no se ajusta a lo que hago (bueno, básicamente porque no estaban los colores cítricos como los amarillos y naranjos). Buscando por ahí, encontré que se puede escoger dentro de una lista bastante grande de temas con colores distintos y que además se pueden crear temas personalizados. Es decir, es bantante poderoso el tema de los colores en Excel 2007. Esto se puede hacer en la pestaña Diseño de Página, en la caja Temas, el recuadro Colores. Ha sido una novedad para mí, y la quise compartir. Espero le sirva a alguien. Saludos desde e…

Buenas noches Maestros y amigos del foro. Les dejo este aporte que puede que les sirva en alguna ocasión. Se trata de una macro con la cual se define el pie de pagina enumerándolo. Estaba buscándolo e igualmente grabando con la grabadora de macros pero uffs Demasiado código!! With Hoja1.PageSetup .HeaderMargin = Application.InchesToPoints(0.25) 'Establece los margenes .FirstPageNumber = 1 'Inicia el contador con el numero 1 .RightFooter = "Página &P " 'El el pie de pagina al lado derecho de la hoja End With With Hoja1 .PrintPreview 'Vista Preliminar End With P.D. Pueden elegir el lugar del pie de pagina: …

Hola: El título lo dice todo. Basado, o sea, casi copiado de http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/54-dll-para-hacer-ping-trace-route.htm Saludos Ping.xls

Hola: Adjunto una versión "cutre" del popular Paint de windows. Es otra aplicación del "evento" mousemove en la hoja. Color primario: Click en paleta de colores Color secundario: Click derecho en paleta de colores Modo pintar: Botón On/Off Click izquierdo, pinta con el color primario hasta nuevo click (Derecho o izquierdo) Click derecho, pinta con color secundario hasta nuevo click (Derecho o izquierdo) Para los que tengais hijos, ya teneis otra forma de entretenerlos. Saludos. Macro PintarCuadros.zip