Un solo filtro 3 busquedas

18/11/2008 - 23:55 por JHOAKIN | Informe spam
Hola buen dia, tengo el siguiente problema tengo un libro con tres hojas y
las tres tiene una columna en comun que esta la clave del articulo a las tres
les he puesto filtro en un caso practico quisiera que con selecionar en el
primer filtro de de los datos de las otras dos hojas se podra?
 

Leer las respuestas

#1 Héctor Miguel
19/11/2008 - 05:52 | Informe spam
hola, !

... tengo un libro con tres hojas y... una columna en comun que esta la clave del articulo
a las tres les he puesto filtro en un caso practico quisiera que
con selecionar en el primer filtro de los datos de las otras dos hojas se podra?



- al aplicar filtros tambien puedes combinar criterios -?-
- tambien seria de utilidad si comentas con mas exactitud los rangos, hojas y tipo de datos -?-

en via de mientras, la siguiente propuesta "asume" que los rangos filtrados inician en la celda [A1]
tambien se asume que al modificar los autofiltros se dispara el evento '_calculate' (o pon una funcion =ahora())
y que el campo/columna por la que filtras es la segunda columna (filtro 2)
y (finalmente) que los nombre de las hojas son "hoja1", "hoja3" y "hoja5"
(ajusta segun sea tu caso real)

copia/pega (o escribe) lo siguiente en el modulo de codigo de tu libro (ThisWorkbook)
y... si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Dim Criterio, Ajustar, n As Byte: On Error GoTo Salida
Criterio = ActiveSheet.AutoFilter.Filters(2).Criteria1
Select Case LCase(ActiveSheet.Name)
Case "hoja1": Ajustar = Array("hoja3", "hoja5")
Case "hoja3": Ajustar = Array("hoja1", "hoja5")
Case "hoja5": Ajustar = Array("hoja1", "hoja3")
Case Else: Exit Sub
End Select: Application.EnableEvents = False
For n = LBound(Ajustar) To UBound(Ajustar)
Worksheets(Ajustar(n)).Range("a1").AutoFilter 2, Criterio
Next
Salida:
Application.EnableEvents = True
End Sub

Preguntas similares