Com a função abaixo podemos automatizar a destruição de todas as Tabelas Dinâmicas da nossa planilha.
Sub DeleteAllPivotTables()
'PURPOSE: Delete all Pivot Tables in your Workbook'SOURCE: www.TheSpreadsheetGuru.com
Dim sht As WorksheetDim pvt As PivotTable
'Loop Through Each Pivot Table In Currently Viewed Workbook
For Each sht In ActiveWorkbook.Worksheets
For Each pvt In sht.PivotTables pvt.TableRange2.Clear Next pvt Next sht
End Sub
Veja outros códigos:
Série DONUT PROJECT 2021
Série DONUT PROJECT 2018
Série DONUT PROJECT 2015
Série DONUT PROJECT 2014
Clique aqui e nos contate via What's App para avaliarmos seus projetos
Envie seus comentários e sugestões e compartilhe este artigo!
brazilsalesforceeffectiveness@gmail.com
Nenhum comentário:
Postar um comentário