Copie los datos filtrados a otra hoja usando VBA
Tengo dos sabanas. Uno tiene los datos completos y el otro se basa en el filtro aplicado en la primera hoja.
Nombre de la hoja de datos:Data
Nombre de la hoja filtrada:Hoky
Solo estoy tomando una pequeña porción de datos por simplicidad. MI objetivo es copiar los datos de la Hoja de datos, en función del filtro. Tengo una macro que de alguna manera funciona pero está codificada y es una macro grabada.
Mis problemas son:
El número de filas es diferente cada vez. (esfuerzo manual)Las columnas no están en orden.
Sub TESTTHIS()
'
' TESTTHIS Macro
'
'FILTER
Range("F2").Select
Selection.AutoFilter
ActiveSheet.Range("$B$2:$F$12").AutoFilter Field:=5, Criteria1:="hockey"
'Data Selection and Copy
Range("C3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Hockey").Select
Range("E3").Select
ActiveSheet.Paste
Sheets("Data").Select
Range("D3").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hockey").Select
Range("D3").Select
ActiveSheet.Paste
Sheets("Data").Select
Range("E3").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hockey").Select
Range("C3").Select
ActiveSheet.Paste
End Sub