Copiar una fila a otro lugar de la misma hoja por medio de un criterio

hola Ricardo,

aunque ando despistado y por aqui seguro que te dan soluciones mas
limpias, una posibilidad serian los filtros avanzados

de todas formas creo que los datos que das dejan una cierta ambigüedad
en el aire:

¿donde comienza la lista? ¿y donde acaba?
¿donde y/o como le introduces los criterios a excel para que sepa que
filtrar?
¿hay posibilidad de columnas vacias entre L y AE?

bueno, para un supuesto como el que expones, y añadiendo estos otros:

a) la lista comienza en E1
b) la fila 1 es la de titulos y los datos comienzan en la 2
c) no hay columnas vacias entre la 1ª (E) y la ultima y todas tienen
titulo
d) el nº maximo de columnas de la lista seria de 124 (para previos al
2007) aunque iria justita
e) los criterios los introduces en A1 =Status, B1=Fecha inicio, C1fech fin
f) la columna D esta vacia, asi como a partir de la columna DY


podrias intentar algo asi:

en un modulo normal

Sub Filtrar()
Dim criterio As String, rngOrigen As Range, _
rngDestino As Range
criterio = "=And(L2=""" & [A1].Value & """,AE2>=" & _
CLng([B1]) & ",AE2<=" & CLng([C1]) & ")"
Application.ScreenUpdating = False
With Worksheets("Hoja1")
If .FilterMode Then .ShowAllData
.Columns("dx:iv").Clear
.Range("dz2").Formula = criterio
Set rngOrigen = .[e1].CurrentRegion
Set rngDestino = .Range(.Cells(1, 132), _
.Cells(1, rngOrigen.Columns.Count + 131))
rngOrigen.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=.[dz1:dz2], _
CopyToRange:=rngDestino, _
Unique:=False
' .[dz1:dz2].Clear
.Columns.AutoFit
.Range("e1:ea1").EntireColumn.Hidden = True
End With
Set rngOrigen = Nothing
Set rngDestino = Nothing
End Sub

en el modulo de la Hoja1 (puedes cambiar la hoja en el codigo)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1:c1")) Is Nothing Then Filtrar
End Sub

esto haria que cada vez que cambie el contenido de A1, B1, o C1 se
filtre la lista (OJO: oculta la lista original para facilita la vista.
Puedes evitarlo eliminando el uso de Hidden)

espero te ayude

un saludo
Ivan