Como copiar dados para outra planilha com 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 o recurso Filtro Avançado e o código VBA.

Copie os dados para outra planilha com Filtro Avançado usando o recurso Filtro Avançado

Copie os dados para outra planilha com Filtro Avançado usando código VBA

Copie os dados para outra planilha com Filtro Avançado usando o recurso Filtro Avançado

Aqui está uma solução alternativa simples para você resolver este trabalho, faça o seguinte:

1. Ative a planilha na qual deseja copiar o resultado filtrado usando a função Filtro avançado.

2. Então clique Dados > Avançado, veja a captura de tela:

3. No Filtro avançado caixa de diálogo, selecione Copiar para outro local do Ação seção e clique em botão para selecionar o intervalo de dados que você deseja filtrar em outra folha ao lado do Intervalo de listacontinue clicando botão ao lado do Intervalo de critérios para selecionar os critérios de outra planilha, veja a captura de tela:

4. Então clique botão ao lado do Copiar para para selecionar uma célula onde deseja produzir o resultado filtrado da planilha ativa e, a seguir, clique OK botão, o resultado filtrado foi extraído para outra planilha com base em sua planilha de dados original.

Copie os dados para outra planilha com Filtro Avançado usando código VBA

Se você tiver habilidade com VBA, poderá concluir esta tarefa usando o seguinte código VBA.

1. Ative a planilha que deseja filtrar e copie o resultado para outra planilha.

2. Segure o ALT + F11 chaves no Excel, e abre o Microsoft Visual Basic para Aplicações janela.

3. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.

Código VBA: copie os 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, em seguida, pressione F5 para executar este código, e uma caixa de prompt é exibida para permitir que você selecione o intervalo de dados que deseja filtrar, consulte a captura de tela:

5. Clique 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 OK, na caixa de diálogo exibida, selecione uma célula de outra nova planilha onde você deseja produzir o resultado do filtro, consulte a captura de tela:

7. Finalmente, clique em OK botão, os dados filtrados foram enviados para outra planilha especificada conforme necessário.