none
Como criar vba incluindo tabela dinamica? RRS feed

  • Pergunta

  • Bom dia queridos (as)

    Preciso criar a seguinte vba:

    Criar PROCV coluna B

    Correspondente encontra-se na Aba 2

    Criar tabela dinâmica

    Mostrar problemas de cada cliente com status pending

    Imagino que eu teria que criar algo deste tipo:

    Cliente Problema Status
    GE bugfix pending
    ENTECH slowsystem resolved
    EMERSON cleanuppcs pending
    SONY bugfix pending


    Porém faria isso normalmente no excel com fórmulas, nunca fiz isto através de macro.

    Poderiam me ajudar por favor? Tenho até hoje à noite para entregar este resultado.

    Agradeço imensamente a boa vontade em ajudar desde já.

    Mariana Ferraz

    segunda-feira, 3 de novembro de 2014 13:40

Respostas

  • Boa tarde!!!

    Td ótimo e com vc?

    Não entendi o porque de terem pedido o PROCV também, e na vdd acredito que vc conseguiu exatamente o que eu precisava! Muitooo obrigada, não tenho como agradecer!!!

    Você dá cursos de macro? 

    Bjssss e um excelente dia pra vc!

    • Marcado como Resposta Idivahhh terça-feira, 4 de novembro de 2014 08:25
    segunda-feira, 3 de novembro de 2014 17:28
  • Boa tarde Idivahhh, tudo bem?

    Não entendi muito bem o resultado final que você deseja... Quer fazer um PROCV e depois com o resultado gerar uma tabela dinâmica? 

    • Marcado como Resposta Idivahhh terça-feira, 4 de novembro de 2014 08:25
    segunda-feira, 3 de novembro de 2014 16:50
  • Olha, fiz um teste aqui e acho que isso pode te ajudar... Um filtro avançado que atualiza a tabela dinâmica depois de buscar os valores.

    Sub Filtro_Avançado_Clique()
    
    
        Sheets("Plan2").Range("B2:D10").AdvancedFilter Action:=xlFilterCopy, _
            CriteriaRange:=Range("Plan1!Criteria"), CopyToRange:=Range("B2:D10"), _
            Unique:=False
        
        ActiveSheet.PivotTables("Tabela dinâmica1").PivotCache.Refresh
        
    End Sub

    Segue imagem de como ficou a planilha:

    Plan1

    Plan2

    Qualquer coisa da um grito ai :D

    Abraço.

    • Marcado como Resposta Idivahhh terça-feira, 4 de novembro de 2014 08:25
    segunda-feira, 3 de novembro de 2014 17:06
  • Que bom que resolveu seu problema. Só marca como resposta para podermos ajudar mais gente.

    Trabalho como instrutor de informática.

    Abs.

    • Marcado como Resposta Idivahhh terça-feira, 4 de novembro de 2014 08:25
    segunda-feira, 3 de novembro de 2014 19:20

Todas as Respostas

  • Boa tarde Idivahhh, tudo bem?

    Não entendi muito bem o resultado final que você deseja... Quer fazer um PROCV e depois com o resultado gerar uma tabela dinâmica? 

    • Marcado como Resposta Idivahhh terça-feira, 4 de novembro de 2014 08:25
    segunda-feira, 3 de novembro de 2014 16:50
  • Olha, fiz um teste aqui e acho que isso pode te ajudar... Um filtro avançado que atualiza a tabela dinâmica depois de buscar os valores.

    Sub Filtro_Avançado_Clique()
    
    
        Sheets("Plan2").Range("B2:D10").AdvancedFilter Action:=xlFilterCopy, _
            CriteriaRange:=Range("Plan1!Criteria"), CopyToRange:=Range("B2:D10"), _
            Unique:=False
        
        ActiveSheet.PivotTables("Tabela dinâmica1").PivotCache.Refresh
        
    End Sub

    Segue imagem de como ficou a planilha:

    Plan1

    Plan2

    Qualquer coisa da um grito ai :D

    Abraço.

    • Marcado como Resposta Idivahhh terça-feira, 4 de novembro de 2014 08:25
    segunda-feira, 3 de novembro de 2014 17:06
  • Boa tarde!!!

    Td ótimo e com vc?

    Não entendi o porque de terem pedido o PROCV também, e na vdd acredito que vc conseguiu exatamente o que eu precisava! Muitooo obrigada, não tenho como agradecer!!!

    Você dá cursos de macro? 

    Bjssss e um excelente dia pra vc!

    • Marcado como Resposta Idivahhh terça-feira, 4 de novembro de 2014 08:25
    segunda-feira, 3 de novembro de 2014 17:28
  • Que bom que resolveu seu problema. Só marca como resposta para podermos ajudar mais gente.

    Trabalho como instrutor de informática.

    Abs.

    • Marcado como Resposta Idivahhh terça-feira, 4 de novembro de 2014 08:25
    segunda-feira, 3 de novembro de 2014 19:20