Foro Excel

Necesito que las horas que hay en cada color de las diferentes hojas quede sumado de esta manera en la primera página y distribuí­da según los colores (que pueden ser aleatorios) que hay en las diferentes hojas del libro. He probado con esta función y el código VBA que hay en la hoja, pero no funciona... ¿Qué es lo que estoy haciendo mal? Se podrí­a crear un macro que lo haga?

ESTO CREO QUE HACE LO QUE QUIERES
ESPERO QUE TE SIRVA





SALU2

Hola.
Gracias por tu ayuda, es justo lo que necesito, lo instalaré en la hoja en la que estoy trabajando y te cuento...
Gracias de nuevo y un saludo.

Hola.
El ejemplo es excelente, pero lo que necesito es que los datos queden ordenados, en función de 1,2,3,4,5… es decir, cada total de cada hoja en su sitio. Pongo un ejemplo. Remito el ejemplo de cómo tienen que quedar los totales.
Gracias de nuevo y un saludo.

Espero que sea lo que quieres.






Salu2

Gracias IVOLLS, es lo que necesitaba.
Te comentaré los resultados cuando lo aplique a mi hoja de trabajo.
Gracias de nuevo y saludos.
Luis.

Hola.
He acoplado el macro al libro de trabajo y hay algo que no me funciona, no sé qué es. Va añadiendo los valores de cada hoja pero los sustituye por los de la hoja siguiente. ¿Qué hago mal?

Gracias y saludos.

Hola chicos,

No tengo Office en castellano y sospecho que la solucion que expongo puede que necesite algunos retoques manuales. El caso es que el libro adjunto hace uso muy limitado de VBA (solo para forzar recalculo de las hojas ya que cambio de color no dispara ningun evento en Excel). En cambio he usado unos nombres definidos con macrofunciones (Macros Excel4).

Pues es posible que al abrir el archivo en Office en castellano no funcionen, en ese caso hacer lo siguiente:

en una hoja cualquiera de libro...

1) seleccionar la celda [B1]
2) ir al menu Insertar>Nombre>Definir...
3) seleccionar el nombre Color
4) sustituir la formula por la siguiente:
=OBTENER.CELDA(63;!A1)+HOY()*0
5) pulsar el boton Añadir y luego Aceptar
6) seleccionar la celda [A1]
7) ir al menu Insertar>Nombre>Definir...
8) seleccionar el nombre Color1
9) sustituir la formula por la siguiente:
=OBTENER.CELDA(63;!A2)+HOY()*0
10) pulsar el boton Añadir y luego Aceptar

Notas:
- Ojo: al copiar las formulas que contienen nombres definidos con macrofunciones de una hoja a otra (y solo en este caso) el Excel se cerrara sin guardar cambios.
- Es necesario habilitar macros y Excel 4.0 Macros al abrir el archivo para que funcione.
- La parte +HOY()*0 dentro de las formulas de los nombres definidos sirve para hacer los nombres volatiles

Gracias KL por tu nterés, pero como dije sé muy poco de Excel, y no comprendo muy bién cómo funciona tu solución, el caso es que en el ejemplo sólo puse 3 hojas cuando en realidad son 31 (un mes). Crees que se podrí­an colocar 31 funciones anidadas? En el ejemplo anterior que envié pienso que estaba casi la solución, sólo que en lugar de sustituir un valor por otro es sumarlo.

Gracias de nuevo y un saludo.

Hola lucas225,

lucas225";p="23548 escribió:Crees que se podrí­an colocar 31 funciones anidadas?

Hombre, poder se podria, pero... Mira a ver el siguiente codigo (tambien te adjunto un fichero de ejemplo). Creo que es mucho mas rapido que el que has estado usando. El codigo va en el Modulo1 y esta asignado a un boton procedente de la barra de herramientas 'Formularios'. Tambien he creado un rango denominado ('Colores') en la hoja RESUMEN que contiene las celdas con los colores a contar. De esa manera el macro siempre contara los colores que pongas en dicho rango.

Código: Seleccionar todo

Option Explicit
Sub SumarColores()
    Dim Colores(1 To 6) As Long, Tabla(1 To 64, 1 To 6) As Double
    Dim i As Long, j As Long, ws As Long, rng As Range
   
    For i = 1 To 6 'Creamos la tabla de colores
        Colores(i) = Range("colores")(i).Interior.ColorIndex
    Next i
   
    For ws = 2 To Worksheets.Count 'Numeros de hojas
        Set rng = Worksheets(ws).Range("F13:F76")
        On Error Resume Next
        For i = 1 To 64 'Numeros de filas
            j = Application.Match(rng(i).Interior.ColorIndex, Colores, 0)
            Tabla(i, j) = Tabla(i, j) + rng(i)
        Next i
        On Error GoTo 0
    Next ws
   
    With Worksheets("RESUMEN").Range("C10:H73")
        .ClearContents
        .Value = Tabla 'Pegamos los datos
    End With
End Sub

Gracia KL, es justo lo que estaba buscando.
Lo he acoplado a mi libro y funciona a la perfección.

De nuevo gracias y un saludos.
Luis.

Hola de nuevo.

Otra pregunta sobre este macro...

Habrí­a alguna manera con este macro de que contara las celdas con valor >0
en vez de sumarlas?

Gracias y un saludo.

Si. Prueba esto (acuerdate de cambiar el formato de la tabla destino de "[h]:mm" a "General") :

Código: Seleccionar todo

Sub ContarColores()
    Dim Colores(1 To 6) As Long, Tabla(1 To 64, 1 To 6) As Double
    Dim i As Long, j As Long, ws As Long, rng As Range
   
    For i = 1 To 6 'Creamos la tabla de colores
        Colores(i) = Range("colores")(i).Interior.ColorIndex
    Next i
   
    For ws = 2 To Worksheets.Count 'Numeros de hojas
        Set rng = Worksheets(ws).Range("F13:F76")
        On Error Resume Next
        For i = 1 To 64 'Numeros de filas
            j = Application.Match(rng(i).Interior.ColorIndex, Colores, 0)
            If rng(i) Then Tabla(i, j) = Tabla(i, j) + 1
        Next i
        On Error GoTo 0
    Next ws
   
    With Worksheets("RESUMEN").Range("C10:H73")
        .ClearContents
        .Value = Tabla 'Pegamos los datos
    End With
End Sub

Gracias KL.

No sabes el trabajo que me ahorras con esta ayuda.

De nuevo gracias y n saludo.