Diagrama de arbol en excel (Contraer/Expandir directorios a lo regedit)

[verzulsan]

Buenas,

Aquí os dejo una de las mejoras que le he puesto a mi proyecto de estudio por Excel.

Se trata de un sistema de navegación entre directorios por exploración al igual que se puede hacer con el Regedit o con Windows Explorer, solo que en lugar de manejar objetos relacionados, simula dicha acción con las filas del Excel ocultándolas o mostrándolas. Para el ejemplo he cogido la ruta de directorios de Windows XP para que se entienda mejor el propósito, yo lo uso para definiciones de las materias que estoy estudiando.

Además de expandir o contraer directorios mediante Doble Click, tiene también la opción de lanzar una macro en caso de no estar en la zona de expansión/compactación. La hoja inicial no tiene ningún tipo de formato, ni formulas, ni rangos, es solo texto plano, todo lo que ocurre en la hoja es mediante macros. Para activar el programa, solo tenéis que hacer doble click en la celda A1.

Espero que os guste, me ha dado muchos dolores de cabeza.

Sistema Arbol.zip

[Gerson Pineda]

verzulsan muy util y excelente (tambien tipo tabla dinamica)

Saludos maestro

[verzulsan]

Gracias Gerson, aun que para maestro aun me queda un rato jejeje, me considero mas estudiante que maestro.

Por cierto, ahora que lo dices, a ver si me pongo con las tablas dinamicas por que nunca las he usado y parece que dan bastante juego.

Un saludo!

[Gerson Pineda]

verzulsan las tablas dinamicas se volvieron mas facil (no le temas jeje) que nunca desde 2007, es mas con toda humildad las nuevas versiones estan dirigidas a super novatos, ya que casi todo esta a la mano, solo es de estudiar un poco, hasta el VBA es mas claro, aunque este ultimo es mas complejo (porque hay manejar un poco el ingles), pero poco a poco se aprende mucho!

Saludos mi estimado

[ST_]

interesante 'curiosidad' de verzulsan

felicitaciones.

[juliocesar_seapf]

muy interesante...

[jj1menez]

Me encantaría ver como hiciste esto, hay alguna manera??? es decir donde puedo ver como sacaste todo el árbol, para yo hacer un proceso similar pero de alguna carpeta en especial.

[verzulsan]

Me encantaría ver como hiciste esto, hay alguna manera??? es decir donde puedo ver como sacaste todo el árbol, para yo hacer un proceso similar pero de alguna carpeta en especial.

El aporte no tiene nada que ver con sacar todo un arbol de carpetas, de todas formas te digo el nombre del programa que usé para sacar el listado que has visto en el ejemplo: "Directory Lister", te crea un listado de todos los archivos y carpetas del directorio que elijas; tras personalizar las opciones de busqueda para que solo muestre la info que se quiera, luego solo hay que hacer varios filtrados en excel para sacar el arbol y las tabulaciones que separan los niveles.

Aqui te dejo la web:

List Files with Directory Lister Pro

¿He contestado tu pregunta?

Saludos

[Escafoides]

Hola!

Queria saber si esta macro me serviría para el Excel de un Mac

Muchas gracias

[Onardem]

Simplemente excelente, muchas gracias.

Saludos.

[Onardem]

Hola verzulsan, he usado tu macro y me ha servido muchisimo, sólo un pregunta por curiosidad, ¿la macro se puede hacer a la inversa?, es decir, ¿se puede ocultar las filas de arriba si el titulo esta abajo?, saludos.

[verzulsan]

Hola Onardem, me alegro que te sirva,

Seguramente se pueda pero no se si te he entendido bien, ¿podrias poner un ejemplo de como iria eso de las filas arriba y el titulo debajo?, saludos

[Onardem]

Hola verzulsan, anexo un extracto de tu archivo acomodado al revés, en donde la unidad "C:" esta al final de las filas; en vez de ocultar las filas que estan abajo se oculten las que están arriba como en los subtotales, agregue colores a los niveles para que se aprecien mejor.

Espero haberme explicado.

Saludos.

Sistema Arbol - copia.xls

[verzulsan]

Con el ejemplo te he entendido, es decir, quieres que actue exactamente igual que lo hace ahora pero en sentido contrario, como si abajo fuera arriba y arriba abajo.

Intenta coger la logica del algoritmo y luego dale la vuelta a cada bucle, creo que son las variables

Dim FilUp As Integer 'La fila en la que empieza el rango de compactacion

Dim FilDown As Integer 'La fila en la que acaba el rango de compactacion

Dim FilEOF As Integer 'El final de la hoja, solo para el ultimo segmento de compactacion

Edit: Tengo unos minutos a ver si consigo que funcione y te lo paso.

[Enigma25]

Dios lo bendiga versulan

Excelente trabajo!!!

Mis respetos.

[verzulsan]

Creo que lo tengo, puede tener algunos fallitos pero como va el algoritmo duplicado en dos módulos diferentes (uno funciona al derecho "Compactar" y otro al revés "Compactar2") puedes compararlos para mejorarlo como mejor te convenga.

Descargar Sistema Arbol al reves

Saludos

PD: Hola Enigma25, gracias por los cumplidos, me alegra que te haya gustado y saludos para ti también.

PD2: Me estaba preguntando ahora que he terminado ¿El sistema de árbol al revés que aplicaciones tiene? ¿Para zurdos? ¿Para disléxicos?, Es solo curiosidad, si no se puede decir no pasa nada

Saludos2

[Onardem]

Hola @[uSER=33269]verzulsan[/uSER], disculpa apenas puede conectarme para ver las respuestas.

Es genial tu archivo, cada vez me sorprendo más, yo intente modificarlo antes, pero en las pruebas que hice, sólo funciono algunas veces pero me marcaba error y otra veces solo me mostraba algunas filas y otras no.

Respecto a tu duda, verás, soy contador por profesión y aficionado al excel por adicción, jejeje, así que elaboro mis propias cédulas con formulas y macros, y en hace unos días me di a la tarea de hacer un análisis (ya que no tenia que hacer) sobre un presupuesto de gastos personales, por lo que use tu macro, pero, cuando estaba viendo como se ocultaban y mostraban las filas, se me acerco un colega y me dijo que si le podía ayudar hacerlo con un archivo que él tiene, entonces viendo su archivo, note que utilizaba la opcion de subtotales acumulando la suma total en la parte de abajo, por lo que las partidas integrantes estaban en las filas superiores, y me pregunte si se podría hacer de manera inversa la macro, así fue como retome la publicación y te pregunte.

Usos creo que hay varios, entre ellos se me ocurren: resumenes tipo tabla dinámica, presentaciones de proyectos de forma compacta, para sustituir la opción de subtotales, y de ahí hasta donde la imaginación alcance.

Muchas gracias @verzulan, en hora buena, he aprendido mucho de tus aportes.

Saludos.

Jesús.

[fazz016]

Verzulan Es posible dar otros o mas formatos a los signos (+/-) Borde y fondos? o incluir alguna otra fuente.ttf o alguna imagen?

[Daniel Hdz P.]

Buen dia¡¡ Me gustaria si alguien me puede asesorar para realizar este mismo porceso, veo que la entrada es de hace años..... ando haciendo algo similar pero en el archivo no identifico la forma de poder hacer la contraccion y la expansion¡¡¡¡ Ayudaaaaa