¿Qué hay de mal en este macro?
Quiero hacer un macro para hacer un filtro de una base de datos poniendo como condición un periodo de tiempo, teniendo una celda como fecha de inicio y otra celda como fecha de terminación.
Te mando imagen de mi libro y código.
Muchas gracias
Sub Macro5()
Dim FECHAINICIO As Date
Dim FECHAFIN As Date
FECHAINICIO = Range("C5").Value
FECHAFIN = Range("C6").Value
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0
Range("$E$8:$F$35").AutoFilter Field:=2, _
Criteria1:=">=" & FECHAINICIO, _
Criteria2:="<=" & FECHAFIN, _
Operator:=xlAnd
End Sub
1 Respuesta
Proba la macro cambiando las últimas instrucciones por las mías. Está probada y ejecutada correctamente en versión 365 ;)
Sub Macro5_origen()
Dim FECHAINICIO As Date
Dim FECHAFIN As Date
FECHAINICIO = Range("C5").Value
FECHAFIN = Range("C6").Value
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0
Range("$E$8:$F$35").AutoFilter Field:=2, _
Criteria1:=">=" & Format(FECHAINICIO, "mm/dd/yyyy"), Operator:=xlAnd, _
Criteria2:="<=" & Format(FECHAFIN, "mm/dd/yyyy")
End SubAlgunos videos de mi canal donde trato diferentes ejemplos con filtros:
Nº 79:: Filtrar con criterios en otra hoja.
Nº 36: Filtro dinámico desde un Userform.
Nº 35: Filtro avanzado...
https://www.youtube.com/playlist?list=PLrhlyizWZzOERwRMxIIy-BTP-CyXh_K5N
Sdos y no dejes de comentar si la respuesta resolvió tu consulta.
Buenas tardes, seguí tus instrucciones con el código que me mandaste y obtuve el mismo resultado, es decir, no me hace lo deseado.
Algun otra opcion de modificacion?
Gracias
Entonces tendrás que enviarme tu hoja ya que el código es correcto con mis datos ;)
No olvides recordarme tu versión Excel.
Mis correos aparecen en la sección Contactos de mi web, puedes tomar esta: cibersoftPUNTOargARROBAgmailPUNTO com
Sdos!
No recibí aún tu libro. Pero como recién ahora se me muestra la imagen en tu consulta, me pregunto si estás seguro que el contenido de las celdas son fechas y no textos que parecen fechas, tanto en las celdas de criterios como de contenidos.
Reitero entonces la necesidad de ver tu hoja para comprobar los contenidos de las celdas y adaptar la macro si hiciera falta.
Sdos!
Buenas tardes, Elsa
Te acabo de mandar mi libro
Gracias por tu atención
En tu imagen y también en la macro, los criterios se encuentran en las celdas C5:C6
Pero en el libro que me enviaste se encuentran en las celdas C4:C5, por lo tanto una vez ajustada la macro a las nuevas referencias ya se obtiene el resultado esperado.
Te estoy devolviendo el libro ya filtrado. Con aclaraciones acerca del rango a filtrar.
Sdos!
