Pesquisar na Comunidade

Bom dia a Todos, Preciso de uma ajuda com o código abaixo, pois não tenho muitos conhecimentos de VBA. Este código eu consegui através do Chat GPT ele funciona do jeito que eu quero, porem ele é muito lento demora mais de 30 segundos para executar o filtro na tabela dinâmica de acordo com os valores selecionados na tabela externa. Como otimizar este código para deixa-lo mais rápido ao executar o filtro? Sub FiltrarPNC() Dim wsMaquinas As Worksheet Dim wsRelatorioBase As Worksheet Dim ptRelatorio As PivotTable Dim pfPNC As PivotField Dim piPNC As PivotItem Dim rngCodigos As Range Dim celCodigo As Range Dim arrCodigos() As String Dim i As Long ' Define as planilhas e a tabela dinâmica a ser filtrada Set wsMaquinas = ThisWorkbook.Sheets("MÁQUINAS") Set wsRelatorioBase = ThisWorkbook.Sheets("RELATÓRIO_BASE") Set ptRelatorio = wsRelatorioBase.PivotTables("RELATÓRIO") ' Define o campo PNC da tabela dinâmica Set pfPNC = ptRelatorio.PivotFields("PNC") ' Limpa o filtro anterior do campo PNC pfPNC.ClearAllFilters ' Define a faixa de células com os códigos da tabela PRODUTOS Set rngCodigos = wsMaquinas.Range("PRODUTOS[CÓDIGO]") ' Percorre as células da faixa de códigos e adiciona os valores a um array For Each celCodigo In rngCodigos If celCodigo.Value <> "" Then ReDim Preserve arrCodigos(i) arrCodigos(i) = celCodigo.Value i = i + 1 End If Next celCodigo ' Filtra o campo PNC com os valores do array de códigos For Each piPNC In pfPNC.PivotItems If IsInArray(piPNC.Value, arrCodigos) Then piPNC.Visible = True Else piPNC.Visible = False pfPNC.ClearAllFilters End If Next piPNC End Sub

Olá, Tenho uma tabela 2x4, sendo a primeira linha o header. A opção de valores para preenchimento das células no intervalo B2:O2 está disponível em uma lista de validação de dados. A lista disponível em cada célula varia de acordo com o valor selecionado nas células anteriores. Assim, as opções disponíveis na célula D2 dependem do valor selecionado na célula C2, que depende do valor selecionado na célula B2 e assim sucessivamente. Gostaria de criar uma macro que: 1- Preencha automaticamente o valor de uma célula conforme o valor escolhido nas células anteriores. Esse valor deve estar previamente previsto como opção na lista de validação de dados. O arquivo está disponível no link: https://www.sendspace.com/file/b4wwog