Como copiar dados para outra planilha com o Filtro Avançado no Excel?
O recurso Filtro Avançado no Excel permite que você extraia e filtre dados de um conjunto de dados. Embora funcione perfeitamente na mesma planilha, você pode encontrar uma mensagem de aviso ao tentar copiar os resultados filtrados para outra planilha. Neste guia, mostraremos passo a passo como copiar dados filtrados para outra planilha usando tanto o recurso Filtro Avançado quanto o código VBA.
Copiar dados para outra planilha com Filtro Avançado usando o recurso Filtro Avançado
Copiar dados para outra planilha com Filtro Avançado usando código VBA
Copiar dados para outra planilha com Filtro Avançado usando o recurso Filtro Avançado
Aqui está uma solução simples para resolver essa tarefa, por favor, siga estas etapas:
1. Ative a planilha onde deseja copiar o resultado filtrado usando a função Filtro Avançado.
2. Em seguida, clique em Dados > Avançado, veja a captura de tela:
3. Na Filtro Avançado caixa de diálogo, selecione Copiar para outro local a partir da seção Ação e depois clique no 
botão para selecionar o intervalo de dados que deseja filtrar em outra planilha além do Intervalo de lista, continue clicando no botão ao lado do Intervalo de critérios para selecionar os critérios de outra planilha, veja a captura de tela:
4. Depois clique no botão ao lado do Copiar para campo para selecionar uma célula onde deseja exibir o resultado filtrado da planilha ativa, e então clique no botão OK , o resultado filtrado foi extraído para outra planilha com base na sua planilha de dados original.
Copiar dados para outra planilha com Filtro Avançado usando código VBA
Se você tem habilidade com VBA, pode concluir essa tarefa usando o seguinte código VBA.
1. Ative a planilha que deseja filtrar e copie o resultado para outra planilha.
2. Pressione as teclas ALT + F11 no Excel, isso abrirá a janela Microsoft Visual Basic for Applications.
3. Clique em Inserir > Módulo, e cole o seguinte código na Janela do Módulo.
Código VBA: Copiar dados para outra planilha com Filtro Avançado:
Sub Advancedfiltertoanothersheet()
'Updateby Extendoffice
Dim xStr As String
Dim xAddress As String
Dim xRg As Range
Dim xCRg As Range
Dim xSRg As Range
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the filter range:", "Kutools for Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xCRg = Application.InputBox("Please select the criteria range:", "Kutools for Excel", "", , , , , 8)
If xCRg Is Nothing Then Exit Sub
Set xSRg = Application.InputBox("Please select the output range:", "Kutools for Excel", "", , , , , 8)
If xSRg Is Nothing Then Exit Sub
xRg.AdvancedFilter xlFilterCopy, xCRg, xSRg, False
xSRg.Worksheet.Activate
xSRg.Worksheet.Columns.AutoFit
End Sub4. E então pressione a tecla F5 para executar este código, e uma caixa de prompt será exibida para permitir que você selecione o intervalo de dados que deseja filtrar, veja a captura de tela:
5. Clique em OK, e outra caixa de diálogo aparecerá, solicitando que você selecione o intervalo de critérios para filtragem, conforme mostrado na captura de tela:
6. Continue clicando em OK, na caixa de diálogo exibida, selecione uma célula de outra nova planilha onde deseja exibir o resultado do filtro, veja a captura de tela:
7. Por fim, clique no botão OK, os dados filtrados foram exibidos em outra planilha específica conforme necessário.
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins