Obtener datos de un filtro en Excel

1. Con Excel abierto.

2. Pulsar la tecla Alt y mantener pulsada Pulsar la tecla F11. Mostrará el editor de Visual Basic.

3. Ir a: Barra de Menú Insertar Módulo. Mostrará la ventana del módulo donde escribimos la macro.

4. Escribir el código de la macro:

   Sub Datos_Filtro()

   Dim rango_origen As Range
   Dim rango_destino As Range

   With ActiveSheet.AutoFilter.Range

   Set rango_origen = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
   .SpecialCells(xlCellTypeVisible)

   End With

   Worksheets("Hoja2").Cells.Clear

   Set rango_destino = ActiveSheet.AutoFilter.Range

   .Offset(1, 0).Resize(rango_destino.Rows.Count - 1).Copy _
   Destination:=Worksheets("Hoja2").Range("A1")

   End Sub

   Worksheets("Hoja2"), indica la hoja donde pegar los datos. .Range("A1"), indica la celda donde pegar los datos filtrados.

5. Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.

Disponemos de los datos en el rango A1:C8 de la Hoja1.

1. Clic sobre cualquier celda del rango. Para que el filtro detecte el área del rango.

2. FILTRO DE DATOS. Ir a: Cinta de opciones Pestaña: Datos Grupo: Ordenar y filtrar Filtro . Aplicará el filtro en el rango de datos.

3. Ir a: Celda C2 (encabezado de la delegación) Desactivar la casilla: Sur. Para mostrar la delegación Norte, o aplicar el filtro deseado.

   

4. Clic sobre cualquier celda del rango. Para que la macro detecte el área de datos.

5. Ejecutar la macro: Datos_Filtro.

6. Verificar como en la Hoja2 se muestran los datos filtrados del rango de Hoja1.