¿Cómo copiar datos a otra hoja de cálculo con el Filtro Avanzado en Excel?

La función Filtro Avanzado en Excel te permite extraer y filtrar datos de un conjunto de datos. Aunque funciona sin problemas dentro de la misma hoja de cálculo, podrías encontrarte con un mensaje de advertencia al intentar copiar los resultados filtrados a otra hoja de cálculo. En esta guía, te mostraremos paso a paso cómo copiar datos filtrados a otra hoja de cálculo utilizando tanto la función Filtro Avanzado como código VBA.

Copiar datos a otra hoja de cálculo con Filtro Avanzado usando la función Filtro Avanzado

Copiar datos a otra hoja de cálculo con Filtro Avanzado usando código VBA

Copiar datos a otra hoja de cálculo con Filtro Avanzado usando la función Filtro Avanzado

Aquí tienes una solución sencilla para resolver este problema, sigue estos pasos:

1. Activa la hoja de cálculo donde deseas copiar el resultado filtrado utilizando la función Filtro Avanzado.

2. Luego haz clic en Datos > Avanzado, ver captura de pantalla:

3. En el Filtro Avanzado cuadro de diálogo, selecciona Copiar a otra ubicación desde la sección Acción y luego haz clic en el botón para seleccionar el rango de datos que deseas filtrar en otra hoja junto al Rango de la lista, sigue haciendo clic en el botón junto al Rango de criterios para seleccionar los criterios de otra hoja, ver captura de pantalla:

4. Luego haz clic en el botón junto al Copiar a cuadro para seleccionar una celda donde deseas obtener el resultado filtrado desde la hoja activa, y luego haz clic en el botón Aceptar el resultado filtrado ha sido extraído en otra hoja basada en tu hoja de datos original.

Copiar datos a otra hoja de cálculo con Filtro Avanzado usando código VBA

Si tienes habilidad con VBA, puedes completar esta tarea utilizando el siguiente código VBA.

1. Activa la hoja de cálculo que deseas filtrar y copiar el resultado a otra hoja.

2. Mantén presionadas las teclas ALT + F11 en Excel, y se abrirá la ventana de Microsoft Visual Basic para Aplicaciones.

3. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: Copiar datos a otra hoja de cálculo con Filtro Avanzado:

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. Luego presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo para que selecciones el rango de datos que deseas filtrar, ver captura de pantalla:

5. Haz clic en Aceptar, y aparecerá otro cuadro de diálogo, solicitándote que selecciones el rango de criterios para filtrar, como se muestra en la captura de pantalla:

6. Sigue haciendo clic en Aceptar, en el cuadro de diálogo emergente, selecciona una celda de otra nueva hoja de cálculo donde deseas obtener el resultado del filtro, ver captura de pantalla:

7. Por último, haz clic en el botón Aceptar, los datos filtrados se han exportado a otra hoja especificada según sea necesario.