Como verificar se uma tabela dinâmica existe em uma pasta de trabalho?

Se houver várias tabelas dinâmicas na sua pasta de trabalho e você quiser rapidamente saber se uma tabela dinâmica específica existe nessa pasta, normalmente pode ir até a caixa de diálogo Opções da Tabela Dinâmica para verificar o nome das tabelas dinâmicas uma por uma. No entanto, isso é muito demorado e tedioso quando existem dezenas ou centenas de tabelas dinâmicas. Aqui, posso compartilhar um truque com você para resolver essa tarefa.

Verifique se uma tabela dinâmica existe em uma pasta de trabalho com uma função definida pelo usuário

Verifique se uma tabela dinâmica existe em uma pasta de trabalho com uma função definida pelo usuário

Para saber rapidamente se uma tabela dinâmica existe na pasta de trabalho atual, você pode criar uma Função Definida pelo Usuário para resolver isso.

1. Abra a pasta de trabalho na qual deseja verificar se a tabela dinâmica existe.

2. Pressione e segure as teclas ALT + F11, e abrirá a janela Microsoft Visual Basic for Applications.

3. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Verifique se uma tabela dinâmica existe em uma pasta de trabalho

Function PivotExist(Name As String) As Boolean
'Update 20141112
    Dim sh As Worksheet
    Dim pt As PivotTable
    PivotExist = False
    For Each sh In ActiveWorkbook.Worksheets
        For Each pt In sh.PivotTables
            If pt.Name = Name Then
                PivotExist = True
                Exit For
            End If
        Next
    Next
End Function

4. Em seguida, salve e feche este código, volte para sua planilha, insira esta fórmula =pivotexist("salereport") em uma célula em branco, veja a captura de tela:

Notas: (1.) Na fórmula acima, “salereport” é o nome da tabela dinâmica que você deseja verificar.

(2.) Você deve inserir o nome da tabela dinâmica entre aspas duplas, e o nome precisa diferenciar maiúsculas de minúsculas.

5. Após inserir a fórmula, pressione a tecla Enter; se você obtiver VERDADEIRO na sua célula, a tabela dinâmica existe; se você obtiver FALSO, a tabela dinâmica não existe.

Artigos relacionados:

Como listar todas as tabelas dinâmicas de uma pasta de trabalho?

Como adicionar vários campos em uma tabela dinâmica?