Macro de Autofiltro Dinámico

07/10/2005 - 16:02 por Alejandro | Informe spam
que tal, tengo una planilla con varias columnas, una de ellas es de fecha
con formato dd/mm/aaaa, a su vez creé una macro que realiza varios filtro a
la vez, pero me gustaría que el último filtro en la columna de fecha me
consulte a través de una ventana a partir de que fecha (teniendo en cuenta
que el criterio es fijo "menor que") quiero hacer el filtro. Cuales serían
las líneas para eso??? Muchas gracias
 

Leer las respuestas

#1 Héctor Miguel
08/10/2005 - 07:26 | Informe spam
hola, Alejandro !

... varias columnas, una de ellas es de fecha con formato dd/mm/aaaa... una macro que realiza varios filtro
... me gustaria que el ultimo filtro en la columna de fecha me consulte a traves de una ventana a partir de que fecha
(teniendo en cuenta que el criterio es fijo "menor que") quiero hacer el filtro [...]



-> suponiendo que la columna de fechas es la columna 'A'... y que la 'cabecera' es la fila 1...
Y... que los datos en la columna de fecha SON -efectivamente- datos_fecha [sin importar el 'formato']...
-> toma tambien en cuenta que 'tratar' con fechas [en ocasiones] interviene la configuracion e idioma [excel/windows] :(
prueba con el siguiente codigo [lo que no se es cual/como/cuando/... seria 'el ultimo filtrado']
[he tratado de +/- proteger algunos de los posibles convencionalismos regionales] :))

si cualquier duda [o informacion adicional]... comentas?
saludos,
hector.
en un modulo de codigo 'norma' ==Sub Pregunta_Fecha()
Dim Fecha As String
Pregunta:
Fecha = InputBox("Introduce la fecha para criterio del autofiltro" & vbCr & _
"Utiliza por favor el formato: dd-mmm-aaaa" & vbCr & _
"Siguiendo el ejemplo siguiente...", "", _
Format(Date, "dd-mmm-yyyy"))
If Fecha = "" Then _
If MsgBox("Deseas cancelar el procedimiento?", vbYesNo) = vbYes _
Then Exit Sub Else GoTo Pregunta
Range("a1").AutoFilter Field:=1, Criteria1:="<" & CDate(Fecha)
End Sub

Preguntas similares