[RESUELTO] Filtros en tabla dinamica

[RASAPA]

Buenos dias,
He conseguido crear una tabla dinamica, mediante macros, con ejemplos de los forums y un poco de paciencia se ha hecho.
Necesito profundizar en las tablas dinamicas y estoy intentando filtrar los campos de la tabla, en el mismo momento de crearla.
Hasta ahora he fracasado.
Subo este ejemplo de creacion de tabla mediante macros, para ver si alguien sabe como crear esos filtros.
O sea que ejecutando el ejemplo enviado, al darle al boton , cree la tabla dinamica con el filtro en el campo "Country", y ya solo aparezcan los datos de Michigan y Ohaio.

Saludos
Ramon

[FJCC-ES]

Anadí a su código estas lineas

Código: Seleccionar todo

  oField.Function = com.sun.star.sheet.GeneralFunction.SUM
  '******** FJCC
  Dim FilterField(1) as New com.sun.star.sheet.TableFilterField
  FilterField(0).Connection = com.sun.star.sheet.FilterConnection.OR
  FilterField(0).Field = 1
  FilterField(0).Operator = com.sun.star.sheet.FilterOperator.EQUAL
  FilterField(0).IsNumeric = FALSE
  FilterField(0).StringValue = "Michigan"
  FilterField(1).Connection = com.sun.star.sheet.FilterConnection.OR
  FilterField(1).Field = 1
  FilterField(1).Operator = com.sun.star.sheet.FilterOperator.EQUAL
  FilterField(1).IsNumeric = FALSE
  FilterField(1).StringValue = "Ohio"
  oTDescriptor.FilterDescriptor.FilterFields = FilterField
  '**************
  oTables.insertNewByName("MyFirstDataPilot", oCellAddress, oTDescriptor)

[RASAPA]

Buenos dias, FJCC-ES,
Muchas gracias tanto por la rapidez, como por la solución.
He probado con varios filtros a la vez y FUNCIONA MUY BIEN.

Una cosa mas.

Cuando se abre la tabla dinamica, en el campo del filtro, solo sale el campo seleccionado, hay alguna posibilidad de que salgan todos los campos y que solo esten marcados los seleccionados?
O sea que tenga la posibilidad de abrir el listbox del filtro y que pueda canviar los seleccionados?.
Por ejemplo, si hay los meses del año, quiero que salgan todos, pero solo seleccionados los que se han establecido en el filtro de la macro.

Saludos
Ramon

[RASAPA]

He encontrado la solucion en el link https://forum.openoffice.org/es/forum/v ... 50&t=12098

Muchas gracias
Ramon