Macrocubo-Una visión 3D de un libro

[Antoni]

Hola:

Supongo que no soy el primero que se imagina a un libro Excel como si fuera un cubo.

Un cubo en el que los ejes son : filas, columnas y hojas.

La pena es que esos ejes están fijos, pues bien ahora ya no lo están.

Con Macrocubo podrás ver los ejes como tu quieras.

Limitaciones:

1) Todas las hojas han de tener el mismo diseño

2) Los títulos de columna estarán en la fila 1, y no podrán estar duplicados

3) Los títulos de fila estarán en la columna 1, y no podrán estar duplicados

4) Los títulos tanto de filas como de columnas deberán estar de acuerdo con las reglas de los nombres de hoja.

5) Los datos empezarán en B2 y deberán ser numéricos

En el adjunto lo vereis mas claro.

Saludos

PD: Agradecer al Sr. Luis su aportación para subir el archivo al foro

MacroCubo.zip

[Invitado luigi]

Re: Macrocubo

Hecho, a ver si le vale Bertamiráns.

[pegones1]

Re: Macrocubo

PD: No se porqué ocupa tanto este archivo (No es por la imagen), si alguien consigue reducirlo de tamaño que lo suba al foro por favor.

Macro ¡sí es por las imágenes por lo que te ocupa tanto!

Seguro que las tienes en formato bmp porque con jpg ocupa lo que el adjunto que está "generado de cero" por lo que el cubo de rubik del userform lo he copiado y aparece con los 3 ejes.

Muy logrado el efecto 3D, pronto no tendremos ni que ponernos gafas para ver Excel en tres dimensiones...

MacroCubo2.zip

[Antoni]

Re: Macrocubo

Hola Pedro:

Vale, vale, era por la imagen del formulario.

Gracias. Lo volveré a subir.

[pegones1]

Re: Macrocubo

Lo que pasa es que estás obnubilado por la belleza de Cleo y no quieres perder calidad fotográfica con imágenes comprimidas de tu faraona.

Lo que es seguro es que tus macros no ocupan lugar

[pegones1]

Macro, el libro nuevo que genera el MacroCubo contiene una Hoja1 con cabeceras y sin datos que desenfoca el efecto 3D.

Al crear el libro con Workbooks.Add ya se añade la primera hoja

Propongo que las 3 líneas que crean nuevas hojas:

    ActiveWorkbook.Sheets.Add[/CODE]

sean modificadas por:

[CODE] If x > 1 Then ActiveWorkbook.Sheets.Add[/CODE]

Con lo que la primera hoja no se creará dos veces.

[Antoni]

Hola Pedro:

¿ Que pasa ? Como no hay fútbol este fin de semana. ¿ Nos dedicamos a tocar lo que no suena ?.

Bueno, el problema no es solo la Hoja1, son tantas hojas como hojas por defecto tengas configurado Excel a la hora de crear un libro nuevo.

He modificado el formulario para que elimine todas las hojas que no corresponden a datos.

También lo he modificado para que respete el orden original del tab de hojas.

El archivo lo modifico en el post #1.

¿ Algo mas le apetece al Sr. ?,....jajaja. Saludos.

[pegones1]

Al señor no le apetece nada más de momento, ni siquiera ver fútbol, aunque el Zaragoza no quiera la huelga, porque lo del orden no me atreví a pedírselo a nuestro célebre militar Macro Antonio, que solo sabe de ordeno y mando macros...

Si no es mucho pedir, no estaría de más añadir Septiembre y las ventas de Opel de Figueruelas para que el MacroCubo estuviera completo...

P.D.: Esta macro masacró a MacroAntonio:

For x = Sheets.Count To 1 Step -1

   If Sheets(x).Name Like "*@MacroAntonio@*" Then Sheets(x).Delete

Next[/CODE]