Filtro que se detiene

hola, José !

... habia puesto de estas 2 formas, y pasa lo mismo el filtro se queda seleccionado en azul
... seleccionada la fecha requerida, pero los datos no se despliegan [...]
... ahora no se como copiar solo los datos filtrados es decir solo la columna de fecha a otra hoja
Como le digo a excel que se posicione en el primer registro visible y seleccione hasta el ultimo ?
probe con este codigo... pero me copia todas las columnas, no entiendo muy bien la parte de offset y resize

te paso un ejemplo +/- siguiendo el criterio que ya estas usando...
solo modifica las partes donde sea necesario [como mis supuestos y los formatos de las fechas] :))
si cualquier duda... comentas?
saludos,
hector.
en un modulo de codigo 'normal' ==Sub Auto_Filtros()
Dim Fecha As Date
Fecha = Cells(1, 2)
Range("a4").Select
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:=Fecha
With ActiveSheet.AutoFilter.Range.Columns(4)
.Offset(1).Resize(.Rows.Count - 1, 1) _
.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Hoja2").Range("a65536").End(xlUp).Offset(1)
End With
Selection.AutoFilter
End Sub

Gracias por tu ayuda, no estoy en mi maquina en este momento, en cuanto
llegue probare tu codigo y te dejo saber.


"Héctor Miguel" escribió:

hola, José !

> ... habia puesto de estas 2 formas, y pasa lo mismo el filtro se queda seleccionado en azul
> ... seleccionada la fecha requerida, pero los datos no se despliegan [...]
> ... ahora no se como copiar solo los datos filtrados es decir solo la columna de fecha a otra hoja
> Como le digo a excel que se posicione en el primer registro visible y seleccione hasta el ultimo ?
> probe con este codigo... pero me copia todas las columnas, no entiendo muy bien la parte de offset y resize

te paso un ejemplo +/- siguiendo el criterio que ya estas usando...
solo modifica las partes donde sea necesario [como mis supuestos y los formatos de las fechas] :))
si cualquier duda... comentas?
saludos,
hector.
en un modulo de codigo 'normal' ==> Sub Auto_Filtros()
Dim Fecha As Date
Fecha = Cells(1, 2)
Range("a4").Select
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:=Fecha
With ActiveSheet.AutoFilter.Range.Columns(4)
.Offset(1).Resize(.Rows.Count - 1, 1) _
.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Hoja2").Range("a65536").End(xlUp).Offset(1)
End With
Selection.AutoFilter
End Sub

Gracias Hector, lo probe puse algunos cambio y funciono muy bien
Saludos

"José A. Castrejón" escribió:

Gracias por tu ayuda, no estoy en mi maquina en este momento, en cuanto
llegue probare tu codigo y te dejo saber.


"Héctor Miguel" escribió:

> hola, José !
>
> > ... habia puesto de estas 2 formas, y pasa lo mismo el filtro se queda seleccionado en azul
> > ... seleccionada la fecha requerida, pero los datos no se despliegan [...]
> > ... ahora no se como copiar solo los datos filtrados es decir solo la columna de fecha a otra hoja
> > Como le digo a excel que se posicione en el primer registro visible y seleccione hasta el ultimo ?
> > probe con este codigo... pero me copia todas las columnas, no entiendo muy bien la parte de offset y resize
>
> te paso un ejemplo +/- siguiendo el criterio que ya estas usando...
> solo modifica las partes donde sea necesario [como mis supuestos y los formatos de las fechas] :))
> si cualquier duda... comentas?
> saludos,
> hector.
> en un modulo de codigo 'normal' ==> > Sub Auto_Filtros()
> Dim Fecha As Date
> Fecha = Cells(1, 2)
> Range("a4").Select
> Selection.AutoFilter
> Selection.AutoFilter Field:=4, Criteria1:=Fecha
> With ActiveSheet.AutoFilter.Range.Columns(4)
> .Offset(1).Resize(.Rows.Count - 1, 1) _
> .SpecialCells(xlCellTypeVisible).Copy _
> Worksheets("Hoja2").Range("a65536").End(xlUp).Offset(1)
> End With
> Selection.AutoFilter
> End Sub
>
>
>