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 listbox me muestre el rango de fechas que estoy "filtrando".

Pero hay un punto importante: los datos en la hoja se van almacenado del más nuevo al más viejo, esto es, las filas van de la fecha más reciente a la más vieja (ej: a1=5/12/13, a2=4/12/13, a3=3/12/13, etc.).

En las pruebas tengo tres fechas: 28/11/2013, 29/11/2013 y 05/12/2013.

Estoy tratando con este código, pero no funciona bien, ya que sí parece trabajar para las dos primeras fechas, pero no sé porqué no me funciona para la última fecha (no sé si será asunto de formato de las celdas).

Private Sub CommandButton3_Click()

Dim lFecha1 As Date, lFecha2 As Date
lFecha1 = ActiveSheet.Range("fecha1")
lFecha2 = ActiveSheet.Range("fecha2")
TextBox1 = lFecha1
TextBox2 = lFecha2
Sheets("Hoja3").Cells.Clear
u = Range("AA" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("aa1:ao" & u).AutoFilter Field:=9, Criteria1:=">=" & lFecha1, _
Operator:=xlAnd, Criteria2:="<=" & lFecha2
Range("aa1:ao" & u).Copy Sheets("Hoja3").Range("A1")
u = Sheets("Hoja3").Range("A" & Rows.Count).End(xlUp).Row
Me.ListBox2.List = Sheets("Hoja3").Range("A2:O" & u).Value
Selection.AutoFilter

End Sub

Agradezco su ayuda, que son las mejores de la red.

Respuesta
4

Para poder filtrar un intervalo de fechas mediante VBA necesitas reconvertir las fechas al formato: mm/dd/yyyy

Por ejemplo, una vez tengamos la variable de Ifecha1 y Ifecha2 haríamos lo siguiente:

Ifecha1 = format(Ifecha1,"mm/dd/yyyy")

Ifecha2 = format(Ifecha2,"mm/dd/yyyy")

Después ya vendría la fila del autofilter...

No me funciona amigo, parece que le cambia el formato a las celdas al de hora y convierte lo que hay en ellas y en los textbox en 00:00:00.

Te mando el siguiente ejemplo:

-Tenemos una tabla de 4 columnas y en la columna 3 están las fechas.

-En nuestro formulario tenemos un listbox, 2 textbox y un botón.

-En el textbox1 anotaremos la fecha de inicio y en el textbox2 anotaremos la fecha fin que queremos filtrar.

-Después solo tenemos que pulsar el botón que tendrá esta macro asociada.

Private Sub CommandButton1_Click()
fecha1 = CDate(TextBox1)
fecha2 = CDate(TextBox2)
fecha1 = Format(fecha1, "mm/dd/yyyy")
fecha2 = Format(fecha2, "mm/dd/yyyy")
Range("a1").AutoFilter field:=3, Criteria1:=">=" & fecha1, Operator:=xlAnd, Criteria2:="<=" & fecha2
For Each celda In Range("a2:a" & Range("a65000").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
ListBox1.AddItem celda
i = ListBox1.ListCount - 1
ListBox1.List(i, 1) = celda.Offset(0, 1)
ListBox1.List(i, 2) = celda.Offset(0, 2)
ListBox1.List(i, 3) = celda.Offset(0, 3)
Next
End Sub

recuerda finalizar

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

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

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

Problema al ejecutar macro para filtrar rango de fechas

Tengo la siguiente Macro Sub filtrarfechas() fecha1 = InputBox("Fecha de inicio") If Not IsDate(fecha1) Then Exit Sub fecha1 = Format(fecha1, "dd/mm/yyyy hh:mm") fecha2 = InputBox("Fecha final") If Not IsDate(fecha2) Then Exit Sub fecha2 =...
1 respuesta

Problemas con formato fecha en textbox

Primero que todo agradecido por las enseñanzas, soy novato y estoy aprendiendo solo con estos foros. Tengo el siguiente problema: tengo varios textbox y uno de ellos con formato de fecha, cuyo código es el siguiente: Private Sub...
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

¿Cómo llenar un listbox con columnas discontinuas?

He terminado de diseñar un UF el cual contiene varios textbox, un listbox y un botón de búsqueda. Lo primero que hago es agregar una clave de cliente en el textbox1 y al presionar el botón, la macro hace la búsqueda, si lo encuentra, llena el resto...
2 respuestas

Restar dos fecha cualquieras

La idea es restar dos fecha que están en dos textbox y restarlos De modo que el resultado en un tercer textbox de en meses.
1 respuesta

Macro para informes diarios

Tengo una tabla (la hoja se llama VENTAS ACTIVIDADES), con todas las actividades que voy vendiendo, esta tabla tiene 19 columnas(Fecha de actividad, Hora, Actividad, Nombre del cliente, Tlf...). Aquí almaceno todos los datos de las actividades que...
3 respuestas

Como llenar dinámicamente un ListBox

Tengo dos hojas de excel llamadas Inventario y Diario, la hoja activa es la de diario y tengo un formulario desde donde voy cargando los artículos, este formulario consta de: TexBox1 - Código Articulo ComboBox1 - Nombre de Articulo TextBox2 - Me...
1 respuesta