Jump to content

Filtrado por 2 datos


Recommended Posts

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

Link to comment
Share on other sites

Guest 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

Link to comment
Share on other sites

Guest 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!...

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

Guest Cacho R

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

Guest 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:

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.

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy