Views

Histats

Vitrine

DONUT PROJECT 2015 - Excel - Delete All Pivot Tables - Apagando todas as Tabelas Dinâmicas

DONUT PROJECT 2015 - Excel - Delete All Pivot Tables - Apagando todas as Tabelas Dinâmicas


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









Ei! Envie seus comentários e sugestões de artigos. Compartilhe este artigo com seus chefes, colegas de trabalho e amigos.




✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias