Notifications
Clear all

Retirar todos campos da tabela dinâmica

3 Posts
1 Usuários
0 Reactions
1,201 Visualizações
(@mairon_1595102145)
Posts: 9
Active Member
Topic starter
 

Boa tarde pessoal

Tenho uma tabela dinâmica onde o usuário ao selecionar pelos option buttons a tabela dinâmica retira o campo de dados e insere outro.
Só que preciso pré programar na macro qual campo será retirado. Enxerguei duas soluções onde gostaria da ajuda de vocês:

1 - Algum procedimento onde eu conseguisse retirar todos campos no campo de dados
ou
2 - Algum procedimento que retire todos os campos ta tabela dinâmica deixando somente o pivotcache

se eu usar o tablerange.clear ele deleta a tabela dinâmica

 
Postado : 06/08/2015 1:15 pm
(@mairon_1595102145)
Posts: 9
Active Member
Topic starter
 

Obs.: São campos calculados que preciso remover

 
Postado : 06/08/2015 1:57 pm
(@mairon_1595102145)
Posts: 9
Active Member
Topic starter
 

Consegui resolver com esse código

For Each pf In pt.CalculatedFields
strSource = pf.SourceName
strFormula = pf.Formula
pf.Delete
Set pfNew = pt.CalculatedFields.Add(strSource, strFormula)
Next pf

 
Postado : 06/08/2015 3:01 pm