Visual Basic para Aplicaciones - fechas en Autofilter

Life is soft - evento anual de software empresarial
 
Vista:

fechas en Autofilter

Publicado por Gerardo (1 intervención) el 03/09/2004 13:13:14
Hola a todos,
tengo una tabla con una columna de fechas (y otros datos).
Estoy intentando filtrar (Autofiltro) por un rango de fechas desde una macro y no se cómo poner los criterios.
Utilizo 'Autofilter campo criterio' y el criterio es una variable que contiene un texto que se monta según la petición del usuario.
Si en la variable pongo algo así como ">01/08/2004" no me muestra ningún resultado, pero si pongo ">38200" (el número que corresponde a la fecha) funciona perfectamente, pero no encuentro en VBA ninguna función que dándole una fecha me devuelva el número.
¿Alguien me puede echar una mano? Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:fechas en Autofilter

Publicado por frany (36 intervenciones) el 05/09/2004 14:44:27
Hola que tal
tras mirar bastante la ayuda al fin he podido dar con la funcion apropiada
de todas formas lo mas importante creo que es definir las variables como sigle para que sean numeros enteros ya que de lo contrario si no lo haces te dara un numero pequeño.

No soy informatico pero lo he probado y funciona.
Suerte.

Sub filtro()

' filtro Macro
' Macro grabada el 05/09/2004 por fran
'

Dim fechainicial As Single 'define el formato es lo mas importante
Dim fechafinal As Single

fecha1 = "03/08/2004" ' variables que deberas entrar como mas coraje te dé mediante msgbox o en celdas
fecha2 = "07/11/2004"

fechainicial = CDate(fecha1) ' convertir a numero
fechafinal = CDate(fecha2)
a$ = ">=" & fechainicial & ""
B$ = "<=" & fechafinal & ""

Rows("1:7").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=a$, Operator:=xlAnd _
, Criteria2:=B$
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar