Tabella Pivot - mostra dettagli - cancella colonne

Question

Buongiorno.

ho la necessità di modificare il risultato dell'operazione mostra dettagli da una tabella pivot (doppio clic su una cella della Pivot)

Vorrei cancellare alcune colonne del foglio di lavoro risultante, tramite macro.

Ho scritto questo codice che mostra i dettagli di una tabella pivot, partendo da una cella, e cancella una colonna della tabella risultante.

Se però eseguo una seconda volta la macro, il nome della tabella risultante cambia ("Tabella6", "Tabella7"......"TabellaN")

Esiste un modo per riferirmi alla tabella(e relativa colonna) a prescindere dal nome ?

Grazie

TT

qui il file di esempio:

https://www.dropbox.com/s/1tdx2a5twp0ed61/ShowDetails.xlsm?dl=0

Sub ShowDetailsAndFilterResults()

Dim PT As PivotTable, _

    WsPt As Worksheet

    On Error Resume Next

    Set PT = ActiveCell.PivotTable

    Set WsPt = ActiveSheet

    If Not PT Is Nothing Then

        ActiveCell.ShowDetail = True

        Set WsD = ActiveSheet

        'Set WsT = ActiveTable

        With WsD

        .Range("Tabella6[a]").Delete Shift:=xlToLeft

        On Error GoTo 0

        End With

    End If

Answer 1

Buongiorno TT_968,

dal tuo messaggio capisco che hai alcune domande riguardo le tabelle Pivot.

Dal momento che non posso offrirti supporto al riguardo, clicca su link per poter avere maggiori informazioni e una possibile soluzione per la tua domanda.

Per altri dubbi, non esitare a contattarci.

Buona giornata,

Alessandra