Filtrar fechas condicionadas en celdas!

Hola como están! Espero que este muy bien, tengo una consulta
Me explico:
Tenemos enta macro que nos toma una base de datos, y nos filtra con un rango de fecha que ingresamos manualmente al código. Como ud lo puede observar en el lugar Donde escribimos   ">=07/01/2009" y "<=07/30/2009". Mi pregunta es: como podemos hacer que estos valores sean tomados de una celda de la hoja de acuerdo a como los ingrese el usuario y no tengan que ser escritos directamente en el código de visual.
Espero que me hallan entendido, espero respuesta amigos expertos muchas gracias bye!
Sub ffffffff()
'
' ffffffff Macro
'
'
    Range("A9").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$9:$J$2041").AutoFilter Field:=1, Criteria1:= _
        ">=07/01/2009", Operator:=xlAnd, Criteria2:="<=07/30/2009"
    ActiveWindow.SmallScroll Down:=0
    Range("A9:J2073").Select
    Selection.Copy
    Sheets("graficoprueba").Select
    Range("C58").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=21
    Range("B82").Select
    ActiveWindow.SmallScroll Down:=-18
    Sheets("Hoja5").Select
    ActiveWindow.SmallScroll Down:=-120
    Range("D3").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("E4").Select
    Selection.AutoFilter
    ActiveWindow.SmallScroll Down:=-18
End Sub

1 Respuesta

Respuesta
1
Supongamos que las fechas las tienes en las celdas A10 y A11 respectivamente, en tal cso tu código quedaría así:
Sub ffffffff()
'
' ffffffff Macro
'
'
    Range("A9").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$9:$J$2041").AutoFilter Field:=1, Criteria1:= _
        ">=" & Range("A10").value, Operator:=xlAnd, Criteria2:="<=" & Range("A11").value
    ActiveWindow.SmallScroll Down:=0
    Range("A9:J2073").Select
    Selection.Copy
    Sheets("graficoprueba").Select
    Range("C58").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=21
    Range("B82").Select
    ActiveWindow.SmallScroll Down:=-18
    Sheets("Hoja5").Select
    ActiveWindow.SmallScroll Down:=-120
    Range("D3").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("E4").Select
    Selection.AutoFilter
    ActiveWindow.SmallScroll Down:=-18
End Sub
Hola!
No se si sea por trabajar con autofiltros,
¿Qué no me muestra resultados?
Parece que la acción esta bien pero no me arroga los resultados!
¿Se puede crear con un filtro avanzado?
¿O de otra forma?
Si fuera posible enviarle el formato para que lo analizara
por favor enviarme una dirección de correo le agradecería mucho sr experto...
Gracias!
El problema es un tema de formato. Para no tener complicaciones, visual basic utiliza el formato de fecha m/d/yyyy. Al momento de asignarle otro formato, el autofiltro no tiene éxito, por tanto la forma en que te recomiendo solucionarlo es la siguiente:
Range("A1").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:=">=" & Format(Range("A11").Value, "m/d/yyyy"), _
        Operator:=xlAnd, Criteria2:="<=" & Format(Range("B11").Value, "m/d/yyyy")
(Los criterios están en A11 y B11)

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro para filtrar con dos columnas

Tengo una macro para hacer un filtro en dos columnas, una en la que le doy el valor de filtrado por un textbox, y en la otra, por dos textbox con dos fechas (inicio y fin). Algo estoy haciendo mal por que no me funciona. La fecha la tengo en la...
1 respuesta

Macro para filtrar entre fechas

Llevo unos días intentando filtrar algunos datos con fecha del mismo MES, mediante una macro y no hay manera. La idea es: Escribir en un recuadro el día 01/06/2011 y que me filtre los datos de otra hoja, seleccionando "mayor o igual que 01/06/2011" y...
1 respuesta

Filtrar, copiar y pegar filas en otra hoja.

No tengo mucha experiencia con macros y tengo el siguiente ejercicio: Debo tomar las filas que cumplan 3 criterios a la vez (por ejemplo C3="Y" AND F3>=60% AND K3="Active") y copiarlas a otra hoja (hoja2) donde deben quedar ordenadas por otro...
1 respuesta

Filtrar datos entre dos fechas

Para poder elegir vos las fechas, lo que tendrías que hacer seria: 1ro hacer formulario en el cual te pida las fechas en las cuales quieres filtrar y luego ejecutas esa macro y reemplazas las fechas por los textbox.text en los cuales cargas las...
1 respuesta

Filtrar datos por medio de textbox en formulario

Necesito filtrar datos de acuerdo a 2 textbox que tienen fecha de inicio y fecha final, y me los copie a una hoja nueva pero solo con los datos que yo quiero que filtre.
1 respuesta

Filtrar rango de fechas

Estoy tratando de filtrar un rango entre dos fechas usando dos textbox uno para cada fecha por medio de una macro, el filtro se ejecuta pero no muestra valores a pesar de que los datos existen. Y el código que uso es el siguiente. Dim dato As Date...
1 respuesta

Autofiltro: no se ejecuta en la macro

Genero una macro en Excel que rastrea una tabla Excel y filtra una columna concreta: 1)Autofiltro personalizado (para seleccionar sólo datos entre una fecha y otra), acepta las opciones del autofiltro (columna F) 2) Voy a otra columna (columna K) y...
2 respuestas

Filtrar por fecha y mostrar en listbox de excel

Tengo un formulario con un listbox, un botón y dos textbox. Tengo en una hoja un rango de datos "x", entre ellos una columna que muestra la fecha para cada fila. Necesito ingresar en los textbox un rango de fechas, presionar el botón, y que en el...
1 respuesta

Criterio en filtro avanzado

Me llevo rompiendo la cabeza y es que no me va. Tengo una tabla muy grande y quiero obtener algunos datos, he creado un filtro avanzado y me resulta pero quiero un criterio no tan común como poner un nombre o un dato que se encuentra en la tabla....
1 respuesta

Promedio con fechas

Feliz navidad. No doy con esto: Tengo la columna "A" con fechas y la columna "B", con números, quiero hallar el promedio de la fila "B" por meses descartando las celdas en blanco o con ceros.
1 respuesta