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
Dim dato1 As Date
dato = Format(Fechaini, "dd/mm/yyyy")
dato1 = Format(Fechafin, "dd/mm/yyyy")
Worksheets("seguimiento").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=10, Criteria1:=">dato", Operator:=xlAnd,_ criteria2:="<dato1"
Alguien me

1 respuesta

Respuesta
1
'ES UN ERROR QUE TIENE EXCEL, PERO SE SOLUCIONA ASÍ.
'AQUÍ TIENES TU NUEVO CÓDIGO:
Dim dato As Date
Dim dato1 As Date
'Declarar variables auxiliares para la conversión
Dim Fecha1numero As Double, Fecha2numero As Double
Dim Temp1 As String, Temp2 As String
dato = Format(Fechaini, "dd/mm/yyyy")
dato1 = Format(Fechafin, "dd/mm/yyyy")
'________________________________________________________________________
'OJO!1!, Esto es un error:
'   ... Criteria1:=">dato", ...  |Así no se concatena.
'Se concatena primero en una variable string auxiliar:
'   stringtemp = ">" & dato
'Y luego sí pones la variable auxiliar como criterio
'   ... Criteria1:=stringtemp, ...
'OJO!2!, PERO NO QUIERE DECIR QUE SI LO HUBIERAS HECHO BIEN,
'TE HABRÍA FUNCIONADO, NO!.
'DEBES HACER LA CONVERSIÓN DE LAS VARIABLES DATE A DOUBLE.
'PORQUE INCLUSIVE AUN DESPÚES DE GRABADA, UNA MACRO DE FILTRADO DE FECHAS,
'ÉSTA NO FUNCIONA.
'________________________________________________________________________
'Convierte fecha a número:
Fecha1numero = dato
Fecha2numero = dato1
'Concatenas ASÍ:
Temp1 = ">=" & Fecha1numero 'Ojo, yo uso Mayor o igual a...
Temp2 = "<=" & Fecha2numero 'y Menor o igual a...
Worksheets("seguimiento").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=10, Criteria1:=Temp1, Operator:=xlAnd, Criteria2:=Temp2
Hola Experto gracias por tu respuesta, apliqué los cambios y aun no me quiere filtrar
Envíame tu macro completa.
Dim dato As Date
Dim dato1 As Date
'Declarar variables auxiliares para la conversión
Dim Fecha1numero As Double, Fecha2numero As Double
Dim Temp1 As String, Temp2 As String
dato = Format(Fechaini, "dd/mm/yyyy")
dato1 = Format(Fechafin, "dd/mm/yyyy")
Fecha1numero = dato
Fecha2numero = dato1
'Concatenas ASÍ:
Temp1 = ">=" & Fecha1numero 'Ojo, yo uso Mayor o igual a...
Temp2 = "<=" & Fecha2numero 'y Menor o igual a...
Worksheets("seguimiento").Select
Range("a1").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=2, Criteria1:="A-Cotizacion", Operator:=xlAnd
    Selection.AutoFilter Field:=10, Criteria1:=Temp1, Operator:=xlAnd, Criteria2:=Temp2
A mí me funciona perfectamente el código; mira el paso a paso en este video:
http://www.zshare.net/download/786937721391f020/
Ya encontré el problema cuando le quito esta linea me funciona
Selection.AutoFilter Field:=2, Criteria1:="A-Cotizacion", Operator:=xlAnd
Si la coloco no.
Que puedo hacer, no se la puedo quitar
Según tu macro, tu tabla comienza en A1, que es la celda que seleccionas al iniciar.
La variable Field:=2 de la instrucción que estás quitando,
indica que el primer filtrado lo hace por la segunda columna
de la tabla seleccionada, en este caso la segunda columna es B.
Pero no sé por qué no te funciona. Pero prueba quitándole el
operador: Operator:=xlAnd, déjala así:
Selection.AutoFilter Field:=2, Criteria1:="A-Cotizacion"
Y verifica que todas las columnas tengan encabezados.
Aaaaa, y agrega esta instrucción al inicio de la macro:
Application.ScreenUpdating = False
'Esto hace que excel no muestre Flashes, parpadeos.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Filtrar en excel desde visual basic

Me gusta mucho tu estilo, por eso recurro a ti, tengo una dificultad cuando quiero hacer un filtro en una hoja de excel con datos introducidos desde un formulario, porque el resultado no muestra ninguna fila, sin embargo, al entrar directamente al...
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

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

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

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

Filtro de fecha en VBA

Estoy haciendo una macro en excel que hace un autofiltro entre dos fechas guardadas en dos variables... Inicio y fin... Sin embargo, no logro que tome las fechas ya que en el código queda: Selection.AutoFilter Field:=9, Criteria1:"=>inicio",...
1 respuesta

Macro filtrar rango fechas con textbox

Como puedo hacer para hacer un filtro de rango fechas entre 2 textbox. Ejemplo: textbox1=fecha1 textbox2=fecha2 el filtro que necesito es que la fecha1 sea mayor o =, y la fecha 2 se menor o =.
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

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