Hola amigos, hace días que estoy con este problema. La macro con las 2 primeras condiciones anda sola, pero no en un formulario. Menos aún cuando le agrego la 3ra condicion, que es fundamental para el caso que necesito resolver.

La 1ra condicion es que la fecha que ingrese sea mayor a las celdas que busca el bucle

La 2da condicion es que la fecha sea menor a la que busque el bucle

Y la 3ra condicion es que el nombre que tilde del "Listbox" sea igual a un rango de celdas en una hoja

Tips a tener en cuenta:

- Cree un formulario llamado "Movimiento de compras", en el cual tengo:

> Un marco con botones de opcion

> Un listbox (el cual me tira los datos segun active los botones de opcion)

> Dos cuadro de texto, los cuales el usuario ingresara "Fecha desde" y "Fecha Hasta"

> Dos comandos, uno para ACEPTAR y otro para CANCELAR

ACA LES ENVIO LAS MACRO QUE HICE:

Private Sub Aceptar_Click()

Application.ScreenUpdating = False

Sheets("Movimientos").Visible = True

Sheets("Movimientos").Select

Movimientos_compras

Unload Me

End Sub

Sub Movimientos_compras()

Application.ScreenUpdating = False

For J = 2 To 100

A = J + 1

If FechaCompradesde <= Sheets("compras").Cells(J, "g") And Sheets("compras").Cells(J, "g") <= FechaComprahasta And Sheets("compras").Cells(J, "B") = ListBox2 Then

Cells(A, "H") = Sheets("compras").Cells(J, "g") ' fecha de compra

Cells(A, "I") = Sheets("compras").Cells(J, "B") ' bebida

Cells(A, "j") = Sheets("compras").Cells(J, "c") 'categoria

Cells(A, "k") = Sheets("compras").Cells(J, "e") 'cantidad

Cells(A, "l") = Sheets("compras").Cells(J, "f") 'precio unitario

Cells(A, "m") = Sheets("compras").Cells(J, "d") 'proveedor

Cells(A, "n") = Sheets("compras").Cells(J, "H") ' fecha de vencimiento

End If

Next J

End Sub

Sube una muestra del archivo.