filtrar fecha hoy

hola, Cecilia !

Tengo una hoja de excel en la que diariamente se introducen datos que deben ser impresos al final del dia.
En la columna A, tengo fecha y quiero crear un boton que me filtre la fecha del día actual para que seguidamente lo imprima
sin tener que usar diariamente el filtro.
Hay alguna manera de hacerlo?

prueba activando la grabadora de macros y efectuando manualmente las acciones que requieras [p.e.]
- activas los autofiltros
- filtras por alguna fecha determinada
- imprimes
- quitas los autofiltros

despues, modifica en el codigo generado la instruccion donde se establece el criterio del filtro [p.e.]
- por alguna instruccion que implique la fecha actual del sistema [dependiendo del formato que utilices en la columna A]

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

On 29 ago, 04:55, "Héctor Miguel"
wrote:

hola, Cecilia !

> Tengo una hoja de excel en la que diariamente se introducen datos que deben ser impresos al final del dia.
> En la columna A, tengo fecha y quiero crear un boton que me filtre la fecha del día actual para que seguidamente lo imprima
> sin tener que usar diariamente el filtro.
> Hay alguna manera de hacerlo?

prueba activando la grabadora de macros y efectuando manualmente las acciones que requieras [p.e.]
- activas los autofiltros
- filtras por alguna fecha determinada
- imprimes
- quitas los autofiltros

despues, modifica en el codigo generado la instruccion donde se establece el criterio del filtro [p.e.]
- por alguna instruccion que implique la fecha actual del sistema [dependiendo del formato que utilices en la columna A]

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Hola Hector
Lo hice como me dijiste y ahora no se como cambiar la fecha por la
funcion Hoy(), si sustituyo la fecha por Function hoy(), no funciona.
Te pongo la macro creada, haber si me puedes ayudar.

Range("A4:P4").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="29/08/2007"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.AutoFilter Field:=1
Selection.AutoFilter
Range("A5").Select
Selection.End(xlDown).Select
End Sub

Muchas gracias por todo
Saludos
Cecilia

hola, Cecilia !

hice como me dijiste y ahora no se como cambiar la fecha por la funcion Hoy()
si sustituyo la fecha por Function hoy(), no funciona. Te pongo la macro creada, haber si me puedes ayudar.
Range("A4:P4").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="29/08/2007"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.AutoFilter Field:=1
Selection.AutoFilter
Range("A5").Select
Selection.End(xlDown).Select
End Sub

[aparentemente] tu configuracion regional usa el formato de fecha de dd/mm/aaaa [con 4 digitos para el a#o]
prueba modificando la linea con la instruccion del criterio usando la funcion Format(numero, "formato") p.e

de: -> Selection.AutoFilter Field:=1, Criteria1:="29/08/2007"
a: -> Selection.AutoFilter Field:=1, Criteria1:=Format(Date, "short date")

si no te funciona con el formato [vb] de "short date", tienes otras variantes/alternativas/... como:
Format(Date, "general date")
Format(Date, "dd/mm/yyyy")

si cualquier duda... comentas ?
saludos,
hector.

__ las consultas anteriores __

> Tengo una hoja de excel en la que diariamente se introducen datos que deben ser impresos al final del dia.
> En la columna A, tengo fecha y quiero crear un boton que me filtre la fecha del día actual para que seguidamente lo imprima
> sin tener que usar diariamente el filtro.
> Hay alguna manera de hacerlo?

prueba activando la grabadora de macros y efectuando manualmente las acciones que requieras [p.e.]
- activas los autofiltros
- filtras por alguna fecha determinada
- imprimes
- quitas los autofiltros

despues, modifica en el codigo generado la instruccion donde se establece el criterio del filtro [p.e.]
- por alguna instruccion que implique la fecha actual del sistema [dependiendo del formato que utilices en la columna A]

On 29 ago, 18:10, "Héctor Miguel"
wrote:

hola, Cecilia !

> hice como me dijiste y ahora no se como cambiar la fecha por la funcion Hoy()
> si sustituyo la fecha por Function hoy(), no funciona. Te pongo la macro creada, haber si me puedes ayudar.
> Range("A4:P4").Select
> Selection.AutoFilter
> Selection.AutoFilter Field:=1, Criteria1:="29/08/2007"
> ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
> Selection.AutoFilter Field:=1
> Selection.AutoFilter
> Range("A5").Select
> Selection.End(xlDown).Select
> End Sub

[aparentemente] tu configuracion regional usa el formato de fecha de dd/mm/aaaa [con 4 digitos para el a#o]
prueba modificando la linea con la instruccion del criterio usando la funcion Format(numero, "formato") p.e

de: -> Selection.AutoFilter Field:=1, Criteria1:="29/08/2007"
a: -> Selection.AutoFilter Field:=1, Criteria1:=Format(Date, "short date")

si no te funciona con el formato [vb] de "short date", tienes otras variantes/alternativas/... como:
Format(Date, "general date")
Format(Date, "dd/mm/yyyy")

si cualquier duda... comentas ?
saludos,
hector.

__ las consultas anteriores __



> > Tengo una hoja de excel en la que diariamente se introducen datos que deben ser impresos al final del dia.
> > En la columna A, tengo fecha y quiero crear un boton que me filtre la fecha del día actual para que seguidamente lo imprima
> > sin tener que usar diariamente el filtro.
> > Hay alguna manera de hacerlo?

> prueba activando la grabadora de macros y efectuando manualmente las acciones que requieras [p.e.]
> - activas los autofiltros
> - filtras por alguna fecha determinada
> - imprimes
> - quitas los autofiltros

> despues, modifica en el codigo generado la instruccion donde se establece el criterio del filtro [p.e.]
> - por alguna instruccion que implique la fecha actual del sistema [dependiendo del formato que utilices en la columna A]- Ocultar texto de la cita -

- Mostrar texto de la cita -

Hola Hector
He conseguido que me filtre e imprima la fecha que seleccioné en un
principio cuando creé la macro, pero no se como cambiarlo para que
cada día me seleccione e imprima el día actual.
Es decir, hoy que me seleccione imprima lo de hoy pero mañana lo de
mañana.
No se si me explico.., decirte que no estoy muy suelta en macros
Como el formato de la fecha no me importaba mucho lo he cambiado con
lo que la macro quedaría así:

Range("A4:P4").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="26-07-07"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.AutoFilter Field:=1
Selection.AutoFilter
Range("A5").Select
Selection.End(xlDown).Select
End Sub

Así funciona pero siempre con el 26-07-07
Muchas gracias por tu ayuda
Saludos
Cecilia

hola, Cecilia !

... no se como cambiarlo para que cada día me seleccione e imprima el día actual.
Es decir, hoy que me seleccione imprima lo de hoy pero ma#ana lo de ma#ana...

[es lo mismo que te habia sugerido en el mensaje anterior... por si lo pasaste por alto]...
prueba modificando la linea con la instruccion del criterio...

de:
Selection.AutoFilter Field:=1, Criteria1:="26/07/07"

a:
Selection.AutoFilter Field:=1, Criteria1:=Format(Date, "short date")

si no te funciona con el formato [vb] de "short date", tienes otras variantes/alternativas/... como:
Format(Date, "general date")
Format(Date, "dd/mm/yyyy")

si cualquier duda... comentas ?
saludos,
hector.