Filtrado por 2 datos

[msnake18]

Estimados, este es mi primer post en la pagina, la verdad les queria agradecer por todos los aportes que suben dia a dia ya que muchos de ellos me han salvado en mas de una ocacion. En esta oportunidad necesito de su ayuda y les escribo porque no encontre las respuestas en el foro, les intentare dar toda la informacion que pueda, pero los datos que manejo son 100% confidenciales entonces si falta algo preguntenme y les indico mas informacion al respecto. Bueno, tengo una base de datos con mas de 20.000 filas, que incluyen las columnas CAJA, BANCO, FALLA, INICIO Y TERMINO, estos son problemas que puede haber ocurrido con esta "CAJA" en un dia, la base que adjunto solo tiene 1 dia de referencia, pero en verdad son mas de 1 mes de registros, necesito filtrar esta base por una lista acotada que se encuentra en la segunda hoja, son unos cuantas CAJAS entre ciertas horas, es decir necesito rescatar todas las fallas de ciertas CAJAS entre ciertos HORARIOS, se como filtrar por cajas, pero no puedo lograr filtrar por las horas deceadas para cada CAJA Espero me puedan ayudar, ya que es de suma urgencia En espera de sus respuestas, les saludo atentamente

Libro1.zip

[Invitado Cacho R]

Hola! msnake18.

Tendrías que aplicar un Filtro avanzado y tantos criterios como sean necesarios.

El archivo que te adjunto posee una macro que realiza esa tarea.

Si no tienes conocimientos sobre el tema macros, te sugiero que "vuelques" tus datos a este archivo para obtener la información buscada.

Saludos, Cacho R.

Filtros.rar

[msnake18]

Muchas gracias estimado, me sirvio 100% justo lo que necesitaba, pero como podria hacerlo para agregar mas columnas a copiar, no logro encontrar la linea donde haces esto

[Invitado Cacho R]

No se trata, msnake, sólo de las columnas a copiar (que de ello se ocupa "solito" el filtro avanzado)...

El problema de fondo es evaluar si la incorporación de columnas adicionales no requiere modificar las fórmulas en las que se basa el filtro.

Entonces: o subes un modelo con tu estructura real de datos, o intentas verificar y/o adecuar lo antes comentado, ¡Tú dirás!...

[msnake18]

mmmmm, en este caso no seria necesario aplicar otros filtros, es solo un dato adicional en caso que me lo soliciten, por ejemplo, asociar la direccion de la caja, o si es sucursal, supermercado, etc, pero ese dato va asociado a la caja en si.

[Invitado Cacho R]

Incorpora ese dato como última columna en la tabla de la primera hoja (tu BASE), prueba y me comentas, ¿OK?

[msnake18]

Me funciona, me copia la columna que necesito, pero estimado queria saber si me puede explicar el codigo, entiendo el principio y la defincion de las variables, pero no entiendo la parte mas importante.

*******************************

Sub Filtrar_Según_Lista()

'-------------------

' By Cacho Rodríguez

'-------------------

Dim LR As Long, C As Range 'Aca se definen las variables y el largo del codigo

If [a2] = Empty Then

MsgBox "Sin filtros definidos.": Exit Sub

End If 'Esto indica que si no hay datos en A2, arroje un mensaje de "no hay filtros definidos"

Application.ScreenUpdating = False 'Esto hace que no se actualicen lo que hace la macro en pantalla

[e1].CurrentRegion.Delete xlShiftUp 'borra los datos copiados anteriormente

[aa2].CurrentRegion.Delete xlShiftUp 'en esta columna copias los filtros que necesitas

LR = [a1].End(xlDown).Row 'define hasta que fila se debe ejecutar

For Each C In Range([a2], [a1].End(xlDown)) 'Esto define hasta que fila ejecutar la macro

Cells(C.Row, "aa").Formula = "= AND(" & _ 'de aqui en adelante no entiendo

C.Address & "=" & _

Hoja1.[a2].Address(False, False, external:=True) & ", MAX(" & _

C.Offset(, 1).Address & ", " & _

Hoja1.[d2].Address(False, False, external:=True) & ")<=MIN(" & _

C.Offset(, 2).Address & ", " & _

Hoja1.[d2].Address(False, False, external:=True) & "))"

Next C

Hoja1.[a1].CurrentRegion.AdvancedFilter xlFilterCopy, [aa1].Resize(LR), [e1]

'[aa2].CurrentRegion.Delete xlShiftUp

[e1].CurrentRegion.Columns.AutoFit

End Sub

Te agradeceria mucho si me pudieras explicar mejor el codigo

En espera de tus respuestas, saluda atentamente

Misael

[Invitado Cacho R]

Créeme, Misael, que "lo más fuerte del código" no lo encontrarás en el código... ¡sino en el Excel!.

Concretamente estoy hablando de criterios (para el Filtro avanzado) que se basen en fórmulas.

Si no "tienes" el tema asegurado, puedes consultarlo en:

• Filtrar utilizando criterios avanzados (Punto 2, Ejemplos de criterios, Condiciones creadas como resultado de una fórmula)
  
• Usando Filtro Avanzado en Excel (Se explica a partir de la frase: - "También podemos usar fórmulas como criterio").
  

Te sugiero, entonces, que ejecutes la macro pero deteniéndola después del filtrado de modo que no se ejecute la línea:

[aa2].CurrentRegion.Delete xlShiftUp

Analiza las cinco fórmulas del rango AA2:AA6 (que se corresponden con cada uno de los cinco criterios de filtrado que has colocado en la columna A de la hoja Filtar por).

Recuerda que cada una de esas fórmulas tiene que ser aplicada a cada una de las filas con datos de la hoja BASE (así trabaja el Filtro avanzado).

El resultado de la aplicación de la fórmula entregará VERDADERO o FALSO, según corresponda.

Quizá te convenga utilizar un sólo criterio de selección: de esa forma te será más sencillo interpretar que es lo que hace la fórmula.

Tómate tu tiempo -con tranquilidad- para el análisis, y después comentas, ¿OK?.

Saludos, Cacho R.