Filtrar registros de una hoja a otra hoja

"Aitor Uranga" escribió en el mensaje news:

Hola, me explico, en una hoja tengo los datos de unas personas con las
siguientes columnas: Categoría, nombre, apellidos, nº de salidas. La
categoría es F o M que depende de el número de salidas que tenga el
individuo y lo que yo quiero, es que a través de alguna fórmula o lo que
sea, me copie todos los registros que tengan la categoría F a otra hoja del
mismo archivo.

Alguien sabe si se puede hacer esto.

Gracias.

Por ejemplo, para copiar en una hoja nueva llamada "Datos filtrados" todas las filas de Hoja1 que tuvieran en la columna A una F, el código podría ser:

Sub prueba()
Dim wksNuevaHoja As Worksheet

With Worksheets("Hoja1").Range("A1")
.AutoFilter 'Se supone que los datos a filtrar comienzan en A2 (la primera fila es de encabezados)
.AutoFilter field:=1, Criteria1:="F"
.Cells.SpecialCells(xlCellTypeVisible).Copy

Set wksNuevaHoja = Worksheets.Add(after:=Sheets(Sheets.Count))
With wksNuevaHoja
.Name = "Datos filtrados"
.Paste
.[A1].Select
End With
.AutoFilter
End With

Set wksNuevaHoja = Nothing
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel