Filtro su Tabella pivot creata da codice con ricerca su parte del testo.

[danrosPartecipante danros]

Ciao

ho un esigenza particolare. Creo con il codice una tabella pivot da un file csv. Una colonna è l'ubicazione dei prodotti.

Questa può essere diversa ma a me serve sempre il filtro su "+Q*"  il testo potrebbe essere +Q1 ma anche +Quadro ecc ecc.

In alternativa potrei inserire tutte i possibili valori, ma se non lo trova mi da errore.

'''

With mySheet.PivotTables(1).PivotFields( _
"Ubicazione componenti (44)")
.Orientation = xlRowField
.Position = 1
End With
With mySheet.PivotTables(1).PivotFields( _
"Ubicazione componenti (44)")
.PivotItems("+Q1").Visible = True
.PivotItems("+QP").Visible = True
.PivotItems("+BM").Visible = False
.PivotItems("+CLI").Visible = False
.PivotItems("(blank)").Visible = False
End With

'''

 

Grazie a chi mi potrà dare delle info sull'uso dei filtri con ricerca su parte del testo.

[vecchio fracSenior Moderator vecchio frac Karma: 272 pts]

Al momento non riesco a riprodurre lo scenario. Puoi allegare un file di esempio su cui fare test?

Inoltre, ti consiglio di utilizzare il pulsante "(codice VBA)" quando editi un post di questo Forum, per incasellare con una formattazione più leggibile eventuale codice proposto.

Grazie.

Una prima soluzione potrebbe somigliare a questa:

For Each p In mySheet.PivotTables(1).PivotItems
    p.Visible = (p.Name Like "+Q*")
Next

Un altro test potrebbe essere:

mySheet.PivotTables(1).PivotFields("Ubicazione componenti (44)").PivotFilters.Add2 Type:=xlCaptionContains, Value1:="+Q"

[Autore]

Articoli