[Excel2013] Pulisci foglio ma non i pulsanti delle macro

[fastbike73]

Salve a tutti,
c'è un comando che mi permetta di pulire il foglio dai dati presenti senza
che cancelli i pulsanti che avviano le macro?
Specifico che i dati presenti sono sotto forma di tabella pivot.
Vi ringrazio sin d'ora per l'aiuto.
fastbike73

[Zer0Kelvin]

Ciao.
Mi viene da chedere: e qual'è questo comando che cancella anche i pulsanti?
Il quesito mi sembra troppo generico e secondo me non è chiaro; i dati di una tabella pivot sono solo la rappresentazione di altri dati in altri fogli o cartelle, quindi perchè mai vorresti cancellarli?

[fastbike73]

Ciao.
Mi viene da chedere: e qual'è questo comando che cancella anche i pulsanti?
Il quesito mi sembra troppo generico e secondo me non è chiaro; i dati di una tabella pivot sono solo la rappresentazione di altri dati in altri fogli o cartelle, quindi perchè mai vorresti cancellarli?

Ciao Zer0Kelvin, la tua osservazione è più che corretta e mi scuso per la mia ignoranza in materia. Intanto la tabella pivot che
ho nel mio file trae i propri dati da un consolidamento di 2 file, che di volta in volta potrebbero essere differenti. Quindi è "momentanea" o per lo meno viene creata all'occorrenza tramite macro (1° dei 2 pulsanti).
Appena "creata" la tabella pivot, tramite altra macro (2° pulsante) vengono inviati i dati in un altro file. A conclusione di questa operazione vorrei che il foglio ove è presente la tabella pivot venisse pulito, senza però cancellare i 2 pulsanti.
Se tu mi dici che un comando "ClearContents" non cancella anche i pulsanti, allora ho risolto è provvedo subito a inserirlo.

[Zer0Kelvin]

Ti posso confermare che ClearContents si limita a cancellare i valori contenuti nelle celle, lasciando intatto tutto il resto.
Non avendolo mai usato su una tabella pivot, non so se ci possano essere effetti collaterali; comunque, per esperimenti vari, è sempre bene utilizzare una copia del file.

[fastbike73]

Immaginavo che fosse troppo semplice.... infatti non funziona!! Mi da' un "Run Time error 1004, impossibile modificare questa parte di un rapporto di tabella pivot."
Potreste aiutarmi a trovare una soluzione???

[Anthony47]

Se il tuo obiettivo e' eliminare tutte le pivot table del foglio attivo:

Codice: Seleziona tutto

Sub PivotKiller()
For Each pvt In ActiveSheet.PivotTables
    pvt.TableRange2.Clear
Next pvt
End Sub


Ciao

[fastbike73]

Se il tuo obiettivo e' eliminare tutte le pivot table del foglio attivo:

Codice: Seleziona tutto

Sub PivotKiller()
For Each pvt In ActiveSheet.PivotTables
    pvt.TableRange2.Clear
Next pvt
End Sub


Ciao

Anthony, come al solito risposta esatta!!! Grazie!!