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…

Oculta la columna si cumple el criterio, que la columna este en valor 0. Sub Ocultar_columnas_0() Dim x As Integer Dim y As Integer y = 0 Range("J5").Select For x = 10 To 256 Cells(5, x).Select If IsNull(ActiveCell.value) Or ActiveCell.value = "" Then MsgBox ("Fin del Proceso, Se modificaron: " & y & " Columnas en Ceros") Exit Sub Else Selection.End(xlDown).Select If ActiveCell.value = 0 Then Selection.EntireColumn.Hidden = True y = y + 1 End If End If Next x End Sub[/CODE] Es algo que quice compartir, espero le sirva alguien mas.

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…

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

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…

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 …

Compañeros: El 09-09-10 respondiendo al tema (con el mismo título y en el apartado Fórmulas y Funciones) del compañero Arturomenasuso subí archivos en los que más tarde detecté algún fallo, por lo que no puedo dejarlo pasar, con el fin de evitar que alguien lo utilice y le produzca inconvenientes. La solución no era tan trivial como supuse en principio, y la he estado trabajando duro hasta conseguir que funcione con garantías (espero) Para estar seguro, os agradecería que la diérais un repaso, haciendo algunos ensayos cambiando fechas de nacimiento y el número de días de antelación del aviso, y advirténdome de algún posible fallo. Muchas gracias. Acompaño archivo. E…

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

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

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…

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…

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.

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

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 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! No se si en el foro esta UDF ya fue proporcionada por alguien (no recuerdo haberla visto), pero de todos modos la dejo como un aporte (desde luego mejorable y pues como las UDFs son precisamente para ahorrarnos tiempo, espero sirva de algo:)), tambien es probable que se encuentre en algun lugar en internet, como dice un amigo por ahi, los problemas que aqui se presentan, ya alguien los enfrento antes y se los resolvieron:cool: Sirve para ver los dias que contiene un mes cualquiera, solo es necesario digitar una fecha valida en Excel Saludos a todos! UDF diasmes.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…

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

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…

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: Vamos a ver si me se explicar. El llenado de listas y cuadros combinados en un formulario es de lo mas tedioso y repetitivo. Me estrujado los sesos pensando como poder realizar esta tarea sin necesidad de escribir o copiar el código cada vez. ¿ Que diferencia hay de un control de un formulario a otro control de otro formulario ? Pues: 1) El formulario 2) El control 3) La hoja donde están los datos 4) El rango de inicio de los datos 5) El nº de columnas Pues con esas variables he creado una función que realiza el trabajo de llenado del control. El nº de columnas se toma de la propiedad .ColumnCount del control La función retorna el nº de filas que s…

Hola compañeros Tiempo atrás acompañé un archivo con parte del contenido del que ahora envío, que he ido completando con más ejemplos y sugerencias. Como SUMAPRODUCTO es un "producto", ¡je, je! (Veo que se me está pegando esto del ¡je, je!) tan demandado por los que estamos iniciándonos, me permito enviarlo por si se considera interesante su permanencia. Un saludo SUMAPRODUCTO ANÁLISIS.zip