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 Sub

4. 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.