none
Listbox com dados de tabela dinâmica RRS feed

  • Pergunta

  • Olá,

    Eu quero carregar um listbox1 que está em uma planilha com dados de uma tabela dinâmica. Eu manipulo quando ele fica visível ou não.

    A questão é que eu não quero os dados dos rótulos da tabela dinâmica e sim dos dados "detalhes" da tabela, ou seja, os dados que aparecem depois que damos duplo clique em um determinado item na tabela dinâmica.

    A tabela dinâmica está em outra planilha, na mesma pasta de trabalho.

    exemplo: (levando em conta que os itens são Casa, Carro e Moto e os itens "A, B, C..." são os dados detalhes.

    TabelaDinâmica1

    Casa: 3

    1. Casa A
    2. Casa B
    3. Casa C

    Carro: 5

    1. Carro A
    2. Carro B
    3. Carro C
    4. Carro D
    5. Carro E

    Moto: 2

    1. Moto A
    2. Moto B

    Quero que o list box carregue, por exemplo, os dados detalhes de MOTO.

    Estou com muita dificuldade pra manipular a tabela dinâmica pelo VBA.

    Obrigado,

    terça-feira, 28 de maio de 2013 12:51

Respostas

  • Fique atento aos nomes mostrados abaixo:

    Private Sub UserForm_Initialize()
        Dim pvi As PivotItem
        
        For Each pvi In ThisWorkbook _
                        .Worksheets("Plan1") _
                        .PivotTables("TabelaDinâmica1") _
                        .PivotFields("Nome") _
                        .PivotItems
            Me.ListBox1.AddItem pvi.Name
        Next pvi
    End Sub

    Plan1 é o nome da planilha em que se encontra a tabela dinâmica

    TabelaDinâmica1 é o nome da tabela dinâmica

    Nome é a descrição do cabeçalho da coluna em que se encontram as células Casa A, Casa B, Casa C, Carro A, etc.


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    terça-feira, 28 de maio de 2013 23:36
    Moderador