ayuda para extraer datos entre dos fechas

[narau2010]

Buenas noches,

No sé casi nada de programación en vba comparado con lo que he visto, tengo un error en la ejecución y no consigo adivinar cual es, simplemente quiero extraer datos de una tabla entre dos fechas, si es posible que alguien me ayude.

 

Gracias y un saludo.

busqueda fecha.xlsm

[JSDJSD]

Prueba y comenta, he eliminado el botón migrar ya que una vez haces la búsqueda te pasa los datos a la hoja2

busqueda fecha.xlsm

[JSDJSD]

Private Sub UserForm_Activate()
        Me.ListBox1.RowSource = Hoja1.Range("A1"). _
        CurrentRegion.Offset(1).Address(, , , 1)
End Sub

Private Sub CommandButton1_Click(): Application.ScreenUpdating = False
    Date1 = TextBox1: Date2 = TextBox2
    With Hoja1.Range("A1").CurrentRegion
        .AutoFilter 2, Criteria1:=">=" & CDbl(CDate(Date1)), _
        Operator:=xlAnd, Criteria2:="<=" & CDbl(CDate(Date2))
        Hoja2.Range("A1").CurrentRegion.Delete
        .SpecialCells(12).Copy Hoja2.Range("A1")
        Me.ListBox1.RowSource = Hoja2.Range("A1"). _
        CurrentRegion.Offset(1).Address(, , , 1)
        .AutoFilter
    End With

End Sub

 

[narau2010]

Muchísimas gracias, he filtrado y funciona perfectamente, dos preguntas nada más, ¿donde estaba el fallo
?, ¿y si cargo una tabla de 12.000 registros o más funcionará?, es que esa pequeña tabla la puse a modo de ejemplo para intentar que funcionara, de nuevo muchas gracias.

[JSDJSD]

La verdad que tu código ni lo he mirado, con el que tienes ahora no hay límite de registros

[narau2010]

Pues muchas gracias, iré practicando un poco más de vba todos los días, me recomiendas algún curso.

[JSDJSD]

En los cursos que verdaderamente te enseñan so de pago pero en este foro viendo los aportes que se dan aprenderás bastante, eso sí dedicándole tiempo

[JSDJSD]

Rectifico, también hay algunos gratuitos que también aportan mucho

[JSDJSD]

También decirte que yo me considero aún un novato en vba

[narau2010]

Buenos días, 

he probado la macro como te dije con unas cuantas lineas y no funciona el filtro, me puedes decir el motivo.

 

Gracias.

 

[JSDJSD]

Su tu archivo en el cual no funciona y lo miro

 

[narau2010]

El problema es que no me deja subirlo pesa mas de 100 kb

 

[narau2010]

te adjunto una imagen del codigo

 

[narau2010]

copie datos de otra pagina con un total de 12000 lineas y fallo, carga los datos pero no ejecuta el filtro de fechas y tambien queria ponerle que sumara el stock de las unidades

 

[JSDJSD]

Comprímelo o bórrale líneas luego se las añado yo, pero lo suyo es ver tu archivo

 

[narau2010]

ahi te lo dejo, al cargar me falla el boton de filtrar

busqueda fecha.xlsm

[JSDJSD]

Mañana te lo miro

 

[JSDJSD]

En 14/3/2023 at 11:02 , narau2010 dijo:

he probado la macro como te dije con unas cuantas lineas y no funciona el filtro, me puedes decir el motivo.

El motivo es que la columna donde tienes las fechas no esta en formato fecha

[JSDJSD]

Prueba y comenta

 

 

busqueda fecha.xlsm

[narau2010]

Muchas gracias por la ayuda, parece que ahora funciona bien, no he podido responder antes porque estaba enfermo, y muchas gracias de nuevo

[JSDJSD]

Perfecto, cuídate