selecionar alguns filtros em uma tabela dinâmica com data em VBA

Question

Ola pessoal,

sou novo em vba e estou tentando fazer um código que selecione no filtro da tabela dinâmica o intervalo digitado nas textbox: tboxdtinicial e tboxdtfinal   já tentei de varias maneiras so que não tem dado certo aparece o erro:

erro em tempo de execução 1004

não é possível obter a propriedade Pivotitens da classe Pivotfild

código utilizado:

ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("DATA").CurrentPage = _

"(All)"

ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("DATA"). _

EnableMultiplePageItems = True

Do Until tboxdtinicial = tboxdtfinal

tboxdtinicial = CStr(tboxdtinicial)

With ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("DATA")

.PivotItems(tboxdtinicial).Visible = True

End With

tboxdtinicial = CDate(tboxdtinicial) + 1

Loop

Answer 1

Olá AntônioSilva, tudo bem?

Seja bem-vindo e agradecemos pela participação, postando sua dúvida em nosso fórum.

A mensagem de erro em questão pode ser exibida nos seguintes casos:

1 - O valor de tboxdtinicial não foi localizado na lista de itens PivotItems.

2 - O valor de tboxdtinicial não está no mesmo formato do índice de PivotItems.

Para mais informações sobre desenvolvimento em VBA, acesse o fórum MSDN:

http://social.msdn.microsoft.com/Forums/pt-BR/home?forum=vbapt

Ou publique sua planilha compartilhando o link aqui no fórum, para que nossos membros possam auxiliá-lo.

Se os procedimentos acima resolverem a questão, marque como resposta.

Se tiver dificuldades, volte a postar.

Espero ter ajudado.

Até mais,

Fabio Toniolo