Foro Excel

Hola a todos,
me gustaría saber si hay forma de aplicar un formato condicional a la columna TOTALES resultado de una tabla dinámica.
Os cuento un poco más: tengo una tabla dinámica creada con una macro y me gustaría poner el fondo de las celdas de los totales en rojo cuando sean mayores de una cierta cantidad. El problema reside en que la columna de totales no siempre es la misma (unas veces estará en la columna H, otras en las C.....)....

Espero haberme explicado bien.

Agracias a todos por la ayuda

Sube un pequeño ejemplo al Foro para incorporarle el código correspondiente.

Saludos, Cacho R.

Hola otra vez,
perdón por el retraso.
Adjunto .xls con un pequeño ejemplo de la tabla que quiero hacer..... me gustaría que en el total general, en los datos del empleado pepe se aplicase un formato condicional (por ejemplo fondo rojo) porque cumple una determinada condicion (por ejemplo Total general >50).

Aprovecho para comentar que uso excel 2003.

Un saludo y gracias

Una forma podría ser la siguiente:

Código: Seleccionar todo

With ActiveSheet.PivotTables("Tabla dinámica1").DataBodyRange
  With .Columns(.Columns.Count).Resize(.Rows.Count - 1)
    .FormatConditions.Delete
    .FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, Formula1:=50
    .FormatConditions(1).Interior.ColorIndex = 3
  End With
End With

Saludos, Cacho R.

Perfecto.... con la tabla de ejemplo funciona correctamente MIL GRACIAS.
Lo probaré con mi tabla en real y te comento algo.
Saludos y gracias otra vez.

Una cosa más: supongamos que en lugar de tener en la primera columna de la tabla el mes, tengo días del año.
¿Como hago para agrupar por trimestres en lugar de por meses?

Quiero hacerlo con una macro también. La idea es agrupar el campo fecha por trimestres.

Espero haberme explicado.

Subo el xls modificado, indicando como quiero que quede el resultado.

Muchas gracias.

gap7 escribió:... ¿Como hago para agrupar por trimestres en lugar de por meses? ...

¡Me perdí!...
¿Qué tiene que ver esta nueva inquietud tuya con lo anterior sobre formato condicional de celdas de una T.D.?

No me extraña que te perdieses.... en realidad esto es otro problema. Voy a abrir uno nuevo.
He probado el codigo y funciona a la perfección... te lo agradezco enormemente.
Saludos

Sí...
¡Es una buena idea abrir un nuevo tema!, porque resulta mucho más didáctico e instructivo.

¡Nos vemos!
Saludos, Cacho R.

Pasaba por aca, vi luz y

Código: Seleccionar todo

Sub AgruparTrimestres()
Dim pvT As PivotTable
Dim rngFecha As Range
Set pvT = ActiveSheet.PivotTables("Tabla dinámica1")
Set rngFecha = pvT.PivotFields("fecha").DataRange
rngFecha.Select
rngFecha.Cells(1).Group Periods:=Array(False, False, False, _
        False, False, True, False)
End Sub

Esta línea conviene eliminarla

rngFecha.select

(la use en el diseño, simplemente para verificar que rngFecha fuera lo que yo esperaba)

Eso es..... muchisimas gracias.

Estoy comenzando a ver la idea de como seleccionar los rangos de los criterios, la tabla,... etc que hasta ahora no tenía muy claro.

Reitero las gracias a todos.