AutoFiltros y fechas

03/08/2005 - 21:07 por RHT | Informe spam
Saludos.
Muchachos, necesito un poco de ayuda.

¿Cuál es la forma correcta de pasar los parámetros de la función autofiltro,
para el caso de valores de fecha?

Estoy haciendo esto:

'*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<
Private Sub Btn_print_repesp_Click()

Dim Fecha_inicial, Fecha_final As Variant

Fecha_inicial = DateValue(reportespecial.DTPicker1.Value)
Fecha_final = DateValue(reportespecial.DTPicker2.Value)
'Más codigo aqui y luego
Selection.AutoFilter Field:=1, Criteria1:=">=" & Fecha_inicial,
Operator:=xlAnd _
, Criteria2:="<=" & Fecha_final

Pero cuando paso a la hoja de Excel, y voy a autofiltro > Personalizar,
las fechas aparecen invertidas... Si seleccioné 01/08/2005 me aparece
08/01/2005.

He probado pasando el parámetro como número (el número de serie
correspondiente a la fecha), pero entonces no filtra nada porque los campos
de la hoja de Excel son fechas.

Sé que estoy haciendo algo mal, lo malo es que no sé que es.

Agradezco su apoyo y su tiempo.
 

Leer las respuestas

#1 Héctor Miguel
04/08/2005 - 03:52 | Informe spam
hola, RHT !

... forma correcta de pasar los parametros de... autofiltro para el caso de valores de fecha?
Private Sub Btn_print_repesp_Click()
Dim Fecha_inicial, Fecha_final As Variant
Fecha_inicial = DateValue(reportespecial.DTPicker1.Value)
Fecha_final = DateValue(reportespecial.DTPicker2.Value)
' Mas codigo aqui y luego
Selection.AutoFilter Field:=1, Criteria1:=">=" & Fecha_inicial, Operator:=xlAnd _
, Criteria2:="<=" & Fecha_final

... la hoja de Excel... autofiltro -> Personalizar, las fechas... invertidas...01/08/2005 me aparece 08/01/2005.
... pasando el parametro como... (el numero de serie correspondiente a la fecha)
... no filtra nada porque los campos de la hoja de Excel son fechas.
Se que estoy haciendo algo mal, lo malo es que no se que es.



-> si los datos en el listado de excel [la columna 1 que se filtra] SON 'efectivamente' datos_fecha [NO texto]...
'debiera' funcionar si usas 'directamente' el DTPicker en los criterios del filtro
[incluso SIN la necesidad de variables intermedias... p.e.]
[ ... otras lineas de tu codigo ... ]
Selection.AutoFilter _
Field:=1, _
Criteria1:=">=" & DTPicker1, _
Operator:=xlAnd, _
Criteria2:="<=" & DTPicker2

[ ... otras lineas de tu codigo ... ]

-> existe la posibilidad de que [en algun momento y/o de algun modo] el contenido de las variables se 'distorsione' -?-

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

Preguntas similares