Autofiltro vba

[Neto2016]

Boa noite Pessoal.

 

Tenho a macro abaixo que filtra em uma tabela dinâmica o VENDAS1, o problema é que quando o VENDAS1 não aparece na tabela ocorre erro 1004, gostaria que neste caso a macro continuasse sem atualizar este vendedor.

 

'Seleção dos dados vendedor vendas1
    Sheets("Valores").Select
    ActiveSheet.PivotTables("Tabela dinâmica6").ClearAllFilters
    With ActiveSheet.PivotTables("Tabela dinâmica6").PivotFields("vendedor")
        .CurrentPage = "vendas1"
    End With

 

Obrigado.

[CasaDoHardware]

Como você nao disponibilizou o arquivo e nao disponibilizou o codigo completo

 

Antes dessa linha

 

Sheets("Valores").Select  

 

Coloque essa instrução

 

On Error Resume Next

[Neto2016]

Boa tarde.

 

A opção dado não solucionou o problema, não deu erro, porém a macro copia um valor indevido, visto que o vendedor não consta na planilha de vendas.

 

Segue anexo a macro que criei, não conheço muito de VBA, por isso o código é bem simples. Quando for executar a macro através do botão (ATUALIZAR), verá o erro. 

 

Obrigado.

Cópia de Analise Venda Exemplo.rar

[CasaDoHardware]

Eu não entendi direito o que você quer copiar, principalmente porque esta copiando de uma TD e nao do banco de dados.

 

você fez uma confusao enorme..

[Neto2016]

Obrigado, já resolvi o problema.