Hola No recuerdo haber visto algo similar por el foro, sobre como ordenar una BD segun el "Borde" de sus celdas/filas, pues a raiz de un problema sucitado en el foro de "GALI", es que se me ocurrio hacerlo con macros, sabemos que Excel al momento de ordenar BD nos lleva consigo el formato de las celdas, excepto los "bordes!" pues estos ignoran el SORT/ORDENADO, he tratado de burlar un poco a Excel por medio de VBA para lograr el efecto deseado, espero se comprenda el objetivo y sea de utilidad En resumen como "ordenar una BD pero que lleve de una vez los bordes de sus celas"? y para que se entienda un poco mas, ordenen la BD manualmente y notaran lo que comenté arriba..…

Bueno, como dice el encabezado creo que esta terminado por mi parte, seguramente se le podria imcorporar más funciones pero yo no llego a más. Subo el archivo para que los que me han ayudado (sin ellos no podria) lo repasen y si alguien lo quiere usar ó mejorar esta a su disposición. Nota: si se me ocurre algo que añadirle ya mandare un SOS. Gracias a todos Luis Propuesta de Pedido2.rar

Hola compañeros Como "cojeaba" bastante en esto de la función JERARQUIA (y en bastantes otras), me puse a estudiarla desde cero y, hasta ahora he sacado en consecuencia lo que expongo en estos apuntes que acompaño y que comparto por si sirven para ayudar a otros compañeros. Un saludo JERARQUIA.zip

Hola: Ya nos hemos comido Julio, y a los mortales que tenemos todo el año de vacaciones nos da lo mismo, otros por el contrario hoy disfrutareis de vuestro primer día de trabajo una vez terminados esos "maravillosos" días con la mujer, los niños, la suegra, el calor, los mosquitos, los atascos, el precio de la gasolina y esas pequeñas cosas que nos acercan cada vez mas a la felicidad...... jejeje. He hecho un pequeño descanso de mi descansada vida para dejaros una muestra de mi insuperable ingenio. En mi constante búsqueda del nirvana de la inutilidad, he creado el juego de "El Buscaminas". La diferencia con el clásico de Windows, es que si jugais con el mío, siempre …

Hola Existen varias formas de convertir numeros almacenados como texto a "numeros" (por cierto es un tema muy consultado), uno de los mas conocidos es usar un bucle en VBA, y precisamente lo que busco es evitar el famoso bucle (lo he probado con mas de 35000 celdas en la columna A y va rapido) Sub convertiranumeros() With Application .ScreenUpdating = False With Range("B1") .Value = 1 .Copy Range("A2:A" & _ Range("A" & Rows.Count).End(xlUp).Row).PasteSpecial _ Operation:=xlMultiply .Value = "" ActiveCell.Select End With .CutCopyMode = False .ScreenUpdating = True End With End Sub[/PHP] Espero sea de utilidad Saludos desde Hondu…

Hola compañeros Acompaño un archivo que podría emplearse para Control de Personal. Contenido: Control de vacaciones, trienios, antigüedad, etc. Podrían añadirse más supuestos en función de las necesidades del operante. Celebraré que le sea útil a alguien. Un saludo EDITO 1: He sustituído el archivo con alguna mejora. EDITO 2: He subido un 2º archivo para el caso de que existan dos períodos de vacaciones en lugar de uno sólo. CONTROL DE PERSONAL.zip CONTROL DE PERSONALbis.zip

Hola Depende de si estás hablando de combinaciones o permutaciones con o sin repetición. Te pongo el ejemplo más sencillo, permutaciones con repetición, tomando la serie 3x5x3x5x3x5=3375 posibles permutaciones, es como contar normal y corriente solo que el tope no es siempre 10. Sub PermutacionesRepeticion() Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, f As Integer Dim Fila As Long, Palabra As String Dim Consonante(1 To 3) As String, Vocal(1 To 5) As String Consonante(1) = "k" Consonante(2) = "g" Consonante(3) = "l" Vocal(1) = "a" Vocal(2) = "e" Vocal(3) = "i" Vocal(4) = "o" Vocal(5) =…

Hola, Visto el tema Extract the last token in a cell en Daily Dose of Excel, me ha dado por, (antes de conocer que no se podia postear en ese foro), intentar hacer mi propia formula de lo mismo, nada que ver con las muchas que han sacado los expertos formulianos ya que la mia es descomunalmente larga, pero me quedo contento con haber podido sacar mi propia version. En el adjunto tenéis el paso a paso. A ver si os animáis a simplificarla. Saludos Extraer Final.xls

Buenas tardes Aqui os de dejo una idea para listar comentarios, crea un hoja nueva con la lista de los comentarios Saludos Rafa listarcomentarios.zip

Hola: ¡¡ Tachán, tachán !! Hoy os traigo una autentica "delicatessen". Se trata de un planificador de ejecución de macros en el tiempo. Admite cualquier número de macros a ejecutar. Las macros pueden estar en cualquier libro. El planificador puede activarse y desactivarse a voluntad. Se admiten periodicidades diarias, semanales y mensuales. La misma macro puede ejecutarse tantas veces como se quiera a lo largo del día. Por supuesto, solo funciona si el libro está abierto. Puede usarse el planificador de Windows para abrir el libro a una determinada hora. Al abrir el libro el planificador se activa de forma automática. ¡¡ MUY IMPORTANTE !! Ninguna de las sig…

Hola amigos, en muchas ocasiones han salido temas referentes a ligas de fútbol, y otros deportes, pero en ninguna ocasión (o al menos yo no lo he visto) se ha hecho nada para el reparto del engorroso trabajo de realizar el reparto de todos los equipos o jugadores (ya que sirve tanto para deportes colectivos como individuales) de una manera automática. Pues en eso consiste este archivo, lo que se hace es seleccionar el número de equipos/jugadores que va a llevar el campeonato, escoger si será solo de IDA o de IDA/VUELTA, y tan solo con ejecutar se realizará el reparto, luego en la tabla insertas los equipos y voile, todas las jornadas repartidas, fácil manejo y seguro que…

Hola compañeros Acompaño algunas utilidades de SUMAPRODUCTO, con el deseo de que puedan sevir a alguien. Un saludo EDITO: Sustituyo archivo para completar. SUMAPRODUCTO (Algunos usos).zip

Hola: Ya sabemos que es imposible proteger completamente nuestros proyectos, no obstante se pueden poner algunos controles que si bastarán para aquellos que no disponen de demasiados conocimientos sobre VBA. Aquí os dejo una macro que no deja acceder al libro a partir de un nº de días transcurrido desde la última fecha de creación o modificación del archivo. Private Sub Workbook_Open() DíasEvaluación = 30 'Número de días de evaluación If Left(FileDateTime(ThisWorkbook.FullName), 10) < CStr(Date - DíasEvaluación) Then MsgBox "Ha terminado el periodo de evaluación", vbCritical, "Comprobación de licencia" Application.DisplayAlerts = False Application.Qu…

Hola: Se escriben estas líneas para animar a todos los foreros a usar la grabadora de macros. La grabadora de macros, junto con la ayuda de Excel, son las 2 grandes y poco usadas herramientas que Excel pone a nuestra disposición para aprender VBA. Todo, absolutamente todo, lo que hacemos dentro de Excel se traduce a VBA cuando tenemos arrancada la grabadora de macros. El 90% de las consultas se podrían eliminar utilizando la grabadora de macros, de esta manera podríamos eliminar las "consultas spam" de nuestro foro, y de paso nuestro "Boss" se ahorraría el 90% del coste de almacenamiento en el servidor web de esta página. He aquí una pequeña muestra de lo que se p…

Hola Esta es la primera clase que hago en VB, idea surgida a raíz de una consulta que hice en este mismo foro. Dicha ClaseRango permite crear objetos que toman los atributos de las celdas asociadas a un objeto Range (tantos atributos como queramos implementar) y luego permite devolver los datos a la celda que nos interese. Lo interesante de esto es, que para manejar los datos de celdas una vez están en los objetos ClaseRango, no es necesario que estén linkados a una celda, se manejan como una variable mas. Ventajas: El método de copia "Copy" entre objetos de la propia ClaseRango es bastante más rápido que manipular las celdas dentro del entorno de la hoja además de…

Hola: Si poneis el adjunto en el escritorio, puede seros de gran (¿?) utilidad. Cuando lo ejecuteis, se abrirá el último libro con el que hayais trabajado. Luego mas. MA LastBook.zip

Hola: Os avisé, este aporte es peor que el de ayer. El que avisa no es traidor. Se trata de un formulario automático ligado al evento SheetSelectionChange. Cada vez que se selecciona una celda, se muestra una lista de todas las versiones del valor de esa celda en toda la columna, ordenadas de menor a mayor, eliminándose las versiones duplicadas. Dando click en el formulario, se actualiza la celda activa con el valor de la lista. Las lista se actualiza de forma automática. Es válido para cualquier número de columnas. Ale hasta mañana si tengo ganas. MA ListasUnicas.zip

Hola: Si quereis que nadie sepa que archivos usais si alguien abre Excel en vuestro PC: Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.RecentFiles.Maximum = 0 End Sub[/CODE] Saludos MA

Hola: Os adjunto una aplicación del objeto FileSystemObject. Con este objeto podemos acceder a todo el árbol de archivos del sistema. Si,...si,... ya se,.... tampoco es nada del otro mundo, pero es lunes y no se me ocurre nada mas. Hasta otra. El próximo aporte será peor. MA Fso.zip

Buenas compañeros foreros Aqui os subo una idea, que se me ocurrio hace tiempo para buscar , yo lo aplique para buscar telefonos, pero sera facil transformar el formulario y la hoja para lo que os sea mas convenientes. Espero que os sirva de ayuda De paso me gustaria agradecer a todo los compañeros del foro las numerosas ideas que me han aportado, para solucionar los problemas con los que me encotrando. Gracias por compartir vuestro conocimientos, ojala algun dia sea capaz de saber tanto como vosotros. Por contener datos reales, este archivo fue modificado introduciendo datos ficticios. INFORMACION1.zip

Hola: Pues nada mas que lo que dice el título. Ordena un rango de celdas en un array de rangos. Saludos. Public Celda() As Range 'Resultado de la función Function MacroOrden(Rango As Range) As Integer ' ' ----------------------------------------------------- ' Ordena un rango de una sola columna sin tocar la hoja ' Deja el resultado en el array de rangos: Celda ' ' Macro Antonio Junio de 2011 ' --------------------------- ' ' Nota: Necesita una adaptación para Option Base 1 ' ' ----------------------------------------------------- ' Application.ScreenUpdating = False MacroOrden = 0 'Función correcta 'Controlamos que solo haya una co…

Hola: En el adjunto encontrareis un formulario para guardar las imágenes de un libro como JPG. En el mismo formulario también se da la posibilidad de restaurar las imágenes previamente copiadas. Podría servir para disminuir el peso de archivos con muchas imágenes y que haya que distribuir de forma regular. El nombre de las imágenes guardada se configura de la siguiente manera: Prefijo + "." + ImagenTop + "." + ImagenLeft + "." + NºHoja + ".[$$$].jpg" Para los que estén interesados en el procedimiento: Por cada imagen encontrada en la hoja Procedimiento de guardado: 1) Se crea un gráfico temporal 2) Se añade la imagen al gráfico 3) Traspasa el grafico a la ho…

Hola familia, aquí les dejo un pequeño utilitario que puedes usar en tu pequeño negocio, club, sociedad, base de datos de tus películas, etc, etc. Solo tienes que ajustar los diferentes campos a tus necesidades y dejar correr la imaginación. Pude poner unos gráficos más bonitos en el menú, pero fruto del tamaño del archivo que es aceptado por el foro, pues me tuve que conformar con esos que no ocupan mucho espacio (Administradores, no sean "tacaños" y subanlo un poco). Pues bien, esperando sus comentarios, aportes o ayuda para mejorarlo. Saludos, JULIO Extraer reporte con fotos.zip

Hola: Aqui os dejo 2 UDF para la conversión del nº de columna a letras y viceversa. Function ColumnaALetras(Num As Range) As String ColumnaALetras = Split(Cells(, Num.Value).Address, "$")(1) End Function Function LetrasAColumna(Num As Range) As String LetrasAColumna = Val(Range(Num.Value & "1").Column) End Function [/CODE] Como fórmulla: [b][color=blue] =ColumnaALetras(A1) =LetrasAColumna(A1)[/color][/b] Saludos

Subo un explorador de imágenes en miniatura para ver y guardar, en archivos Excel, nuestras fotos e imágenes más queridas, después de comprimirlas para que ocupen poco espacio. IMPORTANTE: En Excel 2003 se debe comentar la línea: CommandBars.ExecuteMso "PicturesCompress"[/CODE] NOTA: Comenzar pulsando en [b]Elegir Miniaturas[/b] ¡¡¡ ATENCIÓN: Pulsar Retorno en las ventanas para comprimir las imágenes en miniatura !!! [size=4][color=blue]Descargar la versión 3: [b]Miniaturas_PW3.zip[/b][/color] La última versión se puede descargar desde aquí: Miniaturas_PW4.xls[/size] Miniaturas_PW2.zip Miniaturas_PW3.zip