Hola a todos! Hoy quiero compartir con ustedes, un archivo que muestra los "n" mejores... de una tabla, por medio de un formulario, este consiste en que deseamos ver dentro del formulario, segun el numero de "top" que elegimos, mejor vean el adjunto y ojala le sirva a alguien:) Nota: en relaidad es un filtro mejorado (comodo) y adaptado a un formulario Cualqiuer mejora o algo mejor pues aqui esperamos:D Private Sub TextBox1_Change() Dim uf Application.ScreenUpdating = False On Error Resume Next With Sheets("sheet1") Cells.Rows.Hidden = False ListBox1.RowSource = Empty If ActiveSheet.FilterMode Then ActiveSheet.Show…

Al ataque mis valientes formulianos, no teman que no hay guerra perdida todavia Buscando entre mis cosas viejas:) encontre algo que elabore hace algunos años (3 o mas aprox) para un amigo/compañero donde trabaje antes Contiene: 1- Hoja "formar jornadas" en la parte superior se ingresan los nombres de equipos (hasta 10), en la columna F y G son para formar las llaves o sea los encuentros entre equipos (esta validado de modo que no se podra repetir equipo por jornada y un formato condicional por si se comete el error de formar una llave ya existente) 2- Hoja "Resultados" solo se debe ingresar los goles 3- Hoja "Posiciones" es automatica 4- Hoja "Busqueda" es para …

Hola Sabemos que existen varias formas para cerrar un formulario, y una de las dificultades para lograr esto es hacerlo presionando la tecla "Escape" Espero les sirva [DBOX]Cerrar Formulario (UserForm) con tecla "Escape"[/DBOX] Saludos

Hola: Bastante a menudo se reciben peticiones para solucionar el tema de la numeración de documentos (Facturas, Albaranes, Pedidos, Asientos, etc..). En el libro, encontrareis una hoja con el nombre NUMERADORES, con 2 columnas: Columna 1) Nombre del numerador Columna 2) Número de documento Pueden definirse tantos numeradores como se quieran. También hay un formulario con el nombre NUMERADORES. El funcionamiento es el siguiente: En el libro donde hay que numerar documentos, añadir en Thisworkbook: Private Sub Workbook_Open() Workbooks.Open ThisWorkbook.Path & "\NUMERADORES.xls" ThisWorkbook.ActiveSheet.Activate End Sub Private Sub Workbook_BeforeClose(…

Hola: Respondiendo a este post: Foro Excel • Ver Tema - Consulta a Maps, utilizando webbrowser y userform excel he pensado que igual le interesa a alguien. Se trata de incluir Google Maps en un formulario. Hay una hoja oculta con la lista de capitales de provincia de España, puede modificarse a voluntad. Asimismo puede escribirse la población directamente en los combos "De" y "A" aunque no estén en la lista. En la versión Internacional, he añadido zoom y una lista de países de Europa, Norte de África y Oriente Medio. Saludos Google Maps.xls Google Maps Internacional.xls

Version mejorada por MacroAntonio y Pegones AQUI en post #9 Hola { ============= = ROLLO INICIAL = ============= Hace ya un año desde que nuestro amigo Antoni nos descubriera la programación en VBA project en esta consulta (ver), es decir, programar en el propio proyecto VBA y alterar el código que siempre ha sido estático para la mayoría. Este tipo de programación tiene un gran "pero", y es que la seguridad para ejecutar "VBA Editor" es demasiado alta por lo que es necesario realizar antes una configuración de referencias y permisos para que el código pueda ejecutarse en versiones posteriores a Excel 2000. Mas información en la página de Pearson (Programmin…

Después del "revolcón formuliano" sufrido en mis propias carnes en este hilo: https://www.ayudaexcel.com/foro/threads/eliminar-filas-con-valor-cero.25759/ No me ha quedado mas remedio que contraatacar con toda mi fuerza destructora. El adjunto contiene una macro que crea macros para seleccionar, copiar, mover, eliminar, resaltar y ocultar filas. Contiene un nº ilimitado (limitado a 10x10 por estética) de condiciones AND y OR, con la que es posible seleccionar filas en un rango concreto que contengan valores, colores, expresiones matemáticas, operaciones con celdas,... etc. Un ejemplo: Copiar las filas de la hoja activa adespués del final de datos de la Hoja2 si la c…

Exporta los datos de un ListView a una hoja de cálculo de excel 5.- Insertar datos de ListView a Hoja (1).xlsm 5.- Insertar datos de ListView a Hoja (2).xlsm

Hola compañeros A petición de un usuario que me solicita aclaración de una fórmula, acompaño por aquí un archivo en el que trato de explicarla. Saludos cordiales Edito: Ver solución definitiva en el post nº 11 CUMPLEAÑOS.1.xls

Hola, como veo que ultimamente hay muchas preguntas sobre el tema, me dedique un tiempito a hacer este pequeño formato. Espero que les guste y sobre todo que les sirva Ahi va Formato Condicional-Tutorial.xls

Hola pues la verdad nunca había tocado un "ListView" y me dio curiosidad y pues e terminado creando como dice el titulo un Explorador de archivos con 2 ListView, en si no es nada del otro mundo el 1° ListView es para ver los archivos con algunos iconos dependiendo de la extención y el 2° es para agregar carpetas a "Favoritos" para acceder a ellas rápidamente. Si das doble Click sobre el archivo este se abre, o y ademas tiene un buscador. Se deriva de este otro aporte que ya había compartido https://www.ayudaexcel.com/foro/ideas-aportes-64/organizador-archivos-por-carpetas-categorias-31876/ Como dije este archivo lo hice para experimentar con este control que por cierto …

Hola: Función para, dada una fecha inicial y un número de días laborables, obtener una fecha final. Formas de llamada: FechaFinal = SumarDias 'Obtiene el siguiente día laborable a hoy FechaFinal = SumarDias(Fecha) 'Obtiene el siguiente día laborable a Fecha) FechaFinal = SumarDias(Fecha, Dias) 'Obtiene la fecha transcurridos un nº de días) En el propio libro, debe existir una hoja de nombre "Festivos" con los días festivos excluidos sábados y domingos. Estas fechas deben informarse en la columna 1. De no existir la hoja "Festivos", debe informarse de un tercer parámetro en la llamada: FechaFinal=SumarDias(Fecha, Dias, False) Si además se quieren excluir los sábad…

Hola: Estoy con mi Excel 2007 como un niño con un juguete nuevo. Para eliminar filas duplicadas: ActiveSheet.Cells.RemoveDuplicates Columns:=1[/CODE] En este ejemplo eliminaremos todas las filas con duplicados en la columna 1. No es necesario ningún orden especial. Se conserva la primera fila del grupo. Saludos. Antoni.

Buenas por petición de varios compañeros he creado el siguiente buscador de un dato en otro libro pudiendo seleccionar la carpeta donde se encuentra el libro, si se desea buscar en una pagina enconcreto o en todas. lista las coincidencias sobre el dato buscado y se puede seleccionar dentro de la lista cualquier dato dato dirigiendonos al libro y hoja donde se encuentra bueno espero que les sea de utilidad, logicamente es muy mejorable pero bueno hay esta un saludo PD para acceder al userform para realiar la busqueda he creado un menú que aparecera en la cinta de complementos como Logroastur Logroastur buscador.zip

Buenas quizas suene a animalada pero una pregunta para pensar se podria llegar apantentar un codigo, quiero decir si un software es posible que se pante y este lo qu erealiza es ejecutar un programa d una forma deteminada un conjunto de codigos(proyecto) que se ejecutan para que un libro elabore determinadas funciones podria ser pantentado? Si ya se locura puesto que partimos de que es un codigo abierto pero! todo se basa en codigos + ô menos abiertos el que micrososft y demás multinacionales posea sus codigos cerrados no quiere decir que este basado en codigos que se usan es decir no se sabra que codigos ha usado y de que forma pero el lenguaje es el mismo por lo que e…

A pesar de haber ya decenas de versiones de funciones que hacen algo similar, os dejo aquí una de mi propia cosecha que he diseñado para evitarme los dolores de cabeza que me daban las demás. Esta función, devuelve exactamente la última fila de cualquier hoja del libro que contiene algo en ella estemos o no en dicha hoja y sin necesidad de haber guardado los cambios. Option Explicit Public Function UltimaFila(Hoja As String) As Integer On Error GoTo errores UltimaFila = Sheets(Hoja).UsedRange.Row + Sheets(Hoja).UsedRange.Rows.Count - 1 Exit Function errores: UltimaFila = -1 End Function[/CODE] Curiosamente, tras buscarla en google ya existía,…

Hoy me ha dado por los automatismos. Sigue una numeración incluso aunque se eliminen filas. Atender las indicaciones del adjunto. Macronumeración.xls

Bueno amigos foristas este pequeño aporte es para aquellos amantes del excel que trabajan con base de datos(access, Firebird) y que desean mostrar reportes incluyendo jerárquicos (Cabecera y Detalle) e imagenes, codigo de barras etc. los cuales no desean mostrar o utilizar las hojas de excel, para eso se necesita un reporteador (ReportManager) open Source (libre) aclaro este reporteador a pesar de ser lijero es muy potente yo lo utilizo con .net Report manager es una aplicación de generación de informes (Report Manager Designer) y un conjunto de componentes para Delphi , Builder y Kylix, también puede utilizarse desde otros entornos de desarrollo con el componente Act…

Quiero compartir con todos un anuncio publicado del dia de hoy en un periodico local. Espero les sirva a todos, viendo el anuncio hasta me interese en probar esta versión ya que segun lo que se anuncia permite realizar cosas que hasta ahora hubieramos deseado tener. Esta es la noticia y el link donde pueden descargar la versión. Microsoft el dia de hoy da la oportunidad de descargar su version de prueba gratis de MS Office 2010 & SharedPoint 2010. La ultima tecnologia en productividad ya esta aqui. Conozca el modo en que puede adquirir mas beneficios. - Acceda a sus documentos desde el Navegador (brouser), telefono o pc - Exprese sus ideas de forma mas visual …

Hola buenas cómo están todos? Anteriormente le había dejado el aporte de la teoría de como realizar Gráficos de Columna esta vez les dejo un enlace en el cual van a poder visualizar la teoría que existe detrás de los gráficos de barras sin duda es vital saber esto antes de empezar a realizar gráficos sobre todo en MS Excel. http://excellentias.com/graficos-de-barra-teoria De verdad la información es 100% única en español espero les sea de utilidad. Saludos. JuanM

Hola a todos los forer@s, con el afan de profundizar el tema Modulos de clase, el cual nuestro amigo Neverdelimon1 a realizado un excelente trabajo. He adaptado parte del codigo para un formulario buscar, eliminar, ingresar, modificar. Adjunto el archivo. multiple texbox.nvr.ro.zip

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: "Macro" al ataque, esta vez una de préstamos. Se explica por si solo. Si lo ve algún "banquero", que repase el cálculo de intereses. Que lo disfruteis. Besitos. "Macro". CálculoAmortización.zip

Muy buenas, Cansado de no poder scrolear con el raton por el codigo y estar limitado a las teclas, [(re/av pag), shift+teclas, deslizar barra, etc], me puse a buscar por internet y encontre la solucion, este programita: http://go2.wordpress.com/?id=725X1342&site=jhony251.wordpress.com&url=http%3A%2F%2Fwww.joebott.com%2FVB6ScrollwheelFix4.zip Sacado de la pagina: http://joebott.com/vb6scrollwheel.htm No tiene Virus, no requiere instalacion ni cerrar VB antes de abrir, unicamente ejecutar y scrollear por visualbasic. Espero que os sea tan util como lo ha sido para mi. Un saludo.

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…