De vuelta de las vacaciones

Tres semanas de vacaciones, sin cuestiones de trabajo, sin ocuparme del blog (mis disculpas a las tantas consultas que todavía no han recibido respuesta), sólo disfrutando de todo lo bueno que la Argentina tiene para ofrecer al turista. En particular si el turista es argentino.

Pero imposible pasar tanto tiempo sin Excel, así que acepté la gentil invitación de Rodolfo Laría (TodoExcel) para la más porteña de las actividades: tomar café y charlar.

Naturalmente la charla giró en torno a Excel. Sin profundizar tocamos varios temas como las relaciones del consultor Excel con sus clientes, las nuevas y no tan nuevas herramientas de Excel (Power Query, PowerPivot), por qué conviene tener también Access en la caja de herramientas y más.

En los próximos días volveré a publicar posts en el blog y a responder a las consultas.

JLD de vacaciones

Después de varios años de ausencia, ha llegado el momento de volver a visitar el terruño y como Octubre es el mejor mes del año para visitar Buenos Aires, ahí voy.

Desde el próximo viernes y por tres semanas estaré gozando de unas vacaciones en la Argentina. El blog estará inactivo y no contestaré consultas ni comentarios. A mi vuelta trataré de ponerme al día.

Aprovecho la oportunidad para agradecer a los lectores de este blog y a todos los que me alientan a seguir adelante con su cálido agradecimiento.

Hasta la vuelta!

Jorge

Ocultar filtros en tablas dinámicas

Cuando creamos una tabla dinámica Excel instala filtros en los distintos campos (filas, columnas y filtro del informe)

Si por algún motivo queremos ocultar las flechas de los filtros, por ejemplo para evitar que un usuario cambie el contenido del informe, podemos usar la opción "Encabezados de campos" en el grupo Mostrar en las Opciones de las tablas dinámicas

Pero esta opción tiene un problema: no sólo quita las flechas sino también los encabezados

y como bono adicional, no quita el encabezado ni la flecha del filtro del informe. Los encabezados Ciudad, Agente y Año han desaparecido del informe dejando a nuestro desprevenido y poco informado usuario cavilando sobre si Janet Leverling es un agente de ventas o tal vez un cliente.

Para quitar las flechas de los filtros sin quitar los encabezados podemos usar esta macro

Sub ocultar_Filtros()
Dim ptbl As PivotTable
Dim pfld As PivotField
    Set ptbl = ActiveSheet.PivotTables(1)
      For Each pfld In ptbl.PivotFields
          pfld.EnableItemSelection = False
      Next pfld
End Sub

Esta animación muestra el resultado

Para volver a mostrar los filtros usamos esta macro, igual a la anterior pero con la propiedad EnableItemSelection con el valor True

Sub mostrar_Filtros()
Dim ptbl As PivotTable
Dim pfld As PivotField
    Set ptbl = ActiveSheet.PivotTables(1)
      For Each pfld In ptbl.PivotFields
          pfld.EnableItemSelection = True
      Next pfld
End Sub

De la misma manera podemos ocultar el filtro de un determinado campo. Para evitar que el usuario pueda filtrar el informe por Agente usamos esta macro

Sub ocultar_Item()
Dim ptbl As PivotTable
Dim pfld As PivotField

    Set ptbl = ActiveSheet.PivotTables(1)
    ptbl.PivotFields("Agente").EnableItemSelection = False
  
End Sub

Para volver a mostrar el filtro del campo cambiamos el valor de la propiedad EnableItemSelection a True.