Como criar vba incluindo tabela dinamica?

Question

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

Answer 1

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? 

Answer 2

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.

Answer 3

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!

Answer 4

Que bom que resolveu seu problema. Só marca como resposta para podermos ajudar mais gente.

Trabalho como instrutor de informática.

Abs.